ghsrthrtvb

[D-niss]

Test:

Private Sub btnFix_Click()
'On Error GoTo Err_btnFixAmt_Click

With txtFix
.Value = ""
.Enabled = True
.BackStyle = fmBackStyleOpaque
End With

With txtPer
.Value = ""
.Enabled = False
.BackStyle = fmBackStyleTransparent
End With

Err_btnFixAmt_Click:
Exit Sub

End Sub