Converting to Access 2007

[sajuk]

Hi,

Am interested in migrating my app to Access 2007 to make use of the free availability of the Access 2007 runtime/developer tools, howver having some problems with the script below.

Dim db As Database
Dim qdf As QueryDef
Dim prm As Parameter
Dim rs As Recordset
Dim inte As Integer
 
Dim strCashier As String
Dim strCatId As String
 
Set db = CurrentDb
Set qdf = db.QueryDefs("CashierSelect1")
 
    For Each prm In qdf.Parameters
            prm.Value = Eval(prm.name)
    Next prm
 
Set rs = qdf.OpenRecordset(dbOpenDynaset)

Access2007 throws up a 'Mismatch' error at line 17 - works fine in Acc2000 and 2003, any ideas.

Thanks in advance.

[MMcCarthy]

Not sure why its not working but to get around the problem try the following:

Dim db As DAO.Database
Dim qdf As QueryDef
Dim prm As Parameter
Dim rs As Recordset
Dim inte As Integer
Dim strCashier As String
Dim strCatId As String
 
    Set db = CurrentDb
    Set qdf = db.QueryDefs("CashierSelect1")
 
    For Each prm In qdf.Parameters
        prm.Value = Eval(prm.Name)
    Next prm
 
    Set rs = db.OpenRecordset("CashierSelect1", dbOpenDynaset)