Menurut rekan2, efektifkah kalo kita ingin membuat prosedur save dengan
metode Find, ini saya sertakan contoh code yang saya maksud ?
Mohon masukannya...
Thx
Edi susanto
------------------------------------------------------
With KoneksiUtama.rstblMutasiCek
.MoveFirst
.Find "NoCek = '" & Trim(txtNoCek.Text) & "'"
If .EOF Then
KoneksiUtama.rstblMutasiCek.AddNew
KoneksiUtama.rstblMutasiCek.Fields("NoCek") = txtNoCek.Text
KoneksiUtama.rstblMutasiCek.Fields("CustomerID") =
txtCustomerID.Text
KoneksiUtama.rstblMutasiCek.Fields("TanggalKeluar") =
Format(cmbTanggalKeluar.Value, "dd/mm/yyyy")
KoneksiUtama.rstblMutasiCek.Fields("JumlahTicket") =
txtJumlahTicket.Text
KoneksiUtama.rstblMutasiCek.Update
MsgBox "Penambahan No Cek : " & txtNoCek.Text & " berhasil
!", vbInformation, "Sukses"
Else
If MsgBox("No Cek : " & txtNoCek.Text & " sudah ada, apakah
anda ingin menyimpan perubahan datanya ?", vbYesNo, "Simpan Perubahan Data")
= vbYes Then
KoneksiUtama.rstblMutasiCek.Fields("NoCek") =
txtNoCek.Text
KoneksiUtama.rstblMutasiCek.Fields("CustomerID") =
txtCustomerID.Text
KoneksiUtama.rstblMutasiCek.Fields("TanggalKeluar") =
Format(cmbTanggalKeluar.Value, "dd/mm/yyyy")
KoneksiUtama.rstblMutasiCek.Fields("JumlahTicket") =
txtJumlahTicket.Text
KoneksiUtama.rstblMutasiCek.Update
MsgBox "Perubahan Data No Cek : " & txtNoCek.Text & "
berhasil disimpan", vbExclamation, "Suskes"
Else
txtNoCek.SetFocus
txtNoCek.SelStart = 0
txtNoCek.SelLength = 7
Exit Sub
End If
End If
End With
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
