This will avoid the errors. I have never seen VBA code with so many Me.Refresh lines.
Commenting these may have unforseen consequences, but here you go...
For sfrmProjectPermitIssuer
Code:
Private Sub Form_Current()
On Error GoTo Error_Handler
If Me.OnLineAccess = True Then
Me.UserName.Enabled = True
Me.Password.Enabled = True
Me.Website.Enabled = True
Else
Me.UserName.Enabled = False
Me.Password.Enabled = False
Me.Website.Enabled = False
End If
''''''''''''''Me.Refresh
Error_Handler_Exit:
On Error Resume Next
For sfrmProjectPermitHolder
Code:
Private Sub Form_Current()
'''''''''''''''Me.Refresh
End Sub