User Acces In A Loop

[cwaldick]

I would like to loop through all my menu's on the main form then do a findfirst in a database file based on the menu name and check the record to see if the user is allowed access. If the returned value is false (or 0) then I want to be able to disable the menu function else It must be Enabled.

How would I do that without using Menu Aray Index's

[beachbum]

Hi
I would prob enable/disable or hide/show the menu options at the time of a new user logging in.. ie keep a record of what menus they have access to and only enable them. This would be a one off check and hence much faster than checking each time a menu item is clicked...

but, to give u the idea to get u on ur way here is code to output the name of each menu item
regards
Stuart

Private Sub Command1_Click()
    Dim Mnu As Control
    For Each Mnu In Me.Controls
        If TypeOf Mnu Is Menu Then Debug.Print Mnu.Name
    Next
End Sub