11 Mei 2008

Menampilkan dan menyembunyikan Access main window

maksudnya adalah bagaimana kita menyembunyikan atau menampilkan windows utama, jadi nanti setelah keluar form, maka window yang ada toolbar dan menubarnya hilang, jadi tampilannya persis kaya form buatan Visual Basic. emang bisa ?

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 Long

Public 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