quote:

---

Originally posted by rrb
What version of Access - are you using an Access .adp project or are you working from an Access .mdb file?

---

quote:

---

Originally posted by rrb
are you envisaging creating the table and then deleting it for each query, or can you leave the table on the server and just change data?

---

create table RobsTest (id int identity(1,1), col1 varchar(50))

Public Function DoQuery() As Boolean
Dim db As Database
Dim qdf As QueryDef
Dim rst As Recordset
Dim SQL As String

    On Error GoTo Err_DoQuery
    
    Set db = CurrentDb
    
    'Create parameter table
    Set qdf = db.CreateQueryDef("")
    qdf.Connect = "ODBC;DSN=local;Trusted_Connection=yes;"
    qdf.SQL = "create table tempQueryParam (id int identity(1,1), param1 varchar(50))"
    qdf.ReturnsRecords = False
    qdf.Execute

    'Insert Search Parameters
    qdf.SQL = "insert into tempQueryParam (param1) values ('Paris')"
    qdf.Execute
    
    'Run Search
    qdf.ReturnsRecords = True
    qdf.SQL = "select spy from spies a inner join tempQueryParam b on a.town = b.param1"
    Set rst = qdf.OpenRecordset()
    
    Do While Not rst.EOF
        Debug.Print rst.Fields("spy")
        rst.MoveNext
    Loop
    rst.Close
    
    'Clean up
    qdf.ReturnsRecords = False
    qdf.SQL = "drop table tempQueryParam"
    qdf.Execute
    
    Set qdf = Nothing
    DoQuery = True

Exit_DoQuery:
    Exit Function

Err_DoQuery:
    MsgBox Err.Description
    Resume Exit_DoQuery
End Function

create table tblSelect (id int identity(1,1), param1 varchar(50), param2 varchar(50), param3 varchar(50), param4 varchar(50))"

SELECT dboSVR_Name, dbo_SVR.DateTime, dbo_SVR.SampledValue
FROM dbo_SVR INNER JOIN tblSelect ON (dbo_SVR.Parm1 = tblSelect.Parm1) AND (dbo_SVR.Parm2 = tblSelect.Parm2) AND (dbo_SVR.Parm3 = tblSelect.Parm3) AND (dbo_SVR.Parm4 = tblSelect.Parm4)
WHERE (((dbo_SVR.DateTime)>=convert(Datetime, '1/31/2005 13:50:0', 101) And (dbo_SVR.DateTime)<convert(Datetime, '2/22/2005 13:50:0', 101));