Cari data Customer Error
KK Tanya
Saya mau program untuk cari data customer nah saya pake kaya gini (pake MS
Access)
Private Sub TxtCariCustomer_AfterUpdate()
If TxtCariCustomer <> "" Then
Me.RecordsetClone.FindFirst "[customerID]='" & Me!TxtCariCustomer & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
Else
MsgBox "tidak ada", vbOKOnly, "warning"
End If
End Sub
Error terus Pesan error nya
run time error 3464
Data type mismatch in criterion expression
Kira2 apanya yang mismatch ya???
Soalnya di tblCustomer.customerID udah number,
Terus kalo pake ADO kira2 gimana caranya ya??
Saya coba pake Kode ini, juga error
Private Sub TxtCariCustomer_AfterUpdate()
Dim msql As String
If TxtCariCustomer.Value <> "" Then
msql = "SELECT * FROM tblCustomer " & _
" WHERE CustomerID='" & TxtCariCustomer.Value & "'" & _
" ORDER BY CustomerID"
Set rs = cnn.Execute(msql)
If Not rs.EOF Then
txtNamaCompany = rs.Fields("NamaCompany")
txtAlamat = rs.Fields("Alamat")
txtKota = rs.Fields("Kota")
txtTelp = rs.Fields("Telp")
txtKontak = rs.Fields("Kontak")
Else
Msgbox data tidak ada, vbokonly, informasi
End If
rs.Close
End If
End Sub
Tolong dong, mohon petunjuknya
Makasih
Send instant messages to your online friends http://uk.messenger.yahoo.com
[Non-text portions of this message have been removed]
