requête de mise à jour avec code VBA

**sylvie** · 18/05/2010, 16h03

Bonjour à tous,

j´aimerais savoir comment écrire du code VBA pour actualiser une de mes tables. Le problème est ceci: J´ai une table qui a l´air ainsi
Film_ID Personne_ID NomFilm
1 33 vvv
2 33 nnn
3 32 xxx
... ... ...
400 366 yyy

J´aimerais changer complètement toutes les données de la colonne Personne_ID selon un certain critère (par ex. Personne_ID commence par 6, puis graduellement jusqu´à 350, peu importe Film_ID et NomFilm).
Quelqu´un pourrait-il please please

me dire comment procéder avec VBA ou SQL? MERCIIIIIIII.

Sylvie

**SSJconsult** · 18/05/2010, 16h37

Bonjour,

Voici une ebauche de solution :

Code :

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

Call CurrentDb.Execute("UPDATE MaTable SET Personne_Id = xx WHERE Personne_Id = yy")

Je pense qu'a partir de ce code, vous devriez trouver votre bonheur

Attention cependant que Personne_Id ne soit pas une cle unique...

**sylvie** · 18/05/2010, 16h55

Merci SSJConsult pour ta réponse. Si je peux remplacer xx par la variable i de ma boucle For, alors c´est gagné.
Maintenant je constate quelque chose de singulier dans une de mes tables: Il y a 2 jours j´ai rempli ma table "Personne" jusqu´à l´ID 50, et aujourd´hui j´ai continué le remplissage jusqu´à l´ID 150. Quand avec du code vba, je fais "MaTableRecordset.MoveFirst" puis avec MsgBox j´affiche la valeur de l´ID correspondant à la première rangée de données, j´obtiens 50. Que se passe-t-il? Comment faire pour que la donnée actuelle pointe vraiment sur la première rangée de donnée?

Merci encore.
Sylvie

**SSJconsult** · 18/05/2010, 17h22

Vous pouvez remplacer xx et yy par ce que tu vous voulez. Par exemple :

Code :

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

1
2
3
For i = 1 to 100
	Call CurrentDb.Execute("UPDATE MaTable SET Personne_Id = " & i & " WHERE Personne_Id = " & i + 150)
Next i

Si vous ne devez executer ce code qu'une seule fois, pas de probleme.
En revanche si c'est repetitif, il serait mieux d'utiliser un recordset car ce sera bien plus performant.

Pour ce qui est du deuxieme point : MoveFirst pointe vers le premier enregistrements de la table, en fonction du tri ou, en absence de tri, en fonction de la cle primaire. S'il n'y a ni tri ni cle primaire (ici, personne_id), on ne peut s'attendre a aucun resultat logique...

**sylvie** · 26/05/2010, 14h36

Merci SSjconsult pour tes réponses qui m´ont bien aidé.
Je me demandais tout juste à quoi est ce qu´une pareille requête aurait-elle donc l´air en utilisant un recordset, vu que j´aimerais utiliser cela plusieurs fois pour des tableaux différents.
J´aimerais aussi savoir comment le faire en utilisant Access --> Requête (en mode Design). Jusqu´ici pour une requête de mise à jour par mode Design, je n´ai réussi qu´à n´insérer que des valeurs identiques. Je m´explique: j´ai du insérer un nouveau champ à un tableau existant qui comportait déjà des données. Naturellement ce champ est vide pour toutes les données du tableau. J´aimerais néanmoins actualiser ce tableau en ajoutant les valeurs du nouveau champ qui vont respectivement de la première donnée du tableau à la dernière de 1 à 124. Est-ce possible de réaliser ceci sous mode design d´une requête Access ou bien seulement en utilisant du vba? Exemple en vba?

Merci beaucoup.

Sylvie