Pagi juga, tp gw bukan master... :P
Error itu muncul secara dilakukan update tanpa addnew padahal cursor pada posisi eof ato bof Metode validasi nya dah bener tp lebih bagus event nya di text1_validate() Sayangnya loe gak ngasih liat prosedur simpan-nya bro Di prosedur simpan cek dulu / cek ulang exists gak nya no_nota. Kalo gak ada, tambahkan perintah addnew, selanjutnya langsung update (= posisi edit). Cek ulang ini harga mutlak untuk menghindari redundant / error insert yg disebabkan oleh user lain yg telah insert lebih dulu pada saat yg hampir bersamaan (metode client-server) Semoga memberi pencerahan == salam o p p i e 4 better Indonesia _____ 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
