Runtime 3464

[LonC25]

I am getting a runtime error when I try to refresh my datasource. I am connecting to a simple Access database and trying to select all customers with a certain ID. It does that fine but it gives me a runtime error on the data refresh. can anyone help...

Private Sub cmdSubmit_Click()
Dim pstrSQL As String

If txtUserEnteredID.Text <> &quot;&quot; Then
pstrSQL = &quot;SELECT * From tblCustomer &quot; & _
&quot; Where fldCustomerID = &quot; & txtUserEnteredID.Text


datMentor.RecordSource = pstrSQL
datMentor.Refresh
datMentor.Visible = True
End If
End Sub

 

[paulbent]

3464 is a data type mismatch error. I suspect the problem is that although txtUserEnteredID.Text is a string, the Where clause doesn't enclose it in apostrophes and hence the expected data type of the id field is numeric. If id is a text field then try:

pstrSQL = &quot;SELECT * From tblCustomer &quot; & _
&quot; Where fldCustomerID = '&quot; & txtUserEnteredID.Text & &quot;'&quot;


Paul Bent
Northwind IT Systems

http://www.northwindit.co.uk