Originally Posted by
Micron
try typing this into an immediate window
CommandBars("Property Sheet").Position =msoBarTop
I did enter this command into an immediate window, but there was no response.
However, I think I solved this riddle. I was setting up the application for a user to run without seeing the Access environment. So upon opening I was executing the following code to HIDE the toolbars:
Code:
'***********************************************************
'* Hide Tool Bars
'***********************************************************
Private Sub HideToolBars()
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i
End Sub
When the app closes, it's supposed to run code to UNHIDE the toolbars:
Code:
'***********************************************************
'* Show Tool Bars
'***********************************************************
Private Sub ShowToolBars()
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = True
Next i
End Sub
But that code was not running. It is now and all is well.
Thanks for the help everyone.