Erstellen Sie eine Abfrage dynamisch über Code in MSAccess 2003 [VBA]

Question

Hallo Ich muss eine Abfrage in MSAccess 2003 durch Code (a.k.a. VB) erstellen - wie kann ich dies erreichen?

Answer 1

Eine vage Antwort für eine vage Frage :)

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

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

Answer 2

Dank für diese Antwort und das kleine Stück Code. Wenn jemand braucht, um die Datentypen für die Variablen verwendet, um zu definieren, verwenden Sie diese:

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