Discussion :

[Pascal__]

Voici mon problème; je possède une table tb_VolumeMag134 avec les chps suivants :
NOMTR - Texte
DATEM - Date/heure
VARHUILE - Numérique
VAR187 - Texte
CUMUL - Numérique
Je desire faire le cumul de VARHUILE ligne par ligne , j'y arrive avec une requete (Requête trouver sur ce site déjà )

Code :

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

UPDATE tb_VolumeMag134 SET tb_VolumeMag134.CUMUL = CDbl(DSum("[VARHUILE]","tb_VolumeMag134","[DATEM]<=" & DateUS([DATEM])));

Afin de rendre cette requête plus rapide je voudrais créer ma table tb_VolumeMag134 et mettre à jour mon champ CUMUL via du code VBA. J'ai tenter ceci mais cela ne fonctionne pas

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
Private Sub Commande0_Click()
Dim Db As DAO.Database
Dim SQL As String
Dim sSQL As String

'
SQL = "SELECT tb_histotfo.NOMTR, tb_histotfo.DATEM, tb_histotfo.VARHUILE, tb_histotfo.VAR187 INTO tb_VolumeMag134"
SQL = SQL & " FROM tb_tfo INNER JOIN tb_histotfo ON tb_tfo.NOMTR = tb_histotfo.NOMTR"
SQL = SQL & " WHERE (((tb_histotfo.VAR187)='M134'))"
CurrentDb().Execute SQL

sSQL = "UPDATE tb_VolumeMag134 SET tb_VolumeMag134.CUMUL = CDbl(DSum("[VARHUILE]","tb_VolumeMag134","[DATEM]<=" & DateUS([DATEM])))"
MsgBox (sSQL)
CurrentDb().Execute sSQL

End Sub

La ligne sSQL sort en rouge.Quelqu'un peut il m'aider ??

[villemtl]

Je crois que c'est une question de guillemets,

ton code :
sSQL = "UPDATE tb_VolumeMag134 SET tb_VolumeMag134.CUMUL = CDbl(DSum("[VARHUILE]","tb_VolumeMag134","[DATEM]<=" & DateUS([DATEM])))"

si DateUs est une fonction je crois que ce serait mieux (mais je ne peux le tester où je suis en ce moment) :
sSQL = "UPDATE tb_VolumeMag134 SET tb_VolumeMag134.CUMUL = CDbl(DSum("[VARHUILE]","tb_VolumeMag134","[DATEM]<=" & DateUS([DATEM]) & "))"

villemtl

[Pascal__]

Merçi pour ta réponse . DateUS est effectivement une fonction placée dans un module

Code :

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

1
2
3
4
Function DateUS(ByVal dt As Variant)
If IsNull(dt) Then Exit Function
DateUS = "#" & Month(dt) & "/" & Day(dt) & "/" & Year(dt) & "#"
End Function

J'ai essayer avec ta ligne de code mais mon problème est identique. J'ai une erreur de syntaxe...

[jojodoudou]

Salut,

La chaine de caractere est determinée par des ". Si ta chaine contient des ", pour qu'ils puissent etre prise en compte, il faut que tu ajoutes des " devant deux fois.

Cad

Code :

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

1
2
 
sSQL = "UPDATE tb_VolumeMag134 SET tb_VolumeMag134.CUMUL = CDbl(DSum(""[VARHUILE]"",""tb_VolumeMag134"",""[DATEM]<=" & DateUS([DATEM]) & "))"

Voila.

Dis moi si c'est OK

[Mahefasoa]

Salut Pascal,

Si j'ai bien compris ton objectif c'est de pouvoir mettre à jour le champ CUMUL dans tb_VolumeMag134.

SQL = "SELECT tb_histotfo.NOMTR, tb_histotfo.DATEM, tb_histotfo.VARHUILE, tb_histotfo.VAR187 INTO tb_VolumeMag134"
SQL = SQL & " FROM tb_tfo INNER JOIN tb_histotfo ON tb_tfo.NOMTR = tb_histotfo.NOMTR"
SQL = SQL & " WHERE (((tb_histotfo.VAR187)='M134'))"
CurrentDb().Execute SQL

Quel est l'intérêt de ces lignes de code? Ou est-ce pour vérification tout simplement?

...DateUS([DATEM])...

et

Function DateUS(ByVal dt As Variant)
If IsNull(dt) Then Exit Function
DateUS = "#" & Month(dt) & "/" & Day(dt) & "/" & Year(dt) & "#"
End Function

La fonction DateUS permet, d'après ce que je vois, à "formater" la date au format américain. Tu sais, tu n'as pas besoin de réécrire une fonction qui existe déja dans Access et qui se nomme Format. Tu peux l'utiliser comme suit:

Code :

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

1
2
 
Format([DATEM],"mm/dd/yyyy")

Ensuite,

...CDbl(DSum("[VARHUILE]","tb_VolumeMag134","[DATEM]<=" & DateUS([DATEM])))"

Ici je te conseille de placer cette ligne dans une variable afin de mieux contrôler ce qu'elle renvoie comme valeur. Saches que si DSum ne trouve rien à additionner, alors elle renvoie null et peut-être une erreur surgira. Donc je te conseille d'utiliser la fonction nz qui convertit null en d'autres valeurs comme zéro par exemple.
Donc ton code d'après mois sera transformé de cette manière:

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
17
18
Private Sub Commande0_Click()
Dim Db As DAO.Database
Dim SQL As String
Dim sSQL As String
Dim dblCumul As Double

'
SQL = "SELECT tb_histotfo.NOMTR, tb_histotfo.DATEM, tb_histotfo.VARHUILE, tb_histotfo.VAR187 INTO tb_VolumeMag134"
SQL = SQL & " FROM tb_tfo INNER JOIN tb_histotfo ON tb_tfo.NOMTR = tb_histotfo.NOMTR"
SQL = SQL & " WHERE (((tb_histotfo.VAR187)='M134'))"
CurrentDb().Execute SQL
dblCumul = CDbl(nz(DSum("[VARHUILE]","tb_VolumeMag134","[DATEM]<=#" & Format([DATEM],"mm/dd/yyyy") & "#),0))"
sSQL = "UPDATE tb_VolumeMag134 SET tb_VolumeMag134.CUMUL = " & dblCumul
MsgBox (sSQL)
CurrentDb().Execute sSQL

End Sub

Autre problème, tu as utilisé CDbl qui permet de convertir en type Double donc un truc AVEC décimale dans le style 1,85. Et c'est là le problème! Supposons que dblCumul est égale à 1,85 alors to sSQL est écrit comme suit

Code :

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

1
2
 
UPDATE tb_VolumeMag134 SET tb_VolumeMag134.CUMUL = 1,85

Est-ce que tu sais que la virgule est interprétée par SQL comme étant un séparateur? et du coup il comprend que 85 est une autre chose!
L'astuce est de pouvoir transformer la virgule (,) en point (.). Dans ce cas je te suggère de créer une fonction de type String qui va faire la transformation de 1,85 en 1.85.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Function DotToPoint (Valeur As Double) As String
   DotToPoint = "0"
   Dim Partie As Integer, Reste As Double
   Partie = Int(Valeur)
   If Valeur - Partie <> 0 Then
      Reste = Valeur - Partie
      DotToPoint = Partie & "." & Mid(Reste,3)
   Else
      DotToPoint = Partie
   End If
End Function

Donc, ton code se transforme en ceci:

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
17
18
Private Sub Commande0_Click()
Dim Db As DAO.Database
Dim SQL As String
Dim sSQL As String
Dim dblCumul As Double

'
SQL = "SELECT tb_histotfo.NOMTR, tb_histotfo.DATEM, tb_histotfo.VARHUILE, tb_histotfo.VAR187 INTO tb_VolumeMag134"
SQL = SQL & " FROM tb_tfo INNER JOIN tb_histotfo ON tb_tfo.NOMTR = tb_histotfo.NOMTR"
SQL = SQL & " WHERE (((tb_histotfo.VAR187)='M134'))"
CurrentDb().Execute SQL
dblCumul = CDbl(DSum("[VARHUILE]","tb_VolumeMag134","[DATEM]<=#" & Format([DATEM],"mm/dd/yyyy") & "#"
sSQL = "UPDATE tb_VolumeMag134 SET tb_VolumeMag134.CUMUL = " & DotToPoint(dblCumul)
MsgBox (sSQL)
CurrentDb().Execute sSQL

End Sub

Je pense que c'est tout. Bon courage.

[Pascal__]

Merçi pour toutes ces explications. J'essaye cela ce soir et je vous tiens informé............

[beloha]

Salut les amis, je sais bien que je ne suis pas en phase avec tout ce que vous racontez et j'aimerai bien avoir une bonne explication sur cette question, est ce que cette méthode consiste à modifier les données dans la table "tb_VolumeMag134"? Est ce que ceci permis?