arnelgp
..forever waiting... waiting for jellybean!
- Local time
- Today, 11:40
- Joined
- May 7, 2009
- Messages
- 19,238
you put it here:
now on open event of all Reports:
Code:
Select Case [Forms]![FormLogin].[txtDienstID]
Case 1, 2, 5, 8
CurrentDb.Properties("AllowShortcutMenus") = True
Case Else
CurrentDb.Properties("AllowShortcutMenus") = False
End Select
Tempvars.Add "allow_shortcut", (Instr(1, ",1,2,5,8", "," & [Forms]![FomLogin]![txtDienstID] & ",") > 0)
now on open event of all Reports:
Code:
Private Sub Report_Open(Cancel As Integer)
If [Tempvars]![allow_shortcut] = False Then
'not admins
Me.ShortcutMenuBar = "menu_print2"
Else
Me.ShortcutMenuBar = "menu_print"
End If
End Sub