Discussion :

[Pittouti]

Bonjour,

je viens de créer ce code qui met à jour un champs dans une table mais j'ai message d'erreur ! ;(

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim I As Integer
Max = CurrentDb.TableDefs("VBASQL").RecordCount '-- le nombre d'enregistrement de ma table
 
'--je rajoute temporairement un index (ordre) pour la mis à jour de ma table
DoCmd.RunSQL "ALTER TABLE [VBASQL] ADD ordre COUNTER"
 
'--boucle
Do While I <= Max
DoCmd.RunSQL ("UPDATE [VBASQL] SET [HK] = (DLookUp("[HK]","VBASQL","[ordre]=" & I-1 &")) + DLookUp("[test 2]","VBASQL","[ordre]=" & I &"))")
I = I + 1
Loop
 
'--je supprime l'index
DoCmd.RunSQL "ALTER TABLE [VBASQL] DROP COLUMN ordre"
End Sub

Message d'erreur



et je ne comprends pas ou est l'erreur !

[madefemere]

Bonjour,

Tu n'initialises pas ton compteur ?!?
Ensuite il faut faire attention entre les quotes et guillemets pour l'expression et les parenthèses. Le code serait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim I As Integer
Max = CurrentDb.TableDefs("VBASQL").RecordCount '-- le nombre d'enregistrement de ma table
 
'--je rajoute temporairement un index (ordre) pour la mis à jour de ma table
DoCmd.RunSQL "ALTER TABLE [VBASQL] ADD ordre COUNTER"
'Initialisation de I 
I=1
'--boucle
Do While I <= Max
DoCmd.RunSQL ("UPDATE [VBASQL] SET [HK] = (DLookUp('[HK]','VBASQL','[ordre]='" & I-1 & ")) + (DLookUp('[test 2]','VBASQL','[ordre]='" & I &"))")
I = I + 1
Loop
 
'--je supprime l'index
DoCmd.RunSQL "ALTER TABLE [VBASQL] DROP COLUMN ordre"
End Sub

Cordialement.

[Pittouti]

Bonjour,

ça ne marche toujours pas

il me dit que le syntaxe de la DLOOKUP est erroné

[madefemere]

Essaie :

Code :

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

1
2
 
DoCmd.RunSQL ("UPDATE [VBASQL] SET [HK] = (DLookUp('[HK]','VBASQL','[ordre]=" & I-1 & "')) + (DLookUp('[test 2]','VBASQL','[ordre]=" & I &"'))")

J'ai déplacé les deuxièmes "quotes" après les champs "ordre" des critères.

Cordialement.

[Pittouti]

Bonjour madefemere et merci pour ton aide,

ce que tu m'a envoyé fonctionne parfaitement ( je n'ai plus de message d'erreur ) par contre dans mon champs [HK] j'ai la même valeur qui se répète sur les 30 enregistrement.

j'ai peut être mal exprimé ma demande. ci-dessous une illustration du résultat que je veux avoir.

résultat de la deuxième ligne :



Résultat de la troisième ligne :

[Pittouti]

BINGOOOOOOOOO

j'ai trouvééééééééé

ci-dessous le code qui fonctionne ou cas ou il servira à d'autres personnes !!!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim I As Integer
Max = CurrentDb.TableDefs("VBASQL").RecordCount '-- le nombre d'enregistrement de ma table
 
'--je rajoute temporairement un index (ordre) pour la mis à jour de ma table
DoCmd.RunSQL "ALTER TABLE [VBASQL] ADD ordre COUNTER"
'--boucle
For I = 2 To Max
DoCmd.RunSQL ("UPDATE VBASQL, VBASQL AS VBASQL_1 SET VBASQL.HK = [VBASQL_1].[test 2]+ [VBASQL_1].[HK]" & _
"WHERE (((VBASQL_1.ordre)=DMax('ordre','VBASQL','ordre<' & [VBASQL].[ordre])))")
Next
I = I + 1
'--je supprime l'index
DoCmd.RunSQL "ALTER TABLE [VBASQL] DROP COLUMN ordre"

enfinnnnnnn