Modifier un enregistrement avec VBA [Résolu/Fermé]

Signaler
Messages postés
30
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
11 juillet 2019
-
Messages postés
11802
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 août 2020
-
Bonjour,
J'ai créé un formulaire me permettant de modifier certains enregistrement de ma table. Cela fonctionnait si ce n'est que quel que soit l'enregistrement choisi grâce à une liste déroulante c'est toujours le premier enregistrement qui subissait la modification.
J'ai donc créé une boucle "Do Until" ... "Loop" pour repérer l'enregistrement de ma table qui correspondait au choix réalisé avec la liste déroulante .... et alors plus rien ne se passe !!!!
Quelle est mon erreur ?
Merci


Set MaTable = CurrentDb.OpenRecordset("T_Budget")
Do Until MaTable.EOF = True
If MaTable("Intitule_Charge") = Form![Choix_Charge] Then
MaTable.Edit
MaTable("Intitule_Charge") = "machin"
MaTable.Update
End If
MaTable.MoveNext
Loop
MaTable.Close


P.S. : Intitule_Charge est le nom du champ de la table que je veux modifier en le remplaçant par exemple par "machin" et Choix_Charge est l'Intitule_Charge de l'enregistrement choisi.

Configuration: Windows / Chrome 74.0.3729.169

2 réponses

Messages postés
11802
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 août 2020
674
bonjour, peux-tu utiliser la coloration syntaxique quand tu partages du code? détails ici
"rien ne se passe": as-tu essayé en exécutant le code pas à pas?
Messages postés
30
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
11 juillet 2019

Bonjour,
merci de t'être penché sur mon problème.
En définitive je viens, il y a peu de temps, de constater que le code était bon, mais j'avais fait une erreur de débutant dans la construction de ma liste déroulante. Comme un novice j'avais oublié de compter les champs à partir de "0" et non à partir de "1".....!!! Eh oui !
Encore merci
jacques
PS : autre étourderie due cette fois à la précipitation ... je n'ai pas pris la précaution d'utiliser la coloration syntaxique ... mille excuses!
Messages postés
11802
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 août 2020
674
très bien! peux-tu marquer comme résolu, via la roue dentée à droite du titre?