Test:

VB Code:
  1. Private Sub btnFix_Click()

  2. 'On Error GoTo Err_btnFixAmt_Click

  3.  
  4. With txtFix

  5.     .Value = ""

  6.     .Enabled = True

  7.     .BackStyle = fmBackStyleOpaque

  8. End With

  9.  
  10. With txtPer

  11.     .Value = ""

  12.     .Enabled = False

  13.     .BackStyle = fmBackStyleTransparent

  14. End With

  15.  
  16. Err_btnFixAmt_Click:

  17. Exit Sub

  18.  
  19. End Sub