Discussion :

[Renoren]

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.

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

[Heureux-oli]

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

[Lou Pitchoun]

Salut

transferer une requete SQL en VBA

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

En suivant le lien de Heureux-oli, ajoute :

Code :

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

Debug.print qdf.SQL

[Renoren]

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 :

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
 
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

[ft035580]

Salut,

ma requète SQL se nomme "Septembre"

Et un,

Code :

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

Docmd.OpenQuery "Septembre"

Ne suffirait-il pas ?

[Renoren]

Re bonjour


DSL je m'était tromper et dans ma hate j'avais oublier la procédure 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

[omacama]

Bon jour pour ce code !

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
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