AQ coba ya mas moga membantu, coba2 juga sih.........
Private Sub Text1_KeyPress()
If KeyAscii = 13 Then
If text1.Text = "" Then
Exit Sub
End If
rsbuku.Find " Kode_Buku ='" & text1.Text & "'", , adSearchForward, 1
With rsbuku
If .EOF Then
Textbox_judul buku
Exit Sub
Else
If Trim(!faktur) = Trim(text1.Text) Then
X = MsgBox("Kode Buku sudah ada", 0, App.Title)
Text1.Text = ""
Text1.SetFocus
End If
End If
End With
End If
Di mana rsbuku mas declare dulu di form_load :
Set con = New ADODB.Connection
con.Open "perpus" (nama user dsnnya)
Set rsbuku.ActiveConnection = con
rsbuku.CursorLocation = adUseClient
rsbuku.CursorType = adOpenKeyset
rsbuku.LockType = adLockOptimistic
rsbuku.Open " DATA_BUKU "
trus di general
Dim con As New ADODB.Connection
Dim rsbuku As New ADODB.Recordset
---------------------------------
Kunjungi halaman depan Yahoo! Indonesia yang baru!
