Discussion :

[damsmut]

Bonjour,

J'ai un formulaire ouvert nommé "MonFormulaire".

En VBA je souhaite passer en revue tous les recordsets.

Par contre j'ai un message d'erreur...

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
 
Option Compare Database
 
Sub test()
 
    For Each rst In [Form_MonFormulaire].Recordset 'Erreur ici... Opération non autorisée...
 
        MsgBox [Form_MonFormulaire].[Champ1].Value
 
        rst.MoveNext
    Next
 
End Sub

Qu'est-ce qui est faux dans mon code ?
J'aimerais bien utiliser la syntaxe "for each" si possible.

Merci
A+
Dams'

[marot_r]

Il ne faut jamais oublié que VBA est un language de programmation procéduriel avec des objets, pas un language objet pur et dur comme Java.

Le code ci-dessous n'a pas été testé mais devrait fonctionné.

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
 
private sub Test()
 
'Note : il faut que le formulaire soit ouvert pour que ce code marche.
dim r as dao.recordset:set r=[forms]![MonFormulaire].Recordset
dim f as dao.field
do while not r.eof()
 
  'Cette boucle affiche tous les champs du recorset
  for each f in r.fields
      debug.print f.name, f.value
  next f
 
  'Si on garde ton code qui n'affiche que le 1er champ
  msgbox r![Champ1]
 
  r.movenext
loop
set r=nothing
 
end sub