assalamu'alaikum
 
mas sofyan. terimakasih atas ilmunya.
dan memang itu yang saya inginkan.

Thanks & Best Regards 

Narupi 

 

________________________________

From: [email protected]
[mailto:[EMAIL PROTECTED] On Behalf Of Sofyan Efendi
Sent: Monday, July 30, 2007 2:51 PM
To: [email protected]
Subject: Re: [belajar-access] Restore down



Kalau main window kecil sendiri sesuai size form, saya belum tahu, tapi
kalau main window nya ilang alias nggak keliatan saat buka form tsb, Mas
Narupi bisa melakukan beberapa langkah sbb:
 
Pastikan properties "Pop up" dan "Modal" dari form tersebut diset
menjadi True (Yes). Kemudian pada properties VBA form tsb, tambahkan
procedure sbb:

Option Compare Database
Option Explicit
Private Declare Function ShowWindow Lib "user32" ( _
ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Form_Open(Cancel As Integer)
On Error GoTo nol
    Dim lngReturn As Long
    lngReturn = ShowWindow(Application.hWndAccessApp, 0)
nol:
End Sub

Private Sub Form_Close()
On Error GoTo nol
    Dim lngReturn As Long
    lngReturn = ShowWindow(Application.hWndAccessApp, 3)
nol:
End Sub
 
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/ <http://opi.110mb.com/> 

        ----- Original Message ----- 
        From: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>  
        To: [email protected]
<mailto:[email protected]>  
        Sent: Monday, July 30, 2007 2:18 PM
        Subject: [belajar-access] Restore down


        
        > Dear pakar access.
        > Saya member baru nih dan langsung saja saya mau minta tolong.
        > 
        > Bagaimana ya source code untuk mengecilkan jendela windows
pada
        > microsoft access. Bukan formnya. 
        > Jadi jika membuka file tertentu yang berbentuk access maka
secara
        > otomatis windows akan mengecil.
        > Lihat attach
        > 
        > Thanks & Best Regards
        > 
        > Narupi
        > Incoming Material
        > Infineon Batam
        > Telp. (0778) 611204 ext: 406
        > mailto:[EMAIL PROTECTED] <mailto:narupi%40infineon.com> 
        > 
        > 
        

 

Kirim email ke