bonjour, dans mon code VB j'utilise une DAO.querydef :
Ma DB est un fichier ACCESS. Mon champs 'Champs1' est un entier, clé primaire, et autoincrémenté.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Dim MyDB as DAO.Database Dim MyQry as DAO.QueryDef Dim SQLUpdate as String Set MyDB=OpenDatabase("monfichier.mdb") SQLUpdate = "UPDATE MaTable SET Champs1=Champs1+1 WHERE 1" Set MyQry = DBProj.CreateQueryDef("", SQLUpdate) MyQry.Execute MyQry.Close MyDB.Close
Mon problème est que seule la dernière ligne est mise à jour.
J'ai également essayé un autre truc : SET Champs1=Champs1+5 et dans ce cas là, ce sont les 5 dernières lignes qui sont mises à jour. Pourtant si je crée un autre champs 'Champs2' et que je fais SET Champs2=Champs1+1 cela fonctionne. Quelle est mon erreur ?
Partager