Show database window programatically

6

'69 Camaro

Hi, Jack.

If you want to toggle the hide/unhide state of the Database Window with a
single button, then try:

Private Sub ShowDBWinBtn_Click()

On Error GoTo ErrHandler

Static fShow As Boolean

DoCmd.SelectObject acForm, Me.Name, True

If (Not (fShow)) Then
RunCommand acCmdWindowHide
End If

fShow = Not (fShow) ' Toggle setting for next time.

Exit Sub

ErrHandler:

MsgBox "Error in ShowDBWinBtn_Click( ) in" & vbCrLf & _
Me.Name & " form." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & Err.Description
Err.Clear

End Sub

.. . . where ShowDBWinBtn is the name of the button.

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.

(Please remove ZERO_SPAM from my reply E-mail address so that a message will
be forwarded to me.)
- - -
If my answer has helped you, please sign in and answer yes to the question
"Did this post answer your question?" at the bottom of the message, which
adds your question and the answers to the database of answers. Remember that
questions answered the quickest are often from those who have a history of
rewarding the contributors who have taken the time to answer questions
correctly.
 
J

JackCGW

Worked great (except for the If statement...but I worked it out. Thanks.
Please see my new post "Move feild entries from form to form using global
variables".

Thanks,
Jack
 
Top