ajaib, bisa nyambung ya .. yg tanya-yg jawab, herjun-haer-michael .... :) Aksan Kurdin
SWS Software and Web System wrote: > > > 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] </mc/[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 <http://www.rumahaccess.com>) > Program Kasir/POS lengkap dengan inventory control. > Khusus untuk toko pribadi, outlet, butik, rumah busana, dsb. > > > ------------------------------------------------------------------------ > Coba Yahoo! Mail baru yang LEBIH CEPAT. Rasakan bedanya sekarang! > <http://id.mail.yahoo.com> >
