Waduh! Menurut saya logika anda untuk mencari tahu nomor nota sudah pernah ada atau belum, ribet banget.
Ngapain harus ketik “ribuan” baris code hanya untuk mengecek sudah ada nomor nota tersebut atau belum. Lebih gampangnya pada field No_nota, anda pasang primary key. From: [email protected] [mailto:[email protected]] On Behalf Of •SetyT• Sent: 11 Maret 2009 9: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 No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.237 / Virus Database: 270.11.9/1989 - Release Date: 03/07/09 18:43:00
