Créer une requête dynamiquement par le code dans MSAccess 2003 [VBA]

Question

Salut J'ai besoin de créer une requête dans MSAccess 2003 par le code (a.k.a. VB) - comment puis-je accomplir cela?

Answer 1

Une vague réponse pour une question vague :)

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

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

Answer 2

Merci pour cette réponse et le petit morceau de code. Si quelqu'un a besoin de définir les types de données pour les variables utilisées, utilisez ceci:

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