List / Find Procedure Help

[Ausburgh]

Please Help!

I'm trying to list all the records in one of my databases (Trip) by searching the "TravelAmt" field which is a numeric (a double to be specific)field.

I'm getting a:

---
"Run-time error '3464':
Data type mismatch in criteria expression
----

I know I can't use Chr$() (because it is a string) but I don't know what to put in there either.

My code:
------------------------
Private Sub List2_Click()

Dim Template As String

Template = "[TravelAmt] = " & Chr$(10) & List2.List(List2.ListIndex) & Chr$(10)
Trip.AccessTrip.Recordset.FindFirst Template
End Sub

-------

Thanks in advance

 

[Golom]

Try

Template = "[TravelAmt] = " & Val(List2.List(List2.ListIndex))

[small]No! No! You're not thinking ... you're only being logical.
- Neils Bohr[/small]

 

[Ausburgh]

Thanks Golom - I really appreciate it.

 

[comaboy]

Also, Chr(10) is the NewLine Character. Chr$(34) is double-quotes. Try:

To search for numerics, leave off the quotes:

Template = "[TravelAmt] = " & List2.List(List2.ListIndex)

FYI, When searching strings:

Template = "[TravelAmt] = " & Chr$(34) & List2.List(List2.ListIndex) & Chr$(34)

or even

Template = "[TravelAmt] = """ & List2.List(List2.ListIndex) &