To hide the database window:
Private Sub cmdHide_Click()
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End Sub
To show the database window:
Private Sub cmdShow_Click()
DoCmd.SelectObject acTable, , True
DoCmd.SelectObject acForm, Me.Name
End Sub