Discussion :

[Le Sage]

Bonjour à toutes et tous !

Tout est indiqué dans le titre : une requête créée en VBA n'apparaît pas dans le panneau de navigation...

J'ai tenté 3 approches :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub CreationRequete1()
    Dim strNomRequete As String, strSql As String
 
    strNomRequete = "R_TEST"
    strSql = "SELECT * FROM T_TEST;"
 
    With CurrentDb
        .CreateQueryDef strNomRequete, strSql
        .QueryDefs.Refresh
    End With
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub CreationRequete2()
    Dim daoQry As DAO.QueryDef
    Dim strNomRequete As String, strSql As String
 
    strNomRequete = "R_TEST"
    strSql = "SELECT * FROM T_TEST;"
 
    With CurrentDb
        Set daoQry = .CreateQueryDef(strNomRequete, strSql)
        .QueryDefs.Refresh
    End With
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub CreationRequete3()
    Dim daoQry As New DAO.QueryDef
    Dim strNomRequete As String, strSql As String
 
    strNomRequete = "R_TEST"
    strSql = "SELECT * FROM T_TEST;"
 
    With daoQry
        .SQL = strSql
        .Name = strNomRequete
    End With
 
    CurrentDb.QueryDefs.Append daoQry
End Sub

Les 3 versions créent bien la requête (puisque CurrentDb.QueryDefs.delete "R_TEST" ne renvoie pas d'erreur), mais la requête n'apparaît pas dans le volet de navigation...
Diverses manipulations m'amènent à penser que c'est ledit volet de navigation qui ne se met pas à jour, mais je n'ai rien trouvé qui le permette...

Merci d'avance pour votre aide !

[tee_grandbois]

Bonjour,
sans un Refresh cela ne se fait pas automatiquement (c'est comme un formulaire)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RefreshDatabaseWindow

à la fin du code devrait résoudre ton souci

[Le Sage]

Ben voilà !

C'est exactement l'instruction que je cherchais !

Merci beaucoup tee_grandbois pour ta réponse aussi rapide qu'efficace !