Создать запрос динамически через код в MSAccess 2003 [VBA]

Привет, мне нужно создать запрос в MSAccess 2003 с помощью кода (a.k.a. VB) - как я могу это сделать?

Ответ 1

Смутный ответ для неопределенного вопроса:)

strSQL="SELECT * FROM tblT WHERE ID =" & Forms!Form1!txtID 

Set qdf=CurrentDB.CreateQueryDef("NewQuery",strSQL)
DoCmd.OpenQuery qdf.Name

Ответ 2

Спасибо за этот ответ и небольшой кусок кода. Если кому-то нужно определить типы данных для используемых переменных, используйте это:

    Dim strsql As Variant
    Dim qdf As QueryDef

Ответ 3

Dim strSql As String 'as already in example
Dim qdf As QueryDef 'as already in example

strSql = "SELECT * FROM tblT WHERE ID =" & Forms!Form1!txtID 'as already in example

On Error Resume Next
'Delete the query if it already exists
DoCmd.DeleteObject acQuery, "NewQuery"

Set qdf = CurrentDb.CreateQueryDef("NewQuery", strSql) 'as already in example
DoCmd.OpenQuery qdf.Name 'as already in example

'release memory
qdf.Close 'i changed qdef to qdf here and below
Set qdf = Nothing