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