Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
DAO Parameter Type Mismatch
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
DAO Parameter Type Mismatch
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Type Mismatch: array or user defined type expected | Excel Programming | |||
Type mismatch using rnge as Range with Type 8 Input Box | Excel Programming | |||
Help: Compile error: type mismatch: array or user defined type expected | Excel Programming | |||
type mismatch | Excel Programming | |||
Type mismatch? | Excel Programming |