Terima kasih response cepatnya suhu Haer. Kok gak kepikir ya ... bodonya aku 
....salam , 
Michael
--- Pada Rab, 19/8/09, Haer Talib <[email protected]> menulis:

Dari: Haer Talib <[email protected]>
Judul: Re: [belajar-access] VBA Coding
Kepada: [email protected]
Tanggal: Rabu, 19 Agustus, 2009, 1:47 PM












 
 




    
                  coba tambahkan acDialog menjadi:

DoCmd.OpenForm "form2",,,,,acDialog

Haer


2009/8/19 jaman purba <[email protected]>













 




    
                  Mohon bantuan teman2 untuk permasalahan coding dibawah .....

Pertanyaan saya adakah cara :

1. untuk coding C agar pesan tidak ditampilkan sebelum form2 tertutup ( seperti 
di Delphi ( coding A ) atau seperti menggunakan InputBox ( coding B ) )

2. Bisakah tampilan inputBox dibuat ( diset input mask = Password / pakai VBA ) 
, seperti setting pd textbox ? 



//Coding A

procedure TForm1.Button1Click (Sender: TObject);

begin

 Application. CreateForm( Tform2, form2);

 form2.ShowModal;  // menampilkan form2 dg kondisi form = modal , sehingga 
pesan baru tampil bila form2 tertutup.

 showmessage('Pesan ini baru tampil bila form2 di tutup');

end;

------------ ------

'Coding B

Private Sub cmd1_Click()

A = InputBox("INPUTKAN nilai", "Input Box")

MsgBox "Pesan ini baru tampil bila input box tertutup" , vbInformation , 
"Message"

End Sub

------------ ------

'Coding C

Private Sub cmd1_Click()

DoCmd.OpenForm "form2"

        'Forms!form2. Modal = True  'baik properties form2 diset = modal atau 
set modal pakai vba pesan dibawah otomatis dijalankan tanpa menunggu form2 
tertutup dahulu.

MsgBox "Pesan ini otomatis tampil tanpa harus menunggu form2 tertutup" , 
vbInformation , "Message"

End Sub




 

      

    
    
        
        
        
        


        


        
        
        
        
        




-- 


Anda Punya Toko?
Pakai MyStore (www.rumahaccess. com)
Program Kasir/POS lengkap dengan inventory control.
Khusus untuk toko pribadi, outlet, butik, rumah busana, dsb.




 

      

    
    
        
         
        
        




        




        
        


        
        
        




      Lebih aman saat online. Upgrade ke Internet Explorer 8 baru dan lebih 
cepat yang dioptimalkan untuk Yahoo! agar Anda merasa lebih aman. Gratis. 
Dapatkan IE8 di sini! 
http://downloads.yahoo.com/id/internetexplorer/

Kirim email ke