Discussion :

[Zavonen]

Bonjour à tous.
J'ai construit un formulaire access. Au moment d'appuyer sur un bouton OK, j'ai construit, dans une chaîne nommée SQLQ, une requête SQL tout à fait conforme à la syntaxe retenue par ACCESS.
Je voudrai lancer automatiquement cette requête.
J'ai essayé ce code, récupéré sur un forum:

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
16
'Activation de la base de donnée en cours
# Set bds = CurrentDb
# bds.QueryDefs.Refresh
#
# ' Si la requête NouvelleRequête existe, la supprime.
# For Each qdf In bds.QueryDefs
# If qdf.Name = "NouvelleRequête" Then
# bds.QueryDefs.Delete qdf.Name
# End If
# Next qdf
#
 
# ' Crée un objet QueryDef.
# Set qdf = bds.CreateQueryDef("NouvelleRequête", SQLQ)
#
# Set bds = Nothing

Mais cela ne fait strictement RIEN (même pas une erreur)
Quelqu'un peut-il m'aider?
Merci

[Lou Pitchoun]

Salut,

Pour exécuter la requête, il te manque :

• si tu exécutes directement le SQL
  

  Code :

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

  DoCmd.RunSQL SQLQ

• si tu passes par une requête
  

  Code :

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

  dbs.Execute "NouvelleRequête"

[Zavonen]

Merci !
J'ai essayé tes deux suggestions.
Aucun effet, toujours RIEN.
Cependant le code généré est bon.
J'en suis sûr car je lui fais afficher dans un controltext sur le formulaire.
Si je fais un copier-coller, que je crée manuellement une requête SQL et que je colle le code généré, la requête s'exécute et le résultat est correct.
PS:
J'ai déjà essayé beaucoup de choses suggérées dans la doc ou les forums
fonction membre execute des querydef
boucle while avec RecordSet
etc.. etc..
jamais aucun effet et jamais d'erreur.
Troublant !

[Kloun]

Quand tu exécutes ton code pas à pas, tu passes bien dans le bousin ?

[Lou Pitchoun]

Essai ceci ;

Si ça ne fonctionne pas, c'est décidé j'arrête Access.

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
16
17
18
19
20
    'Activation de la base de donnée en cours
    Dim bds As DAO.Database
    Dim qdf As DAO.QueryDef
 
    Set bds = CurrentDb
 
    ' Si la requête NouvelleRequête existe, la supprime.
    For Each qdf In bds.QueryDefs
        If qdf.Name = "NouvelleRequête" Then
            bds.QueryDefs.Delete qdf.Name
        End If
    Next qdf
 
 
    ' Crée un objet QueryDef.
    Set qdf = bds.CreateQueryDef("NouvelleRequête", "SQLQ")
    bds.Execute "NouvelleRequête"
    bds.QueryDefs.Refresh
 
    Set bds = Nothing

[Zavonen]

L'interprète refuse:
Dim bds As DAO.Database
message:
Type défini par l'utilisateur non défini !!!!

Je suppose qu'il faut placer qqpart un import (include) DAO
c'est un portage VBA des MFC.

[Zavonen]

Voici le code actuel, enfin la partie utile ...

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
16
17
18
19
20
WHEREAND = WHEREAND + WHEREdocsh
WHERE = WHERE + WHEREAND
SQLQ = "SELECT * FROM [orders]" & vbCrLf & WHERE
SQL.Value = SQLQ
SQL.Requery
 'Activation de la base de donnée en cours
Set bds = CurrentDb
bds.QueryDefs.Refresh
 ' Si la requête NouvelleRequête existe, la supprime.
For Each qdf In bds.QueryDefs
If qdf.Name = "NewQuery" Then
bds.QueryDefs.Delete qdf.Name
End If
Next qdf
' Crée un objet QueryDef.
Set qdf = bds.CreateQueryDef("NewQuery", SQLQ)
'bds.Execute ("NewQuery") ne marche pas !!!
'qdf.Execute ne marche pas non plus !!!
bds.Execute (qdf) 'génère la requête qui contient le bon résultat mais refuse de l'ouvrir ???
Set bds = Nothing

Il semble que le problème se trouve au niveau de la syntaxe de 'execute'.
Parmi toutes les variantes que j'ai pu trouver, et elles sont nombreuses, seule celle que j'ai signalé fonctionne (du moins dans ce cas de figure).
C'est presque tout bon, il crée la requête, on peut alller l'ouvrir et l'exécuter, le résultat est correct. Au point de vue syntaxique il a fait les deux corrections suivantes:
Enlever les crochets autour du nom de la table (jamais rien compris à cette pratique ACCESS), et, c'est un minimum, rajouter le ';' de fin 'instruction SQL.
Je ne suis pourtant pas satisfait car pour le moment il refuse de l'ouvrir pour un problème de 'conversion de type'.
Mais alors, pourquoi la requête générée fonctionne-t-elle ?

[Zavonen]

Bon, avec des messages d'erreur aussi précis je ne peux pas m'en sortir.
Il faut pourtant en finir.
J'ai donc créé une macro qui ouvre la requête générée, et j'appelle cette macro, par la sortie normale et par la sortie en erreur.
Pas de quoi être fier, je shunte ainsi les vraies erreurs qui pourraient survenir.
Cest une horreur, il n'y a qu'à croiser les doigts.
Si vous avez une meilleure idée, je prends.
En l'état tout fonctionne
Merci à tous.

[Lou Pitchoun]

L'interprète refuse:
Dim bds As DAO.Database
message:
Type défini par l'utilisateur non défini !!!!

Je suppose qu'il faut placer qqpart un import (include) DAO
c'est un portage VBA des MFC.

Il faut référencer DAO x.x.

Ouvre un module,
Menu Option-> Référence
Coche la référence Microsoft DAO x.x