bonjour, dans mon code VB j'utilise une DAO.querydef :

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
Ma DB est un fichier ACCESS. Mon champs 'Champs1' est un entier, clé primaire, et autoincrémenté.
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 ?