Menubar missing

[aziz rasul]

I have a form called "frmCompanies". On the Open & Load events I have the following code: -

    For i = 1 To CommandBars.Count
        CommandBars(i).Enabled = False
    Next i
    
    Application.CommandBars("Menu Bar").Enabled = True

When the form is opened the menubar appears no problem.

I have another form called "frmProductsandDistribution" on which I have a label. On the Dbl Click event of the label I have the following code: -

DoCmd.OpenForm "frmCompanies", acNormal, , , acFormEdit, acDialog

This makes "frmCompanies" appear on top of "frmProductsandDistribution". However the menubar does NOT appear. What am I doing wrong?

 

[dreamzdestiny]

Try this instead

DoCmd.OpenForm "frmCompanies", acNormal, , , acFormEdit, acWindowNormal

I believe it should have been because of the fact that it is opening up as a dialog box that you are not able to see the menus.

Cheers

 

[aziz rasul]

That worked, but the form stayed in the background. However by using

DoCmd.Minimize
DoCmd.ShowToolbar "Menu Bar", acToolbarYes
DoCmd.OpenForm "frmCompanies", acNormal, , , acFormEdit, acWindowNormal

on the label's Dbl Click event and

DoCmd.Close acForm, "frmCompanies", acSaveNo
DoCmd.OpenForm "frmProductandDistribution"

on the Close button of "frmCompanies" to restore "frmProductandDistribution".