Discussion :

[fuzcrew]

Bonjour à tous, voila mon petit souci.

Access 2003

J'ai un état basé sur un formulaire (Etat.code = Formulaire.code) qui lui ai basé sur une requête retournant plusieurs enregistrement. Je souhaite que pour chaque enregistrement, l'etat se lance, s'imprime et se ferme (ou s'imprime directement).
Je suis donc passé par un code vb qui parcours les enregistrement, le parcours marche (puisque les msgbox fonctionnent), mais il ne m'imprime que le premier enregistrement jusqu'au EOF.

Voila mon code :

sur activation 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
Dim db As Database
Dim rs As Recordset
 
Set db = CurrentDb
Set rs = db.OpenRecordset("R_test")
 
rs.MoveFirst
While Not rs.EOF
  MsgBox rs("code_rep")
  DoCmd.OpenReport "Etat", acViewNormal, , " [Code_rep] = " & rs("Code_rep")
  rs.MoveNext
Wend
rs.Close

Peut etre le souci viendrait de l'emplacement de ce code

Si vous voyer quelque chose, merci d'avance !

[fuzcrew]

Ok j'ai réussi à repérer le problème, il venait du type de mon champs "code_rep" qui était du texte (j'ai pris un numérique):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim db As Database
Dim rs As Recordset
 
Set db = CurrentDb
Set rs = db.OpenRecordset("R_test")
 
rs.MoveFirst
While Not rs.EOF
  MsgBox rs("code_rep")
  DoCmd.OpenReport "Etat", acViewNormal, , " [num_auto] = " & rs("num_auto")
  rs.MoveNext
Wend
rs.Close