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.
