Hi

Can anybody help me with regards to the error I get from this code.

Run-time error '13':

Type mismatch

Why does this appear.

Regards

D

Sub DatabaseTest()

Dim dbsLinksdata As Database
Dim qryDepartments As QueryDef
Dim prmDepartment As Parameter

Set dbsLinksdata = OpenDatabase("C:\LinksSystem\LinksStore.mdb")

Set qryDepartments = dbsLinksdata.CreateQueryDef("", "PARAMETERS
strdepartment Text; SELECT * FROM chooser_DivisionsAndDepartments WHERE
DivisionName = [strDepartment]")

Set prmDepartment = qryDepartments.Parameters!strdepartment <<< Error
appears here

ChangeTheParameters qryDepartments, prmDepartment, "Central IT"

'dbsLinksdata.OpenRecordset (qryDepartments)

End Sub

Sub ChangeTheParameters(qryTemp As QueryDef, prmDepartment As Parameter,
strdepartment As String)

Dim rstTempSet As Recordset
Dim fldName As Field

prmDepartment = strdepartment

Set rstTempSet = qryDepartments.OpenRecordset(dbForwardOnly)

Debug.Print "Department " & strdepartment

Do While Not rstTempSet.EOF

For Each fldName In rstTempSet.Fields
Debug.Print " - " & fldName.Name & " = " & flname;
Next fldName

Debug.Print

rstTempSet.MoveNext

Loop

rstTempSet.Close

End Sub

This worked for me.

Sub MyQuery()
Dim db As Database
Dim qdf As QueryDef

Set db = OpenDatabase("c:\temp\db1.mdb")
Set qdf = db.QueryDefs("Query1")
qdf.Parameters("[Div]") = "Pants"
Set rst = qdf.OpenRecordset()
Debug.Print rst("Div")
End Sub

Hth,
Merjet