coba gunakan event LostFocus() untuk text1 dan text2
----- Original Message ----- From: abdul ghofur To: [email protected] Sent: Monday, May 05, 2008 11:24 AM Subject: [Programmer-VB] [ask] program edit saya sedang membuat tugas membuat program perpustakaan dengan database menggunakan MS. Access yang diantaranya terdapat tabel DATA_BUKU dengan field2: - Kode_Buku - Judul_Buku - Pengarang - Penerbit - Kota Terbit - Tahun Terbit - Jumlah Sampai halaman Edit saya ingin jika user mengedit kode_buku atau judul_buku dengan nilai yang sudah ada pada database. maka akan muncul pesan "Kode Buku atau Judul Buku sudah ada". Maka saya menuliskan script sebagai berikut : --------------------------------------------------------------------------------- Private Sub Text1_Change() sql = "select * from data_buku where kode_buku = '"& text1.text &"'" Adodc1.RecordSource = sql Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then msgbox "Kode Buku sudah ada" end if end sub --------------------------------------------------------------------------------- Private Sub Text2_Change() sql = "select * from data_buku where judul_buku = '"& text2.text &"'" Adodc1.RecordSource = sql Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then msgbox "judul Buku sudah ada" end if end sub --------------------------------------------------------------------------------- Masalahnya ketika saya mengetikkan kode Buku yang akan diedit dan mengklik Go (saya membuat form tersendiri untuk mencari kode_buku yang akan ddiedit) pesannya keburu muncul. Pertanyaan saya adakah script lain yang lebih benar. This email was Anti Virus checked by Security Gateway. http://www.ptjas.co.id This email was Anti Virus checked by Security Gateway. http://www.ptjas.co.id
