run commandbar

[accessman2]

Hi,

I create the startupfrm.
When the user open the database, the startupfrm will be automaticlly opened. This form has been setup Time Interval = 5000, and there is Timer function inside the form, every 5 seconds, I want the database to refresh the user menu depend on the user's permission

if Dlookup("[Approver]","Menu","[User]='" & environ("username") & "'") = True then
CommandBars("dbMenu").Controls("Students Approval").Visible = True
else
CommandBars("dbMenu").Controls("Students Approval").Visible = False
end if

......

But, this method doesn't allow multi user to run it, if I run it, any other user (using the same file) cannot open the database, which seems said that the Computer Name "xxxxxxxxx" prevents it to open ........

So, can we run the the CommandBars menu on every interval in the form?