Discussion :

[Elstak]

bonjour,

malgré la faq je n'arrive pas à utiliser une requete parametrable en VBA

voici ma requete

Code :

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

1
2
3
SELECT t.id_toeic, s.lib_section, ss.lib_ss_section, p.lib_partie, p.nombre_choix, l.reponse_theo
FROM toeic AS t, [section] AS s, soussection AS ss, partie AS p, ligne AS l
WHERE t.id_toeic=s.id_toeic And s.id_section=ss.id_section And ss.id_ss_section=p.id_ss_section And p.id_partie=l.id_partie And t.id_toeic=[toeic];

voilà, j'ai une variable qui contient la valeur de "toeic"

comment faire en vba?

merci

PS

voici mon 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
16
17
Public Sub test()
 
 
Dim requete As String
 
requete = "SELECT t.id_toeic, s.lib_section, ss.lib_ss_section, p.lib_partie, p.nombre_choix, l.reponse_theo FROM toeic AS t, [section] AS s, soussection AS ss, partie AS p, ligne AS l WHERE t.id_toeic=s.id_toeic And s.id_section=ss.id_section And ss.id_ss_section=p.id_ss_section And p.id_partie=l.id_partie And t.id_toeic=[toeic];"
 
 
 
Set qdf = CurrentDb.QueryDefs(requete)
      With qdf
         .Parameters("id_toeic") = 4
         .Execute
      End With
 
 
End Sub

(je n'arrive pas à appliquer le code de la faq )


EDIT !

pardon j'avais mal lu...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub test()
 
 
Set qdf = CurrentDb.QueryDefs("Remplir_Reponses")
      With qdf
         .Parameters("toeic") = 4
         .Execute
      End With
 
 
End Sub

j'ai ma requete qui s'appele remplir_reponses mais il me dit 'impossible de faire une requete de selection'

y'a t'il un autre moyen?
le but est de créer un formulaire avec les champs du select de ma requete, pour un toeic donné.

[marot_r]

OK, tu es un mélé :-).

Le dernier code que tu as mis c'est pour exécuter une requète de MAJ d'insertion ou de suppression. On peut pas exécuter une requète SELECT car elle ne modifie pas la base, elle lit des données uniquement.

Donc cela te prend un objet Recordset qui va récupérer tes données lues.

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
 
Public Sub test()
 
   Set qdf = CurrentDb.QueryDefs("Remplir_Reponses")
   qdf.Parameters("toeic") = 4
   dim r as recordset
   set r=qdf.OpenRecordset
   'exemple d'utilisation d'un recordset
 
   do while not r.eof
      debug.print r![id_toeic]
      r.movenext
   end do
 
   r.close:set r=nothing:'Ferme et fait le ménage de la mémoire
   set qdf=nothing:'fait le ménage de la mémoire
 
End Sub