Problem with advanced filter sort window

[Julia B]

Hi all, I posted this on the forms coding group a couple of weeks ago and
didn't get any response, so apologies for the cross posting as I may have
posted it to the wrong place the first time.

I've got an Access database that is locked down by giving users access to
forms only and each of the forms has a custom toolbar and a very limited
menu. The custom toolbar has the Advanced Filter/Query button along with some
other filter options for continuous forms.

However when users press the Advanced Filter/Query button, and the query
window opens, the custom toolbar disappears and they can only see the very
limited menu so can hardly do anything.

When I open the app with the same user rights as them (done via a security
module and data entered into a users table), I can see the custom toolbar.

Here's the relevant bit of the security module code:

If rsUsers.Fields("UserType") = "IT" Then
ChangeProperty "StartupShowDBWindow", dbBoolean, True
ChangeProperty "StartupShowStatusBar", dbBoolean, True
ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
ChangeProperty "AllowFullMenus", dbBoolean, True
ChangeProperty "AllowBreakIntoCode", dbBoolean, True
ChangeProperty "AllowSpecialKeys", dbBoolean, True
ChangeProperty "AllowBypassKey", dbBoolean, True
ChangeProperty "AllowToolbarChanges", dbBoolean, True
'if the user is edit, then show the appropriate menu and disable db
functions
Else
DoCmd.OpenForm "MainMenu"
ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", dbBoolean, False
ChangeProperty "AllowBuiltinToolbars", dbBoolean, True
ChangeProperty "AllowFullMenus", dbBoolean, False
ChangeProperty "AllowBreakIntoCode", dbBoolean, False
ChangeProperty "AllowSpecialKeys", dbBoolean, False
ChangeProperty "AllowBypassKey", dbBoolean, False
ChangeProperty "AllowToolbarChanges", dbBoolean, False
End If

Any ideas on why this would occur and how to sort it out?
Thanks in advance!

Julia