Discussion :

[pierre22]

Bonjour
je souhaite pouvoir modifier un champ de toutes les lignes d'un formulaire.
voici mon code qui bug en fin de parcoure .

Code :

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

1
2
3
4
5
6
7
8
 DoCmd.GoToRecord acDataForm, "salarié1", acFirst
 
 Do
       Forms![salarié1]![Texte29] = Forms![salarié1]![Texte53]
 
DoCmd.GoToRecord acDataForm, "salarié1", acNext
 
Loop

je suppose qu 'il me manque une subtilité pour lui demander d'arrêter à la dernière ligne.

merci de votre aide

[User]

Bonjour,

Je m'interroge sur cette procédure de mise à jour.

Ne peut-on pas passer par une requête ?

Quelle en est l'utilité ?

Il faut aussi ajouter un test pour sortir de la boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
DoCmd.GoToRecord acDataForm, "salarié1", acFirst
 
Do
 
Forms![salarié1]![Texte29] = Forms![salarié1]![Texte53]
 
DoCmd.GoToRecord acDataForm, "salarié1", acNext
 
   if nz(Forms![salarié1]![Texte53],"")="" Then
      exit do
  end if 
 
Loop

Personnellement, je préfère utiliser la propriété recordsetclone 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
 
 
with Forms!Salarié1.recordsetclone
 
.MoveLast
.MoveFirst
 
Do While Not(.eof)
 
.Edit
.Champ2 = .Champ1 
 .Update
 
.MoveNext
 
Loop
 
end with

Cdlt,

[nico84]

Bonjour,

Un truc du style

Code :

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

1
2
3
while not Me.Recordset.EOF
...
wend

NB : avec recordsetclone ça évite de perturber l'affichage

Edit: ah ben j'ai été coiffé sur le poteau