Créer une requête dynamiquement à l'aide de code dans MSAccess 2003 [VBA]

Salut j'ai besoin de créer une requête dans MSAccess 2003 à l'aide de code (un.k.un. VB) - comment puis-je accomplir?

OriginalL'auteur Andrew G. Johnson | 2008-12-23

  1. 27

    Une vague réponse d'une vague question 🙂

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

Set qdf=CurrentDB.CreateQueryDef("NewQuery",strSQL)
DoCmd.OpenQuery qdf.Name
    Pouah j'ai essayé des choses semblables à ce pendant les 3 dernières heures 🙁 Merci beaucoup

    OriginalL'auteur Fionnuala

  2. 4

    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
    Dim strSQL as String

    OriginalL'auteur Oliver R.

  3. 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

    OriginalL'auteur Romana Ahmad