Question on Type Mismatch error 1

[cojiro]

Can anyone tell me why I'm getting the "Runtime error 13: Type Missmatch" when trying to run the following code...

Public Sub CreateAuditTable()
   ' Dim MasterRS As Recordset
    Dim AuditIDs As Recordset
    Dim TranCounter As Recordset
    Dim db As DAO.Database
    Dim NumTrans As Integer
    Dim NumAudit As Integer
    Dim Count As Integer
    Dim STR As String
    
    
    Set db = CurrentDb
    
    STR = "SELECT distinct SysCordTrans.[USER ID] FROM SysCordTrans"
    Set AuditIDs = db.OpenRecordset(STR)

The error occurs on line:
Set AuditIDs = db.OpenRecordset(STR)

Thanks!

 

[RoyVidar]

Two possibilities
1 - ensure the Microsoft 3.# Object Library is checked (in VBE - Tools | References)
2 - explicitly declare the recordset variable
[tt]dim AuditIDs as dao.recordset[/tt]

Roy-Vidar

 

[cojiro]

Thanks, Option 2 worked.