View Single Post
Old 09-14-2019, 07:45 AM   #22
arnelgp
error reading drive A:
 
arnelgp's Avatar
 
Join Date: May 2009
Location: somewhere out there
Posts: 8,426
Thanks: 68
Thanked 2,709 Times in 2,594 Posts
arnelgp is just really nice arnelgp is just really nice arnelgp is just really nice arnelgp is just really nice arnelgp is just really nice
Re: Run code before close report

or to make it simple:
Code:
Select Case [Forms]![FormLogin].[txtDienstID]
       Case 1, 2, 5, 8
            CurrentDb.Properties("AllowShortcutMenus") = True
       Case Else
            CurrentDb.Properties("AllowShortcutMenus") = False
       End Select
Code:
Private Sub Report_Open(Cancel As Integer)
If (CurrentDb.Properties("AllowShortcutMenus")) = True Then
   'admins
    Me.ShortcutMenuBar = "menu_print"
Else
    Me.ShortcutMenuBar = "menu_print2"
End If
End Sub

__________________
"Never stop learning, because life never stops teaching"
arnelgp is offline   Reply With Quote