I have code that checks a table to see if the Current User should be able to open a form
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Error_Handler
If Nz(DLookup("UserName", "tbl_Users", _
"[Object_Name]='" & Me.Name & "' AND [UserName]='" & CurrentUser()...