coba aja code berikut pada form, namun pastikan properti form Untuk
popup=true
modal=true
atau akan terjadi sesuatu diluar kehendak Yang maha kuasa………
Private Declare Function ShowWindow Lib “user32″ _
(ByVal hwnd As Long, _
ByVal nCmdShow As Long) As LongPublic Sub window_main_show()
Call ShowWindow(Application.hWndAccessApp, 3)
CommandBars.ActiveMenuBar.Enabled = True
End Sub
Public Sub window_main_hide()
Call ShowWindow(Application.hWndAccessApp, 0) ‘ untuk amannya coba angka o di ganti 2
End Sub
contoh pemakaian pada form :
‘menyembunyikan/menutup window utama pada waktu form dibuka
Private Sub Form_Open(Cancel As Integer)
window_main_hide
End Sub‘menampilkan window utama pada waktu form dibuka
Private Sub Form_Open(Cancel As Integer)
window_main_show
End Sub