apa dah di buat primary key di field no notaNya?
itu kan cara yang paling mudah.
untuk antisipasi lewat coding, berarti harus di cari dulu no notaNya sudah ada
pa belum
kalau dah ada, tidak boleh di proses..coding anda sudah betul tuh sesuai
logika.cuman ada yang dikoreksi dikit.
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
'kalau dah tidak sama dengan 0 berarti kan ketemu atau bisa dengan cara lain
' if RCari.recordcount > 0 then
If RCari("no_nota" ) = Text1.Text Then ' baris berikut dihilangkan saja
MsgBox "Nomor Sudah Dipakai", vbOKOnly, "PERHATIAN"
Text1.SetFocus
' tambahan else proses simpan
End If
Exit Sub
End If
RCari.Close
Set RCari = Nothing
End Sub
--- Pada Rab, 11/3/09, •SετyΘ• <[email protected]> menulis:
Dari: •SετyΘ• <[email protected]>
Topik: [Programmer-VB] [ASK] Dobel Record
Kepada: [email protected], [email protected]
Tanggal: Rabu, 11 Maret, 2009, 1: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
Nikmati chatting lebih sering di blog dan situs web. Gunakan Wizard
Pembuat Pingbox Online. http://id.messenger.yahoo.com/pingbox/
