Discussion :

[HDU71000]

Hello,

je crois devenir fou !

J'essaie de parcourir une table en vba, avec un paramètre issu d'une zone de liste d'un form...

j'ai testé avec le sql directement, mais cela ne fonctionne pas.

J'ai donc créé une requête basée sur ce form, pour ne sélectionner que les enregistrements voulus.

Voici mon code vba mis sur un bouton du formulaire :

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
19
Private Sub Commande8_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
 
Set dbs = CurrentDb
 
Set rst = dbs.OpenRecordset("SELECT * from [req_selection_classe_sconet];")
 
Do While Not rst.EOF
 
MsgBox rst![nom de famille]
    rst.MoveNext
 
Loop
 
rst.Close
 
Set rst = Nothing
End Sub

La requête lancée manuellement fonctionne, mais via vba, j'ai une erreur 3061 : "trop peu de paramètres, 1 attendu"

J'ai rajouté dans la requête le paramètre de ma zone de liste, cela ne change rien.

Merci

[HDU71000]

C'est ok, j'ai remis ce code (que je pensais avoir testé pourtant) :

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
19
20
21
22
23
24
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
 
Set dbs = CurrentDb
 
 
Set rst = dbs.OpenRecordset("Select * From table_temporaire_sconet Where division = '" & Me.Modifiable6 & "'")
 
 
 
 
'Begin row processing
Do While Not rst.EOF
 
MsgBox rst![nom de famille]
    rst.MoveNext
 
Loop
 
'Cleanup
 
rst.Close
 
Set rst = Nothing