create querry at run-time

[ttingen]

If you want to create a QueryDef object at runtime here is an example from DAO help:

Sub CreateQueryDefX()

	Dim dbsNorthwind As Database
	Dim qdfTemp As QueryDef
	Dim qdfNew As QueryDef

	Set dbsNorthwind = OpenDatabase("Northwind.mdb")

	With dbsNorthwind
		' Create temporary QueryDef.
		Set qdfTemp = .CreateQueryDef("", _
			"SELECT * FROM Employees")
		' Open Recordset and print report.
		GetrstTemp qdfTemp
		' Create permanent QueryDef.
		Set qdfNew = .CreateQueryDef("NewQueryDef", _
			"SELECT * FROM Categories")

' Open Recordset and print report.
		GetrstTemp qdfNew
		' Delete new QueryDef because this is a demonstration.
		.QueryDefs.Delete qdfNew.Name
		.Close
	End With

End Sub

Function GetrstTemp(qdfTemp As QueryDef)

	Dim rstTemp As Recordset

	With qdfTemp
		Debug.Print .Name
		Debug.Print "    " & .SQL
		' Open Recordset from QueryDef.
		Set rstTemp = .OpenRecordset(dbOpenSnapshot)

		With rstTemp
			' Populate Recordset and print number of records.

.MoveLast
			Debug.Print "    Number of records = " & _
				.RecordCount
			Debug.Print
			.Close
		End With

	End With

End Function

[JHausmann]

Sounded to me like he wanted to have one (actually 4) queries that serviced any table he creates. Like:



Function BuildSQL(tablename As String) as string

dim sSQL as string

sSQL= "select * from " & trim(tablename) & " where condition"



End Function

[Sparks]

Exactlly right, JHausmann.
I could read the data back out, do the calc, and save the results to their own fields, although the operations are being done on 300+ point waveforms. I won't have a chance to try again till monday. Going back to the querry, I was able to sorta create querries using the db.CreateQueryDef method but they all end up in their own table. Is there a way to group them?

[JHausmann]

Not sure on what you want to group. if the structure of your results will always be the same (ie; data returned for any group of queries is of compatible type), you could union them into a temp table