I'm getting the following error:
The expression On Open you entered as the event property setting produced the following error: Label not defined.
Any idea what's causing this?
Thanks,
Russ
Private Sub Form_Open(Cancel As Integer)
Application.SetOption "ShowWindowsInTaskBar", False
varusername = fOSUserName()
VendorClaims.Visible = False
gstrUserRole = DLookup("[csr_role]", "customer_claims_csr", "[csr_login] = '" & varusername & "'")
If gstrUserRole <> "Claims Administrator" And gstrUserRole <> "Developer" Then
Disposition.Enabled = False
Admin.Enabled = False
Else
Disposition.Enabled = True
Reports.Enabled = True
Admin.Enabled = True
End If
Debug.Print "gstrUserRole", gstrUserRole
Debug.Print "varusername:", varusername
Debug.Print Now
End Sub
The expression On Open you entered as the event property setting produced the following error: Label not defined.
Any idea what's causing this?
Thanks,
Russ
Private Sub Form_Open(Cancel As Integer)
Application.SetOption "ShowWindowsInTaskBar", False
varusername = fOSUserName()
VendorClaims.Visible = False
gstrUserRole = DLookup("[csr_role]", "customer_claims_csr", "[csr_login] = '" & varusername & "'")
If gstrUserRole <> "Claims Administrator" And gstrUserRole <> "Developer" Then
Disposition.Enabled = False
Admin.Enabled = False
Else
Disposition.Enabled = True
Reports.Enabled = True
Admin.Enabled = True
End If
Debug.Print "gstrUserRole", gstrUserRole
Debug.Print "varusername:", varusername
Debug.Print Now
End Sub