Runtime error 3464

[abzalali]

Dear Expert,
I'm getting run-time error with this code below:

Private Sub cboInv_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[InvoiceNumber] = " & Str(Nz(Me![cboInv], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Please help me.

Thanks
Mir

 

[vbaInet]

What is the full error message abzalali? 3464 means nothing to me.

 

[jdraw]

Why are you using Str()?
If InvoiceNumber is a text data type you could try

rs.FindFirst "[InvoiceNumber] = '" & Str(Nz(Me![cboInv], 0)) & "'" but

do you really have an InvoiceNumber "0"?

 

[abzalali]

Thanks all of you, it's data type mismatch in criteria expression.
[InvoiceNumber] and [cboInv] both are text not number

 

[vbaInet]

Ok, for next time please include the error message and not just the error code.

 

[abzalali]

Dear jDraw,
Done with this code and thank you very much.

Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[InvoiceNumber] =  '" & Me![cboInv] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

 

[abzalali]

Dear vbaInet,
Next time this will not happen by me. I'm really sorry for that.

Thanks Mir

 

[vbaInet]

Thanks sir

 

[jdraw]

Ditto --vbaInet is just tooooo fast!

 

[vbaInet]

Ditto --vbaInet is just tooooo fast!

I'll slow down for you jdraw