Type mismatch

[hrg]

I keep on getting a type mismatch with the line of code below

Set rs = db.OpenRecordset("temp", dbOpenDynaset)

Below is the code


Private Sub Text43_Change()

Dim db As Database
'Dim qdf As QueryDef
'Dim strSQL As String
Dim rs As Recordset
Dim i As Integer

Set db = CurrentDb
Set rs = db.OpenRecordset("temp", dbOpenDynaset)

'DoCmd.RunSQL "Delete * from tblAddressMatch"
If Not (IsNull(Text43)) Then
For i = 1 To Text43
rs.AddNew
rs!Text43 = Text43
rs.Update
Next i
End If

Text43 = Null

End Sub

 

[Craig0201]

You need to declare the recordset as either ADO.Recordset or DAO.Recordset and ensure there is an appropriate reference to the ADO or DAO code library.

Craig

 

[jgoodman00]

It should be either:
Dim db as DAO.Database, rst as DAO.RecordSet or
Dim rst as ADODB.RecordSet James Goodman