kenaapa ya apabila saya click cmd cari, tampil inputbox
tetapi ketika saya masukkan nofaknya error ditempat yg saya cetak miring
Private Sub cmdcari_Click()
Dim cr As String
cr = InputBox("Masukkan Kode Faktur yang mau diCari", "PENCARIAN")
rstrs.FindFirst "nofak=" & cr
If rstrs.NoMatch Then
MsgBox "RECORD Transaksi" + cr + "Tidak ada", vbYesNo + vbInformation, "INFORMASI"
rstrs.MoveLast
End If
getdata
End Sub
Dim cr As String
cr = InputBox("Masukkan Kode Faktur yang mau diCari", "PENCARIAN")
rstrs.FindFirst "nofak=" & cr
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.
