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.
