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:
Mais cela ne fait strictement RIEN (même pas une erreur)
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
Quelqu'un peut-il m'aider?
Merci
Partager