Discussion :

[FIFI33160]

Bonjour à toutes et à tous

Suivant les conseils avisés de FreeAccès j'ai donc généré le code suivant:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Compare Database
 
'------------------------------------------------------------
' Macro3
'
'------------------------------------------------------------
Function Macro3()
On Error GoTo Macro3_Err
 
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "CDECLIENT", acViewNormal, acEdit
    DoCmd.OpenQuery "F_ARTFOURNISSDEPOTPRINCIPAL", acViewNormal, acEdit
    DoCmd.OpenQuery "F_ARTSTOCK CDEFournisseur", acViewNormal, acEdit
    DoCmd.OpenQuery "F_ARTSTOCKQTES", acViewNormal, acEdit
    DoCmd.OpenQuery "REQUETEFACTUREANNEE", acViewNormal, acEdit
    DoCmd.OpenQuery "REQUETE AVOIR ANNEE", acViewNormal, acEdit
    DoCmd.OpenQuery "Requête FA-AV ANNUELLES", acViewNormal, acEdit
    DoCmd.OpenQuery "RequêteFA", acViewNormal, acEdit
    DoCmd.OpenQuery "RequêteAV", acViewNormal, acEdit
    DoCmd.OpenQuery "RequêteAVOIR FA-AV", acViewNormal, acEdit
    DoCmd.SetWarnings True
    DoCmd.OpenTable "MISE A JOUR", acViewNormal, acEdit
    Exit Function
 
 
Macro3_Exit:
    Exit Function
 
Macro3_Err:
    MsgBox Error$
    Resume Macro3_Exit
 
End Function
 
 
Dim strSQL As String
 
strSQL = "SELECT dbo_F_ARTICLE.AR_Ref, AVOIRmoisencours.SommeDeDL_Qte, VENTEmoisencours.SommeDeDL_Qte AS Expr1, NZ([VENTEmoisencours.SommeDeDL_Qte],0)+NZ(AVOIRmoisencours.SommeDeDL_Qte,0) AS SommeDeDL_Qte"
 
strSQL = strSQL & " INTO " & "T_" & Format(Date, "mmmm") & ""
 
strSQL = strSQL & " FROM (dbo_F_ARTICLE LEFT JOIN AVOIRmoisencours ON dbo_F_ARTICLE.AR_Ref = AVOIRmoisencours.AR_Ref) LEFT JOIN VENTEmoisencours ON dbo_F_ARTICLE.AR_Ref = VENTEmoisencours.AR_Ref "
 
strSQL = strSQL & " WHERE (((NZ([VENTEmoisencours.SommeDeDL_Qte],0)+NZ([AVOIRmoisencours].[SommeDeDL_Qte],0)) Not Like ""0""));"
 
DoCmd.RunSQL strSQL
 
End Function
End Sub

Hélàs ça ne fonctionne pas ! Il y a un BUG comme on dit ! Ou est-il ?

*merci une fois encore pour votre aide;

Je vous joins une image de mon projet !

Merci pour votre aide

Fifi33160

[marot_r]

Hélàs ça ne fonctionne pas ! Il y a un BUG comme on dit ! Ou est-il ?

Quel bug ?

As-tu un message d'erreur ?

Le code ne donne pas le résultat attendu ?

Le code ne donne pas de résultat ?

Bref un peu plus d'explication sur ce qui ne va pas aiderai.

A+

[Thierry_PALLIER]

Bonjour FIFI33160 .

1)A la ligne 48 et 49 ,il y a un End Sub et un End Function mais pas de Function ou Sub correspondant !

2)Je te conseil d'écrire Option Explicit en tete de module

3)si ça ne marche toujours pas ,commente les lignes 10 et 23 (Set warning) pour voir si il y a un problème au niveau des requetes.

4)si cela vient de la 2° partie de ton code ,je ne suis pas specialiste Sql mais j'ai un doute sur la ligne 40 (toute la ligne !) et 44 (""0"").

A la ligne 45 ,place un Debug.print strSQL ou MsgBox strSQL pour voir le résultat.

Bon courage .

[FIFI33160]

Bonsoir,
la première partie lorsque je l'isole elle fonctionne jusqu'à la ligne 33.

Si je créé un bouton avec le code suivant:

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
Private Sub Commande65_Enter()
 
Dim strSQL As String
 
strSQL = "SELECT dbo_F_ARTICLE.AR_Ref, AVOIRmoisencours.SommeDeDL_Qte, VENTEmoisencours.SommeDeDL_Qte AS Expr1, NZ([VENTEmoisencours.SommeDeDL_Qte],0)+NZ(AVOIRmoisencours.SommeDeDL_Qte,0) AS SommeDeDL_Qte"
 
strSQL = strSQL & " INTO " & "T_" & Format(Date, "mmmm") & ""
 
strSQL = strSQL & " FROM (dbo_F_ARTICLE LEFT JOIN AVOIRmoisencours ON dbo_F_ARTICLE.AR_Ref = AVOIRmoisencours.AR_Ref) LEFT JOIN VENTEmoisencours ON dbo_F_ARTICLE.AR_Ref = VENTEmoisencours.AR_Ref "
 
strSQL = strSQL & " WHERE (((NZ([VENTEmoisencours.SommeDeDL_Qte],0)+NZ([AVOIRmoisencours].[SommeDeDL_Qte],0)) Not Like ""0""));"
 
DoCmd.RunSQL strSQL
 
End Sub

Ca marche ! alors c'est la jonction entre les deux qui me pose problème
J'espère que c'est clair pour vous !

Merci pour votre aide
Fifi33160

[FreeAccess]

Bonjour ....

C'est presque cela ..... mais il faut quand même bien comprendre la "conversion des macros" et surtout bien écrire les fonctions....

Une fonction à la forme suivante...

Code :

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

1
2
3
4
5
Function MaFonction()
.......
.......
.......
End Function

Tout le code placé avant ou aprés va générer une erreur.

1) supprime la ligne 23
2) supprime la ligne 33
3) supprime la ligne 49

.....ainsi la fonction prendra bien en compte l'ensemble de ton code....

[FIFI33160]

Bonsoir Mr FreeAcces,

Toujours fidèle au poste !

C'est ...........presque ça ! Sauf que je retombe sur le problème de table qui ne s'appelle plus T_août mais T_" & Format(Date, "mmmm") & "" alors que lorsque on exécute

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
Private Sub Commande65_Enter()
 
Dim strSQL As String
 
strSQL = "SELECT dbo_F_ARTICLE.AR_Ref, AVOIRmoisencours.SommeDeDL_Qte, VENTEmoisencours.SommeDeDL_Qte AS Expr1, NZ([VENTEmoisencours.SommeDeDL_Qte],0)+NZ(AVOIRmoisencours.SommeDeDL_Qte,0) AS SommeDeDL_Qte"
 
strSQL = strSQL & " INTO " & "T_" & Format(Date, "mmmm") & ""
 
strSQL = strSQL & " FROM (dbo_F_ARTICLE LEFT JOIN AVOIRmoisencours ON dbo_F_ARTICLE.AR_Ref = AVOIRmoisencours.AR_Ref) LEFT JOIN VENTEmoisencours ON dbo_F_ARTICLE.AR_Ref = VENTEmoisencours.AR_Ref "
 
strSQL = strSQL & " WHERE (((NZ([VENTEmoisencours.SommeDeDL_Qte],0)+NZ([AVOIRmoisencours].[SommeDeDL_Qte],0)) Not Like ""0""));"
 
DoCmd.RunSQL strSQL
 
End Sub

j'obtiens T_août.
J'y perds mon Latin !

Merci pour votre aide si précieuse

Fifi33160

[FreeAccess]

Bon, on va essayer quelque chose....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande65_Enter
'on exécute la fonction Macro3
Macro3
 
'on exécute le reste du code
Dim strSQL As String
strSQL = "SELECT dbo_F_ARTICLE.AR_Ref, AVOIRmoisencours.SommeDeDL_Qte, VENTEmoisencours.SommeDeDL_Qte AS Expr1, NZ([VENTEmoisencours.SommeDeDL_Qte],0)+NZ(AVOIRmoisencours.SommeDeDL_Qte,0) AS SommeDeDL_Qte"
strSQL = strSQL & " INTO " & "T_" & Format(Date, "mmmm") & ""
strSQL = strSQL & " FROM (dbo_F_ARTICLE LEFT JOIN AVOIRmoisencours ON dbo_F_ARTICLE.AR_Ref = AVOIRmoisencours.AR_Ref) LEFT JOIN VENTEmoisencours ON dbo_F_ARTICLE.AR_Ref = VENTEmoisencours.AR_Ref "
strSQL = strSQL & " WHERE (((NZ([VENTEmoisencours.SommeDeDL_Qte],0)+NZ([AVOIRmoisencours].[SommeDeDL_Qte],0)) Not Like ""0""));"
DoCmd.RunSQL strSQL
End Sub

[FIFI33160]

Bonjour à tous,

MERCI Mr FreeAcces, je ne comprends pas bien le pourquoi, mais ça fonctionne ! Maintenant il faut que j'automatise la mise à jour des mes tables par liens ODBC avec Sage ! Mais avant de vous ennuyer une nouvelle fois je vais bosser dessus!

Merci encore à tous

Fifi33160