Coba bantu ya (padahal belum master).. Script saya sederhana aja kok tapi bisa..
Private Sub Text1_LostFocus() Set rscari = New ADODB.Recordset rscari.Open "select * from data where no_nota ='" & Text1.Text & "'", conn If rscari.RecordCount > 0 Then MsgBox "Nomor Sudah Dipakai", vbOKOnly, "PERHATIAN" Text1.SetFocus End If End Sub _____ From: [email protected] [mailto:[email protected]] On Behalf Of .SetyT. Sent: 11 Maret 2009 8:30 To: [email protected]; [email protected] Subject: [Programmer-VB] [ASK] Dobel Record Pagi master semua, saya ada sedikit problem nih, maklum pemula :) Begini saya mencoba menyimpan data nomor nota, begitu nomor nota kesimpan, kita masukin lagi nomor nota tesebut, Supaya nomor nota tersebut tidak dobel, gimana ya caranya. Kesalahan yg muncul seperti dibawah. Run time error \3021' either BOF or EOF is true, or the current record has been deleted. request operation requires a current record Saya mencoba membuat perintah seperti dibawah, database yg digunakan mysql. Private Sub Text1_lostfocus() If Text1.Text = "" Then Exit Sub SCari = "select * from data where No_nota= '" + Trim(Text1.Text) + "'" Set RCari = New ADODB.Recordset RCari.Open SCari, CN, adOpenKeyset, adLockReadOnly If RCari.RecordCount <> 0 Then If RCari("no_nota") = Text1.Text Then MsgBox "Nomor Sudah Dipakai", vbOKOnly, "PERHATIAN" Text1.SetFocus End If Exit Sub End If RCari.Close Set RCari = Nothing End Sub Mohon bantuannya rekan-rekan. Makasih SH
