M
martinmike2
Hello,
I know this should be easy but I have been staring at the same 15
lines of code for the past 2 hours to no avail.
Code:
Private Sub Form_Open(Cancel As Integer)
Dim bok As Boolean
bok = EnableDisableControls("frmMain", 0, False)
If bok = False Then
If MsgBox("There has been an error, contact Manpower to resolve
this issue.", vbOKOnly, gstrAppTitle) = vbOK Then
DoCmd.Quit
End If
End If
If gALEVEL = 4 Then
bok = EnableDisableControls("frmMain", 0, True)
End If
DoCmd.Close acForm, "frmLogin"
With Me
..cmdEPERS.Enabled = True
..cmdExit.Enabled = True
..pgADMIN.Enabled = True
End With
End Sub
"EnableDisableControls" does just as its name implies. My problem is
that cmdExit will enable but cmdEPERS will not, no what I try with
it......any ideas?
I know this should be easy but I have been staring at the same 15
lines of code for the past 2 hours to no avail.
Code:
Private Sub Form_Open(Cancel As Integer)
Dim bok As Boolean
bok = EnableDisableControls("frmMain", 0, False)
If bok = False Then
If MsgBox("There has been an error, contact Manpower to resolve
this issue.", vbOKOnly, gstrAppTitle) = vbOK Then
DoCmd.Quit
End If
End If
If gALEVEL = 4 Then
bok = EnableDisableControls("frmMain", 0, True)
End If
DoCmd.Close acForm, "frmLogin"
With Me
..cmdEPERS.Enabled = True
..cmdExit.Enabled = True
..pgADMIN.Enabled = True
End With
End Sub
"EnableDisableControls" does just as its name implies. My problem is
that cmdExit will enable but cmdEPERS will not, no what I try with
it......any ideas?