3464 error received - SQL Server Forums

Please start any new threads on our new site at https://forums.sqlteam.com. We've got lots of great SQL Server experts to answer whatever question you can come up with.

All Forums

Other Forums

MS Access

3464 error received

Author

Topic

Trudye
Posting Yak Master

169 Posts

Posted - 2009-07-07 : 08:14:10

Hi guys
I am recieving the following error: 3464 Error found data type mismatach in criteria expression
Function Update_table()
Dim db1 As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim sDsloan As String

On Error GoTo Err_Rtn

Set db1 = DBEngine(0)(0)
Set rs1 = db1.OpenRecordset("_Tbl_Fees_Cncls_06222009", dbOpenDynaset)
Set rs2 = db1.OpenRecordset("TRN", dbOpenDynaset)

Do While Not rs1.EOF

'sDsloan = rs1!dsloan

rs1.FindFirst "DSLOAN = " & rs2!Trloan
If rs1.NoMatch Then
MsgBox "No detail recs present "
GoTo GoRnd
End If
rs1.Edit
rs1!TRCODE = rs2!TRCODE
rs1!TRDATE = rs2!TRDATE
rs1.Update

GoRnd:
If Not rs1.EOF Then
rs1.MoveNext
End If

Loop

rs1.Close
rs2.Close
Exit Function

Err_Rtn:
MsgBox "Err found " & Err.Description & " " & Err.Number
End Function

Thank you,
Trudye

Subscribe to SQLTeam.com

SQLTeam.com Articles via RSS

SQLTeam.com Weblog via RSS

- Advertisement -

Resources