Discussion :

[rouxfab]

Bonjour comme vous pouvez le voir dans le fichier joint
la premiere tables est mois3 c'est le résultat
la 2eme tables est mois qui est la table de départ.
Mais le udapte qui permet de mettre les chiffres d'affaire des semaines dans l'autre table 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
17
18
19
20
21
22
23
24
25
26
'recupere les semaines
    Dim res As Recordset
    SQL = "SELECT min(semaine)as 1 FROM mois;"
     Set res = madb.OpenRecordset(SQL, dbOpenDynaset)
        Me.s1 = res.Fields("1")
        Me.s2 = Me.s1 + 1
        Me.s3 = Me.s2 + 1
        Me.s4 = Me.s3 + 1
        Me.s5 = Me.s4 + 1
        Me.s6 = Me.s5 + 1
 
 ' regroupe les semaines pour la même personne et met la somme du CA du mois
 
    SQL = "INSERT INTO Mois3 ( [prénom], [nom],[Somme Ca]) "
    SQL = SQL & " SELECT nom, [prénom] , "
    SQL = SQL & " Sum([mois].[somme ca]) as [ca ht réalisé] "
    SQL = SQL & " FROM [mois] "
    SQL = SQL & " GROUP BY [mois].[prénom], [mois].nom;"
    DoCmd.RunSQL SQL
 
' ajoute les valeur de la première semaine dans la table mois3
    SQL = "Update [mois3] as t1 INNER JOIN [mois] as t2"
    SQL = SQL & " ON ((t1.[Prénom] = t2.[Prénom])and (t1.[Nom] = t2.[Nom]) )"
    SQL = SQL & " SET  t1.[Somme Ca s1] = t2.[Somme Ca] where semaine = "
    SQL = SQL & "" & Me.s1 & ""
    DoCmd.RunSQL SQL

merci

[Chtulus]

Bonsoir,

La syntaxe c'est

Code :

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

1
2
3
 
INSERT INTO...
VALUES...

[rouxfab]

Mais je ne peut pas faire cela :

Code :

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

1
2
3
4
5
6
7
8
 
    SQL = "INSERT INTO Mois3 ([Semaine Ca s1]) Values( "
    SQL = SQL & " SELECT [mois].[Somme Ca] "
    SQL = SQL & " FROM [mois], [mois3] "
    SQL = SQL & " Where ([mois].nom = [mois3].nom) and ([mois].prénom = [mois3].prénom) and (semaine = "
    SQL = SQL & "" & Me.s1 & ""
    SQL = SQL & "));"
    DoCmd.RunSQL SQL