Discussion :

[auroreM]

Bonjour,

j'ai un léger souci. J'ai un adodc que j'alimente et qui fonctionne correctement. l'ennui est quand je veux faire un AddNew. Il m'ajoute bien une ligne mais il met à jour la ligne sur laquelle j'étais positionnée. je ne veux pas en modiifer une mais en ajouter une. cela me pose de gros problèmes car je me retrouve avec des doublons dans ma table.

mon adodc est la source de combos dans lesquelles je sélectionne les valeurs que je veux mettre dans cette nouvelle ligne.

Code :

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

1
2
sRegion =dbcboAff(4).BoundText
'ici, sRegion=04

mon adodc était en position 1 et n'a qu'un seul enregistrement.
le champ CODE_REG à ce moment du code est égal à 01.

Code :

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

1
2
3
4
AdoDc.Recordset.AddNew
With AdoDc.Recordset
       .Fields("CODE_REG").Value = sRegion
end with

A ce momment là, mon AdoDc est en position 2 et le champ CODE_REG est bien égal à 04.

Mais si je fais un AdoDc.Recordset.MovePrevious, je vois que le champ CODE_REG est aussi égal à 04. Il n'aurait pas dû changer de valeur.

que se passe-t-il ?

je ne sais plus quoi faire ?

D'avance merci si vous avez une piste.

Aurore.

[ZuZu]

Update est où ???
Après AddNew, et avoir renseigné les champ, tu dois valider l'enregistrement ajoutée par Update.

[auroreM]

Le Update vient après mais pas besoin de le faire puisque mes données sont déjà erronées à ce moment précis. Si je fais le update, cela ne fera que me générer des doublons car les modifications peuvent se faire sur x lignes de mon AdoDc et pas sur une seule. Je peux ajouter 3 lignes puis modifer la 1ère.

Le update est donc final. Ce qui m'ennuie puisque les données partent un peu en sucette avec les informations qui se mettent là ou elles ont envie.

Cela signifie-t-il que je doive faire le update forcément après chaque AddNew ?

Cdt,
Aurore.

[NiGHtyWolf]

Bonsoir

Essaye cette modif :

Code :

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

1
2
3
4
5
AdoDc.Recordset.AddNew
With AdoDc.Recordset
       .Fields("CODE_REG").Value = sRegion
end with
AdoDc.Recordset.Update