Discussion :

[othmanepf]

Bonjour,

Mon code est le suivant :

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
Sub GammePDF()
 Dim i As Integer
 Dim Max As Integer
    Max = '''''''Nombre d'enregistrements de ma requête''''''''''''''
 
 For i = 0 To Max
 
        Dim Ladate As Date, Lentier As Variant
        Dim mach As String, Lig As String
        Ladate = Forms![F_Preventif]![Date_p]
        Lentier = Format(DateSerial(Year(Ladate), Month(Ladate), Day(Ladate)), "dd-mm-yy")
        mach = ''''''''''''La i'ème ligne du champ "machine" de ma requête "R1" ''''''''''''''''''''''' 
        Lig = Forms![F_Preventif]![lstligne]
        DoCmd.OutputTo acOutputReport, "PRINCIPALE", acFormatPDF, "\\fermat\echange\Entretien_r01\Méthodes Maintenance\Gammes\" & "Gamme_" & Lig & "_" & mach & "_" & Lentier & ".pdf"
 
Next i
 
 
 End Sub

Je cherche donc comment on appelle la ième ligne d'un champ d'une requête (R1![machine].Value (i) ????) ainsi que la fonction qui donne le nombre d'enregistrements de la requête.

Je vous remercie pour votre aide.

Othmane

[tee_grandbois]

Bonjour,
je crois que c'est la 3ème fois que tu postes cette demande. Si tu n'obtient pas de réponse, poses-toi la question : est-ce que quelqu'un a compris ce que je demande ?
N'oublies pas que lorsque tu rencontres un problème sur ton application tu vois ce qui ne va pas, mais les autres ne l'ont pas sous les yeux et c'est en donnant un maximum d'informations que tu aideras les autres à trouver une solution.

Je cherche donc comment on appelle la ième ligne d'un champ d'une requête (R1![machine].Value (i) ????)

essaie de donner plus d'informations sur ce que tu entends par "comment on appelle la ième ligne d'un champ" : est-ce après une sélection d'un enregistrement ou est-ce que tu veux t'arrêter à cet ième pour une raison quelconque ?

une requête (R1![machine].Value (i) ????)

est-ce la requête d'un formulaire simple, d'un formulaire continu, d'une liste déroulante ??

ainsi que la fonction qui donne le nombre d'enregistrements de la requête.

Cela on peut le donner à condition d'avoir les informations précédentes concernant l'origine de la requête, mais en général pour la source d'un formulaire c'est :

Code :

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

1
2
3
4
Dim ors As Recordset
Dim LngNbEnregistrement As Long
Set ors = Me.RecordsetClone
LngNbEnregistrement = ors.RecordCount

[marot_r]

Bonjour.

Je ne vois aucune requête dans le code que tu as posté. Tu semble parcourir les enregistrements affichés par ton formulaire F_Preventif.

Je vais poster du code qui fait ce que tu demandes pour un formulaire et un exemple avec une requête.

Code :

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

1
2
3
4
5
6
7
8
dim r as dao.recordset:set r=forms("F_Preventif").recordsetclone 'Utiliser recordsetclone au lie de Recordset permet de ne pas changer l'affichage courant.
 
do while not r.eof
   'Ici du code à faire sur l'enregistrement courant.
   r.movenext
loop
 
set r=nothing

Note qu'avec ce code on a pas besoin de connaître à l'avance le nombre d'enregistrement

Ici avec une requête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim db as dao.database: set db=currentdb
dim r as dao.recordset:set r=d.openrecordste("NomTaRequete", dbOoenDynaset)
 
do while not r.eof
   'Ici du code à faire sur l'enregistrement courant.
   r.movenext
loop
 
set r=nothing
db.close:set db=nothing

A+

[othmanepf]

RE-bonjour,
Je ne pense pas avoir posé la même question 3 fois, je ne sais peut être pas très bien expliquer.
Donc, je veux l'équivalent du Sheets("table1").Cells(i,3) dans excel. Ce qui me permettra pas la suite de faire une boucle.
Dans mon cas : La requête est créée à partir de 2 table et d'un choix dans une liste déroulante dans un formulaire.
Je vous remercie

[othmanepf]

Merci marot, je pensais qu'il fallait faire une boucle "For", mais là ça marche nickel