Type Mismatch Error 1

[mdmarney]

I am sure this is a simple question...

I am trying to use the MS code for a autolookup drop down on a tect box and button. I am using the following code:

Private Sub Command67_Click()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Last_Name] = " & Str(Nz(Me!Text62, 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

The following statement gives a type mismatch error...
rs.FindFirst "[Last_Name] = " & Str(Nz(Me!Text62, 0))

Help? Thanks! *************
M. MARNEY

http://www.tgw.com

 

[beetee]

try:
rs.FindFirst "[Last_Name] = '" & Nz(Me!Text62, "&quot & "'"

(generating)

[Last_Name] = 'xxx'

 

[mdmarney]

Mucho gracias amgigo.
Trabaja muy bien!

(thanks, it works) *************
M. MARNEY

http://www.tgw.com

 

[SoloDroid]

Hello M. MARNEY,
The problem that your are experiencing is caused because you are dealing with a string value, but you are inadvertently telling Access the you want to look up a numeric value. Here is the correct syntax:

rs.FindFirst "[Last_Name] = '" & Str(Nz(Me!Text62, 0)) & "'"

Hope this helps, Robert
•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•
Professional, affordable, Access database solutions and assistance

http://www.SoloDroid.com

°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°

 

[SoloDroid]

Too late Robert
•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•
Professional, affordable, Access database solutions and assistance

http://www.SoloDroid.com

°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°•°