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