Hi
The following SUB is not working. Hence please help me to correct the Code.
Public Sub USERACTV(Frm As Form, ANum As Integer)
If ANum = 1 Then
Forms(Frm.Name).Controls(btnNew).Enable = True
Else
Forms(Frm.Name).Controls(btnNew).Enable = False
End If
End Sub
The following SUB is not working. Hence please help me to correct the Code.
Public Sub USERACTV(Frm As Form, ANum As Integer)
If ANum = 1 Then
Forms(Frm.Name).Controls(btnNew).Enable = True
Else
Forms(Frm.Name).Controls(btnNew).Enable = False
End If
End Sub