Database Window tweaking performance of cmds

[bill1one]

I have a menu that opens different reports. Here is the code for those reports.

Sub OpenRpt_Open()
DoCmd.Close acForm, "frmMenu", acSaveNo
DoCmd.Maximize
End Function

Sub CloseRpt_Close()
DoCmd.Restore
DoCmd.OpenForm "frmMenu", acNormal
End Function

What is wierd is that they work fine if the Database Window is displayed, but if I do not display the Database Window at startup, then the reports won't maximize like they should.

Any suggestions?

 

[TomCologne]

Try msximizing before the form closes:

Sub OpenRpt_Open()

    DoCmd.Maximize
    DoCmd.Close acForm, "frmMenu", acSaveNo
    
End Function

If that does not work look into the SelectObject method.


TomCologne