Like this:

Public Sub window_database_show()
‘menampilkan database window
DoCmd.SelectObject acForm, , True
End Sub

Public Sub window_database_hide()
‘menyembunyikan database window
DoCmd.SelectObject acForm, , True
DoCmd.RunCommand acCmdWindowHide
End Sub

Advertisement