通過MSAccess 2003中的代碼動態創建查詢[VBA]

Question

您好我需要通過代碼（a.k.a. VB）在MSAccess 2003中創建一個查詢 - 我該如何實現？

Answer 1

一個模糊的答案模糊的問題:)

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

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

Answer 2

感謝這個答案和一小段代碼。如果有人需要定義中使用的變量數據類型，使用此：

Dim strsql As Variant 
    Dim qdf As QueryDef 

Answer 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