pake eventnya keydown aja, jadi pada saat ditekan tombol enter baru diproses.
habis diketik nama kode bukunya terus dienter
coba pake script ini
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As
Integer)
if keycode = 13 then
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 if
end sub
---------------------------------------------------------------------------------
Private Sub Text2_KeyDown(Index As Integer, KeyCode As Integer, Shift As
Integer)sql =
if keycode = 13 then
"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 if
end sub
----- Original Message -----
From: abdul ghofur
To: [email protected]
Sent: Monday, May 05, 2008 4:28 PM
Subject: [Programmer-VB] 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.
