Discussion :

[aiderecquise]

Bonjour à tous,

J'ai créé une boucle pour compléter un champ dans tous mes enregistrements. Le problème c'est que je ne sais pas détecter si je suis sur le dernier enregistrement pour arrêter la boucle... Du coup avec mon code actuel, la boucle plante quand je suis positionné sur le dernier enregistement..

Le code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
 
line1:
nombre.SetFocus
If situation1.Value = False Then nombre.Value = "1"
DoCmd.GoToRecord , , acNext
GoTo line1
 
End Sub

Merci de me donner un coup de main en ce dimanche ensoleillé !

[nico84]

Bonjour,

Voici un petit tuto qui t'aidera à faire une boucle sur le nombre de lignes :
http://access.developpez.com/faq/?page=PositionForm

[aiderecquise]

Bonjour, j'avais déjà regardé ce tuto mais je n'ai pas l'impression qu'il m'aide... ou alors je m'y prends mal...
J'avais pensé à un truc du style :

Code :

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

if currentrecord = lastrecord then exit sub

Sauf que bien évidemment ces commandes n'existent pas (en tout cas celle de lastrecord, et la currentrecord ne s'utilise pas comme ça)...

[nico84]

Je pensais plutot à

Code :

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

1
2
3
4
5
  DoCmd.GoToRecord , , acfirst
for i=1 to Me.RecordsetClone.RecordCount
  If not situation1 Then nombre = "1"
  DoCmd.GoToRecord , , acNext
next (ou loop je sais jamais)

PS : je suis surpris qu'avec un nom pareil nombre soit une string ???

[aiderecquise]

nnn pardon, ce n'est pas une string mais un champ de ma table.
Dans le message initial je mettais :

Code :

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

... nombre.value="1"

En gros j'attribue un "1" dans un champ si ma condition est fausse.

[Invité]

Bonjour,

Je ne suis pas un grand spécialiste de VBA Access mais peut-être, vous avez regardé l'aide sur "EOF"

Exemple :

Code :

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

1
2
3
4
5
Dim Rcd As New Recordset, Cn As Connection
 
Set Cn = CurrentProject.Connection
Rcd.Open "Ma_table", Cn, adOpenKeyset, adLockOptimistic
If  Rcd.EOF = True Then

[aiderecquise]

Bon, j'ai réussi à trouver une solution... C'est peut-être pas la plus élégante, mais ça fonctionne...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim arret As String
 
DoCmd.GoToRecord , , acLast
arret = N°.Value
 
DoCmd.GoToRecord , , acFirst
 
line1:
nombre.SetFocus
If situation1.true = False Then nombre.Value = "1"
If N°.Value = arret Then Exit Sub
DoCmd.GoToRecord , , acNext
GoTo line1

[f-leb]

bonsoir,

le contexte n'est peut-être pas le même mais ne pourrait-on pas plus simplement passer la requête "Mise à jour" sur l'évènement adéquat du formulaire:

Code sql :

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

1
2
UPDATE LaTable SET LaTable.nombre = "1"
WHERE (situation1=False)

En supposant bien sûr que ton formulaire est dépendant de la table "LaTable"