field no nota jadikan sbg autoincrement type, jadi otomatis bertambah sendiri dan tak mungkin sama(klo tabelnya gak di-empty sih)
--- On Wed, 3/11/09, •SετyΘ• <[email protected]> wrote: From: •SετyΘ• <[email protected]> Subject: [Programmer-VB] [ASK] Dobel Record To: [email protected], [email protected] Date: Wednesday, March 11, 2009, 8:30 AM 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
