97 to 2003 conversion issue - HELP

J

Jamie

Maybe wrong forum let me know if I should try others.
I'm getting a lockup state when running a process in my database once
updated.

I believe it has to do with this code can someone give me some details.
--------------------------------------------------------------------------------------
Sub GoToDesign()

On Error Resume Next 'Ignore all errors, continue if possible...
Call UserTrace([Screen].[ActiveForm].[Name], Me.[ActiveControl].[Name])
'Fill tblAccessData with info

DoCmd.Close acForm, "frmAbout"
DoCmd.Close acForm, "frmSwitchboard"
DoCmd.Close

Call KillCommandBars
Call SeeCommandBars
ChangeProperty "AllowFullMenus", dbBoolean, True 'Allow Full Menus

DoCmd.SelectObject acTable, , True 'Unhide the database window, without
dialog box
'DoCmd.RunCommand acCmdWindowUnhide...unhides, but opens dialog box
DoCmd.Maximize 'the DB windown

End Sub

---------------------------------------------------------------------------------------------
Sub KillCommandBars()
Dim cb As CommandBar 'Requires MS Office 8.0 Object Library (Tools,
References (in Module Design))

On Error Resume Next 'following code tries to make Menu Bar invisible,
causing error.
For Each cb In CommandBars
cb.Visible = False
Next cb
CommandBars("Menu Bar").Enabled = False 'Can't be made invisible, so
disable it, making it invisible

End Sub

------------------------------------------------------------------------------------------------------
Sub SeeCommandBars()

Application.SetOption "Built-In Toolbars Available", True
CommandBars("Menu Bar").Enabled = True
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top