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 not Rcari.EOF then
MsgBox "Nomor Sudah Dipakai", vbOKOnly, "PERHATIAN"
Text1.SetFocus
End If
RCari.Close
Set RCari = Nothing
End Sub
•SετyΘ• wrote:
>
> 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
>
>
