[SQL-> VBA] (débutant) comment récupérer une requète SQL en VBA

Bonsoir a tous

Voila tout d'abord si un sujet similaire a été poster je m'en excuse maisje me pers un peu sur se grand forum. :cry:

Voila donc je fais actuellement une terminale informatique et j'essaie tant bien que mal de me dépétrer en VBA mais c'est pas gagner.

C'est pourquoi jeme suis créer une petite base de donnée afin de tester les points que je connais et ceux que je trouve sur les tutos.

Mais je n'arrive pas a transferer une requete SQL en VBA j'ai cru apercevoir sur quelque requete du même type un code spécifique a entrer pour pouvoir effectuer cette action.

Donc si quelqun pouvait m'aider cela m'arrengerai. Ou sinon me rediriger vers un sujet qui pourrais m'aider.

Voila merci d'avance :)

Bonjour et sois le bienvenu sue le Forum Access de DVP.

Il est un peu normal qu'au début tu te perdes un peu, le site est vaste.

Tu pourras trouver une réponse à ta question ici

Salut

Citation:

---

transferer une requete SQL en VBA

---

:koi:
Tu veux dire récupérer le SQL de la requête ??

En suivant le lien de Heureux-oli, ajoute :

Code:

---

Debug.print qdf.SQL

---

Bonsoir a vous

Déjà un grand merci à vous :)

En fait pour expliciter plus clairement ma demande j'ai créer une requète en SQL et je souhaiterais que VBA la lance .Et cela afin de pouvoir associer le code VBA a un bouton par la suite.

Donc voila ma requète SQL se nomme "Septembre" (elle mafiche le nom et prénom de personne en fonction de dates)

Et en VBA a l'aide du tutos et de vos conseil j'arrive a cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Sub Test() Dim qdf As DAO.QueryDef Dim rcs As DAO.Recordset Debug.Print qdf.SQL     Set qdf = CurrentDb.QueryDefs("Septembre")       qdf.Execute     Set qdf = Nothing End Sub

---

Mais il n'a pas l'air de trop apprecier :?

Alors je me permet d'abuser un petit peu en vous demandant qu'est ce qui ne va pas

Salut,

Citation:

---

Envoyé par Renoren

ma requète SQL se nomme "Septembre"

---

Et un,

Code:

---

Docmd.OpenQuery "Septembre"

---

Ne suffirait-il pas ? 8O

Re bonjour


DSL je m'était tromper et dans ma hate j'avais oublier la procédure :aie: Merci ft035580

Bon et bien un grand merci a tous pour vos conseil ;)

Et puis je pense que jevais être amener a repasser sur le forum :lol:

Bon jour pour ce code !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim qdf As DAO.QueryDef Dim rcs As DAO.Recordset   'référence à la requête Set qdf = CurrentDb.QueryDefs("NomQuery")   'code qui utilise qdf 'par exemple qdf.Parameters("NomParamètre") = valeur '<== si requête paramétrée qdf.Execute '<== si requête action Set rcs = qdf.OpenRecordset '<== pour travailler sur les données     'libération de la référence Set qdf = Nothing

---

Si requete parametré veut dire quoi ?

Sa veut dire que la valeur doit etre normalement ce que l'on rentre lorsqu"on execute notre requete ?

que doit on mettre dans valeur ?
et dans nomparametre, la meme question que la requete ?

merci