Private Sub Form_Current()
On Error Resume Next
If Forms![frmMainMenu]![txtSecurityID] = 9 Then
[URL="http://www.access-diva.com/vba6.html"]fncLockUnlockControls Me, True[/URL]
Else
[URL="http://www.access-diva.com/vba6.html"]fncLockUnlockControls Me, False[/URL]
End If
End Sub
Private Sub Form_Current()
On Error Resume Next
If Forms![frmMainMenu]![txtSecurityID] <> 13 And Forms![frmMainMenu]![txtOverride] = False Then
[URL="http://www.access-diva.com/vba6.html"]fncLockUnlockControls Me, True[/URL]
Else
[URL="http://www.access-diva.com/vba6.html"]fncLockUnlockControls Me, False[/URL]
End If
End Sub