Access : Modifier une table via VB

Bonjour à tous,

Je post ici car je rencontre un problème que je n'arrive pas à résoudre (hé oui comme tous ceux qui postent ici me direz-vous ^^).

Tout d'abord, une petite précision, je suis débutant en ACCESS, donc peut être vais je raconter des choses pas tout à fait justes.

J'aimerai en fait savoir si c'est possible de balayer une table ACCESS via VB, par le moyen de boucles ou autres, afin de pouvoir modifier des données dedans.

J'ai de disponible une table, avec beaucoup de valeurs égales à 0. J'aimerais remplacer tous les 0 par un champ blanc.

Pour moi, il faudrait mettre la table dans un tableau à 2 dimensions et le balayer et remplacer toutes les valeurs à 0 par un blanc. Seulement je n'y arrive pas et cela fait un jour que je suis dessus :roll:

J'utilise un RecordSet pour cela, même si je ne suis pas très sur qu'il faut l'utiliser de cette façon.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim Contenu As Variant Dim l As Integer, c As Integer   'Mise en mémoire du tableau correspondant à la table DoCmd.OpenTable "nomTable", acViewNormal, acEdit Set enr = CurrentDb.OpenRecordset("nomTable") Contenu(l, c) = enr.GetRows(40)   'Balayage de la table, modification de données For l = 0 To 31 For c = 0 To 39 If Contenu(l, c) = 0 Then Set Contenu(l, c) = Null End If Next c Next l

---

Voilà, donc avec ce code, la modification n'a pas lieu. Cependant quand je fais un Msgbox Contenu(x, y) avec x y numéro de ligne et de colonne, la valeur de la table apparait bien. J'en déduis que je peux donc me balader dans la table de cette façon.

Je suis un peu perdu sans doute comme vous le voyez bien :? et je requiers votre aide dans ce domaine qui est nouveau pour moi ^^

Merci par avance.

Bonjour

Tu ne modifie pas ta table, tu modifie des données dans un tableau que tu as rempli avec GetRows.

Va jeter un coup d'oeil sur l'excellent tuto sur DAO du site.

Et interresse toi aux méthodes du recordset Edit et Update

Starec

Bonjour et bienvenue.

Pour les recordsets, il y a un tuto magnifique :
http://warin.developpez.com/access/dao/

Mais si c'est juste pour mettre à jour un champ, une requête mise à jour suffit et sera plus performant.
Cf la FAQ :
http://access.developpez.com/faq/?page=SQL#qryActions

quand on débute on ne sait pas où chercher mais il y a tout ce qu'il faut dans les tutos/faq/sources :mouarf:

Ok, merci de ta réponse rapide, je file sur ce tuto.

Je tiens au courant.

Edit Arkham : Merci à toi aussi pour la rapidité ^^

En fait je dois modifier tous les champs de la table contenant 0, c'est pour ça que j'essaye de passer par RecordSet (tuto que je suis en train de lire). Pour une seule colonne, j'avais fait une requête UPDATE, seulement la requête UPDATE ne peut pas s'appliquer pour toute la table, juste sur une colonne (sauf erreur de ma part, ce qui est possible). Ou du moins je ne l'ai pas réussi.

Je viens donc de totalement changer mon code. Voici le nouveau :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

'Ouverture de la table nomTable DoCmd.OpenTable "nomTable", acViewNormal, acEdit   'Création d'un recordset, de type dbOpenTable : Modification en direct Set modif = CurrentDb.OpenRecordset("SELECT * FROM nomTable", [dbOpenTable])   'On se place sur le premier enregistrement modif.MoveFirst   'Tant que l'on atteint pas la fin du recordset While Not modif.EOF   'Mode édition modif.Edit   'Condition de changement de donnée If modif.Fields = 0 Then modif.Fields = Null End If   'Mise à jour de la table modif.Update   'Passage au champ suivant modif.MoveNext Wend   'Fermeture du recordset modif.Close Set modif = Nothing DoCmd.RunCommand acCmdClose

---

Ce code n'est pas fonctionnel car Fields est mal utilisé (je suis d'accord, étant donné que dans l'exemple, il y a un nom de colonne). Cependant, se mettre au premier enregistrement veut bien dire que l'on se met sur la première ligne de la table ??? ou bien est il possible de passer sur chaque champ de chaque ligne ??

Un grand bravo au tuto en tout cas. J'ai passé tout l'après midi d'hier à en chercher un bon sur les RecordSet et là tout semble clair (même le Fields même si j'ai peur qu'il ne s'adapte pas à ce que je veux faire :x)

Effectivement fields ne permet pas de traiter tous les champs en une fois.

Soit tu multiplies la ligne autant de fois qu'il y a de champs, soit tu fais une boucle :

Code:

---

1 2 3 4 5

dim lField as DAO.Field for each lField in modif.fields If lfield.value = 0 Then lfield.value = Null next

---

Cette fois, il n'y a plus d'erreur de compilation ni rien, par contre l'exécution plante sur la première ligne (je vois la table s'ouvrir avec le 1er enregistrement surligné, puis ça ne répond plus).

J'ai inclus ton code de la façon suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'Tant que l'on atteint pas la fin du recordset While Not modif.EOF 'Mode édition modif.Edit 'Condition de changement de donnée For Each lField In modif.Fields If lField.Value = 0 Then lField.Value = Null Next 'Mise à jour de la table modif.Update 'Passage au champ suivant modif.MoveNext Wend

---

lField étant bien déclaré comme DAO.Fields et modif comme DAO.RecordSet

Citation:

---

Envoyé par Tsuna78

lField étant bien déclaré comme DAO.Fields

---

c'est DAO.Field sans le "s"
Fields est une collection de champ
Field est un champ

sinon si ça ne marche toujours pas, quel est le message d'erreur?

Exact, excuse moi, je l'avais bien déclaré en DAO.Field, j'ai tapé un peu vite ma réponse.

J'ai résolu le problème de plantage : En fait, j'avais déclaré le RecordSet comme suit :

Code:

---

1 2	Set modif = CurrentDb.OpenRecordset("SELECT * FROM nomTable", [dbOpenTable])

---

J'ai changé le dbOpenTable en dbOpenDynaset et ça ne plante plus. Par contre, aucun changement n'est effectué dans la table. Apparemment il ouvre bien la table, se positionne sur la première ligne, puis il referme la table (je suppose vu l'exécution qui est à l'écran)

EDIT : Erreur résolue à nouveau : Je m'étais trompé ici :

Code:

---

1 2 3 4

For Each lField In modif.Fields If lField.Value = 0 Then lField.Value = "" Next

---

J'avais mis "" à la place de Null en testant voir si c'était cela qui faisait planter l'exécution tout à l'heure. Je viens de remettre Null et tout s'exécute parfaitement ;)

Je me permets de faire un doublon pour te remercier Arkham d'avoir pris le temps de m'aider pour mon problème, et avec une grande rapidité ^^. Je ne pensais pas avoir des réponses aussi rapidement, et j'aurai été loin de comprendre aussi vite sans ton aide.

Un grand merci donc :) et sans doute à une prochaine fois, mes difficultés ne font que commencer je crois ^^

ok c'est cool

par contre l'ouverture/fermeture de la table n'est pas nécessaire

DAO agit directement sur la table sans avoir besoin de l'ouvrir

C'est noté ;) je viens de tester, ça fonctionne bien, ça me permet de simplifier un peu le code =)