Sudah coba seperti ini belum ?
rstrs.FindFirst "nofak='" & cr & "'"
Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta
| nur hadi <[EMAIL PROTECTED]>
Sent by: [email protected] 29/06/2005 11:29 AM
|
|
Mohon bantuannya dong saya udah coba untuk merubahnya tetapi tidak bisa jalan juga
kotak inputboxnya bisa tampil tapi ketika dimasukkan "nofak" nya and di enter error ???
dari coding dibawah ini kesalahannya apa ya ??
errornya pada rstrs.FindFirst "nofak="
Private Sub cmdcari_Click()
Dim cr As String
cr = InputBox("Masukkan Kode Faktur yang mau diCari", "PENCARIAN")
rstrs.FindFirst "nofak="
If rstrs.NoMatch Then
MsgBox "RECORD Transaksi" + cr + "Tidak ada", vbYesNo + vbInformation, "INFORMASI"
rstrs.MoveLast
End If
getdata
End Sub
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB"
on the web.
- To unsubscribe from this group, send an email
to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
