Discussion :

[Gundt]

Bonjour à tous,

Je suis un ancien utilisateur d'Access 97. J'ai développé une seule application pour mon entreprise parce qu'il n'y avait pas d'autres besoins.
Et depuis 10 ans, comme ils n'avaient pas de besoins particuliers,
j'ai malheureusement moins pratiqué Access et j'ai donc perdu des notions.
Je dirai donc que je suis d'un niveau moyen que je maîtrise relativement bien Access sauf les modules VBA.

J'utilise des modules VBA si je ne peux pas faire autrement comme aujourd'hui.
Ce code est tiré d'une petite application que j'avais vue en formation.

Il sert à créer un numéro automatique de facture quand on lance l'impression des factures du mois.
Sur la petite application utilisée en formation, il n'y a pas de message d'erreur et elle fonctionne bien.

Par contre, dans mon application de facturation, j'ai fait la même chose et j'ai adapté les noms (table, requête, formulaire de saisie et état). J'ai simplement changé les noms dans la procédure numfacture pour adapter les noms de table, champs, requête, formulaire, et état.

Mais j'ai le message d'erreur suivant :
"Erreur d'exécution 3061.
Trop peu de paramètres. 2 attendu."

Cela se produit sur la ligne suivante du code de numfacture :
Set r = db.OpenRecordset("Facture mensuelle malade", DB_OPEN_DYNASET)

Voici le code de numfacture :

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
50
51
Function Numfacture()
Dim db As Database
Dim r As Recordset, s As Recordset, f As Form
Dim suivnum As String, nouvnum As String
Dim numero As Long
Dim codecli1 As Long, codecli2 As Long
 
Set db = DBEngine(0)(0)
' requête factures malades limité
Set r = db.OpenRecordset("Facture mensuelle malade", DB_OPEN_DYNASET)
' état facture mensuelle malade
Set s = db.OpenRecordset("facture mensuelle malade", DB_OPEN_DYNASET)
' formulaire pour choix de facture
Set f = Forms![Choix_date_fact_perso]
 
If Not s.EOF Then s.MoveLast
suivnum = s!Numfacture
 
If Mid(suivnum, 1, 4) = f!Année And Mid(suivnum, 5, 2) = f!Mois Then
    nouvnum = Mid(suivnum, 1, 6) & Format(Val(Mid(suivnum, 7, 3)) + 1, "000")
    numero = Val(Mid(nouvnum, 7, 3))
Else
    nouvnum = Format(f!Année, "0000") & Format(f!Mois, "00") & "001"
    numero = 1
End If
f!test = nouvnum
 
If Not r.BOF Then r.MoveFirst
    codecli1 = r!CodeClient
    codecli2 = 0
 
On Error Resume Next
 
Do While Not r.EOF
 
        If codecli1 <> codecli2 Then
        s.AddNew
        s!Numfacture = nouvnum
        s!Codecli = r!CodeClient
        s!Mois = Format(f!Mois, "00")
        s!Année = Format(f!Année, "0000")
        s.Update
        numero = numero + 1
        nouvnum = Format(f!Année, "0000") & Format(f!Mois, "00") & Format(numero, "000")
     End If
	codecli1 = r!CodeClient
r.MoveNext
codecli2 = r!Codecli
Loop
 
End Function

Je cherche en vain dans ma requête mais je ne trouve rien.
Ce message indique une erreur de syntaxe au niveau du module ou une erreur dans ma requête, où il y a quelque chose qui ne va pas ?

Je précise que ma requête est une requête sélection avec 2 paramètres qui récupèrent le mois et l'année dans le formulaire de choix (l'utilisateur doit saisir le numéro du mois et l'année pour lesquels il veut imprimer les factures).

Cette requête fonctionne bien sans erreur et me donne bien les résultats quand je la lance manuellement.

Une piste ? Sur la requête ou sur la syntaxe du module ?

Merci d'avance.


Gundt

[Demco]

Essaie avec des crochets :

Code vba :

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

Set r = db.OpenRecordset("[Facture mensuelle malade]", DB_OPEN_DYNASET)

Sinon montre nous ton code SQL de requête, un paramètre doit être manquant.

En espérant t'aider.

[Gundt]

Je viens d'essayer d'ajouter les [ et ] entre les " du db.OpenRecordset. Je l'ai écrit comme ceci :

Set r = db.OpenRecordset("[Facture mensuelle malade]", DB_OPEN_DYNASET)

Mais j'ai un autre message d'erreur à la place de l'autre :
Erreur d'exécution 3078 :
Le moteur de base de données microsoft Jet ne peut pas trouver la table ou la requête source "[Facture mensuelle malade]". Assurez-vous qu'elle existe et qu'elle est correctement orthographiée.

Pourtant, elle existe bien. Je vous mets le code sql en dessous. J'ai vérifié l'orthographe y compris en respectant les majuscules, minuscules et espaces.

Le code sql de la requête sélection est :

Code :

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

1
2
3
SELECT DISTINCTROW FACTURES.Numfacture, FACTURES.Date_fact, [BL TEMP].DateSortie_temp, CLIENTS.Codeclient, CLIENTS.Nom, CLIENTS.Prénom, CLIENTS.Monsieur, Format([DateSortie_temp],"mm") AS Mois_sortie, Format([DateSortie_temp],"yyyy") AS Année_sortie
FROM (CLIENTS INNER JOIN ((CDES INNER JOIN [BL TEMP] ON CDES.[N°Cde] = [BL TEMP].[N°Cde_temp]) INNER JOIN [LIGNES BL TEMP] ON [BL TEMP].[N°BL_temp] = [LIGNES BL TEMP].[N°BL_temp]) ON CLIENTS.Codeclient = CDES.CodeClient) INNER JOIN FACTURES ON CLIENTS.Codeclient = FACTURES.Codecli
WHERE (((Format([DateSortie_temp],"mm"))=[Forms]![Choix_date_fact_perso]![Mois]) AND ((Format([DateSortie_temp],"yyyy"))=[Forms]![Choix_date_fact_perso]![Année]));

Merci d'avance.

Gundt

[Demco]

En VBA fais un debug.print de ta requête, et teste la dans le requêteur d'Access (directement le SQL sans passer par le nom de la requête).

Vérifie aussi que le champ [Forms]![Choix_date_fact_perso]![Année] soit bien renseigné lorsque tu lance la requête.

[Gundt]

Euh, tu marques ceci (de ton précédent message) :
"En VBA fais un debug.print de ta requête, et teste la dans le requêteur d'Access (directement le SQL sans passer par le nom de la requête).

Mais comment fait-on debug.print d'une requête ?
(J'ai regardé le menu Débogguer mais il n'y a pas print.)


Vérifie aussi que le champ [Forms]![Choix_date_fact_perso]![Année] soit bien renseigné lorsque tu lance la requête.

Oui, si je lance la requête mauellement que ce soit en sql ou en mode création, il me le demande bien et je saisis bien la réponse. Et ça marche.

Dans mon formulaire de saisie, j'ai 2 champs de saisie : Mois et Année et 2 boutons Aperçu et Fermer.
J'ai ajouté les lignes suivantes pour vérifier si le formulaire enregistrait bien les données :

Code :

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

1
2
3
4
5
MsgBox "avant code Numfacture"
        MsgBox (Val(.Mois))
        MsgBox (Len(.Mois))
        MsgBox (Val(.Année))
        MsgBox (Len(.Année))

il m'affiche bien les résultats suivants :
2
2
2007
4

J'ai ensuite rajouté dans le module vba le code suivant avant la ligne Set r = db.OpenRecordset("[Facture mensuelle malade]", DB_OPEN_DYNASET)
pour vérifier que le module vba avait bien pris en compte la valeur des champs mois et Année du formulaire.
Voici le code que j'ai ajouté :

Code :

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

1
2
3
4
MsgBox (Val(Forms![Choix_date_fact_perso]![Mois]))
MsgBox (Len(Forms![Choix_date_fact_perso]![Mois]))
MsgBox (Val(Forms![Choix_date_fact_perso]![Année]))
MsgBox (Len(Forms![Choix_date_fact_perso]![Année]))

Et il m'affiche bien :
2
2
2007
4
si je tape 02 pour Mois et 2007 pour Année.

Merci d'avance.

Gundt

[Demco]

Mais comment fait-on debug.print d'une requête ?
(J'ai regardé le menu Débogguer mais il n'y a pas print.)

Je voulais dire :

Code :

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

Debug.Print "SELECT ......."

Puis tu regarde la requête dans la fenêtre d'exécution pour voir si c'est bien la requête que tu attends. Fais un copier coller dans le requêteur pour voir si elle renvoir les résultats attendus.

[Gundt]

J'ai donc ajouté le code ci-dessous à la place de la ligne :
Set r = db.OpenRecordset("Facture mensuelle malade", DB_OPEN_DYNASET) que j'ai mis en remarque.

Code :

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

Debug.Print "SELECT DISTINCTROW FACTURES.Numfacture, FACTURES.Date_fact, [BL TEMP].DateSortie_temp, CLIENTS.Codeclient, CLIENTS.Nom, CLIENTS.Prénom, CLIENTS.Monsieur, Format([DateSortie_temp],"; mm; ") AS Mois_sortie, Format([DateSortie_temp],"; yyyy; ") AS Année_sortie FROM (CLIENTS INNER JOIN ((CDES INNER JOIN [BL TEMP] ON CDES.[N°Cde] = [BL TEMP].[N°Cde_temp]) INNER JOIN [LIGNES BL TEMP] ON [BL TEMP].[N°BL_temp] = [LIGNES BL TEMP].[N°BL_temp]) ON CLIENTS.Codeclient = CDES.CodeClient) INNER JOIN FACTURES ON CLIENTS.Codeclient = FACTURES.Codecli WHERE (((Format([DateSortie_temp],"; mm; "))=[Forms]![Choix_date_fact_perso]![Mois]) AND ((Format([DateSortie_temp],"; yyyy; "))=[Forms]![Choix_date_fact_perso]![Année]));"

Est-ce bien cette manip qu'il faut faire que tu conseilles ?
Je l'ai faite.
Voici le résultat :
le programme va à la ligne de code juste après.
Il va jusqu'à la ligne en-dessous du code et s'arrête à :

Code :

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

Set s = db.OpenRecordset("facture mensuelle malade", DB_OPEN_DYNASET)

Message d'erreur : "Trop peu de paramètres. 2 attendu."

Maintenant, il s'agit donc d'un état basé sur cette requête. Comment l'écrire si on utilise le sql ?

Merci d'avance.

Gundt

[Gundt]

Je viens de modifier ma requête sql car je l'avais simplifiée pour me dépanner.

Quand je l'a fait complète pour l'état, il m'affiche une erreur en plus :
"Erreur de compilation
Nom externe non défini."

Voici le code sql de la requête en entier :

Code :

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

1
2
Debug.Print "SELECT DISTINCTROW FACTURES.Numfacture, FACTURES.Date_fact, [BL TEMP].DateSortie_temp, CLIENTS.Codeclient, CLIENTS.Nom, CLIENTS.Prénom, CLIENTS.Monsieur, [BL TEMP].DateSortie_temp, Format([DateSortie_temp],"; mm; ") AS Mois_sortie, Format([DateSortie_temp],"; yyyy; ") AS Année_sortie, ETABLISSEMENTS.[Nom Etablissement], ETABLISSEMENTS.Rue, ETABLISSEMENTS.Ville, ETABLISSEMENTS.CodePostal, [LIGNES BL TEMP].[Code article], [LIGNES BL TEMP].Désignation, [LIGNES BL TEMP].Quantité, [LIGNES BL TEMP].[Prix unitaire], [LIGNES BL TEMP].[Code unité], [LIGNES BL TEMP].[Total ligne], [LIGNES BL TEMP].[N°BL_temp] FROM ETABLISSEMENTS INNER JOIN ((CLIENTS INNER JOIN ((CDES INNER JOIN [BL TEMP] ON CDES.[N°Cde] = [BL TEMP].[N°Cde_temp]) INNER JOIN [LIGNES BL TEMP] ON [BL TEMP].[N°BL_temp] = [LIGNES BL TEMP].[N°BL_temp]) ON CLIENTS.Codeclient = CDES.CodeClient) INNER JOIN FACTURES ON CLIENTS.Codeclient = FACTURES.Codecli) ON ETABLISSEMENTS.Codetab = CLIENTS.Codetab" _
; WHERE(((Format([DateSortie_temp], "mm")) = [Forms]![Choix_date_fact_perso]![Mois]) And ((Format([DateSortie_temp], "yyyy")) = [Forms]![Choix_date_fact_perso]![Année])); ""

Il s'arrête à la compilation sur [DateSortie_temp].

Pourtant c'est un champ de la table BL TEMP dans la requête sql.

Bizarre !!

Merci de vos explications.

Gundt

[Heureux-oli]

Sur la première erreur, j'aurais penché pour un finger trouble.
Une erreur dans l'écriture de ton SQL, pas une erreur syntaxique, mais dans l'orthographe des noms de champs et de tables.

[Gundt]

Bonjour à tous,

J'ai fait ceci pour le debug.print :

Code :

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

1
2
3
'Set r = db.OpenRecordset("Facture mensuelle malade", DB_OPEN_DYNASET)
 
 Debug.Print "PARAMETERS [Forms]![Choix_date_fact_perso]![Mois] Text, [Forms]![Choix_date_fact_perso]![Année] Short; SELECT DISTINCTROW FACTURES.Numfacture, FACTURES.Date_fact, [BL TEMP].date, CLIENTS.Codeclient, CLIENTS.Nom, CLIENTS.Prénom, CLIENTS.Monsieur, Format([date],"; mm; ") AS Moissortie, Format([date],"; yyyy; ") AS Annéesortie, ETABLISSEMENTS.[Nom Etablissement], ETABLISSEMENTS.Rue, ETABLISSEMENTS.Ville, ETABLISSEMENTS.CodePostal, [LIGNES BL TEMP].[Code article], [LIGNES BL TEMP].Désignation, [LIGNES BL TEMP].Quantité, [LIGNES BL TEMP].[Prix unitaire], [LIGNES BL TEMP].[Code unité], [LIGNES BL TEMP].[Total ligne], [LIGNES BL TEMP].[N°BL_temp] FROM ETABLISSEMENTS INNER JOIN ((CLIENTS INNER JOIN FACTURES ON CLIENTS.Codeclient = FACTURES.Codecli) INNER JOIN ((CDES INNER JOIN [BL TEMP] ON CDES.[N°Cde] = [BL TEMP].[N°Cde_temp]) INNER JOIN [LIGNES BL TEMP] ON [BL TEMP].[N°BL_temp] = [LIGNES BL TEMP].[N°BL_temp]) ON CLIENTS.Codeclient = CDES.CodeClient) ON ETABLISSEMENTS.Codetab = CLIENTS.Codetab; "

Je n'ai plus d'erreur car j'ai mis en remarque la ligne
Set r = db.OpenRecordset("Facture mensuelle malade", DB_OPEN_DYNASET) car je n'ai pas bien compris le debug.print : remplace-t-il la ligne que j'ai mis en remarque ou bien est-ce en plus pour aider à trouver l'erreur ?

Mais quand j'arrive sur la ligne suivante du code qui devrait ouvrir l'état :

Code :

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

Set s = db.OpenRecordset("Facture mensuelle malade", DB_OPEN_DYNASET)

il m'affiche la même erreur : Trop peu de paramètres. 2 attendus.

Demco m'a conseillé de faire ceci :
"Puis tu regarder la requête dans la fenêtre d'exécution pour voir si c'est bien la requête que tu attends. Fais un copier coller dans le requêteur pour voir si elle renvoir les résultats attendus."
Mais je ne comprends pas ce que tu veux dire "regarder la requête dans la fenêtre d'exécution" laquelle ?
(parce que j'ai un formulaire qui devrait ouvrir l'état par l'intermédiaire du code vba) et c'est comme cela que je lance le programme.
Et aussi un copier coller dans le requêteur ? que veux-tu dire exactement par requêteur ?
j'avoue être paumé dans les modules.

Merci de votre aide.

Gundt

[Heureux-oli]

Essaie

Code :

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

Set db = currentdb

[Gundt]

En fait, cela ne change rien : j'ai la même erreur.

Par contre, je viens d'essayer de mettre ceci que j'ai vu sur le site :

Code :

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

1
2
3
Set DB = CurrentDb
sql = "SELECT NumEmp FROM Employe WHERE Trigramme='" & TriEmp & "'"
Set Rst = DB.OpenRecordset(sql, dbOpenDynaset)

donc, que je voulais mettre la ligne sql = requête sql
Mais là, j'ai un message d'erreur . C'est peut-être de là que vient le problème.

J'ai écrit ceci :

Code :

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

1
2
3
sql1 = "PARAMETERS [Forms]![Choix_date_fact_perso]![Mois] Byte, [Forms]![Choix_date_fact_perso]![Année] Short; _
SELECT DISTINCTROW FACTURES.Numfacture, FACTURES.Date_fact, [BL TEMP].date, CLIENTS.Codeclient, CLIENTS.Nom, CLIENTS.Prénom, CLIENTS.Monsieur, Format([date],"mm") AS Moissortie, Format([date],"yyyy") AS Annéesortie, ETABLISSEMENTS.[Nom Etablissement], ETABLISSEMENTS.Rue, ETABLISSEMENTS.Ville, ETABLISSEMENTS.CodePostal, [LIGNES BL TEMP].[Code article], [LIGNES BL TEMP].Désignation, [LIGNES BL TEMP].Quantité, [LIGNES BL TEMP].[Prix unitaire], [LIGNES BL TEMP].[Code unité], [LIGNES BL TEMP].[Total ligne], [LIGNES BL TEMP].[N°BL_temp] _
FROM ETABLISSEMENTS INNER JOIN ((CLIENTS INNER JOIN FACTURES ON CLIENTS.Codeclient = FACTURES.Codecli) INNER JOIN ((CDES INNER JOIN [BL TEMP] ON CDES.[N°Cde] = [BL TEMP].[N°Cde_temp]) INNER JOIN [LIGNES BL TEMP] ON [BL TEMP].[N°BL_temp] = [LIGNES BL TEMP].[N°BL_temp]) ON CLIENTS.Codeclient = CDES.CodeClient) ON ETABLISSEMENTS.Codetab = CLIENTS.Codetab; "

mais je ne peux même pas valider car il m'affiche :
Erreur de compilation
Erreur de syntaxe

Nota : J'ai mis le code sur 3 lignes avec au bout un espace suivi d'un _
il y en a un après short et un après [LIGNES BL TEMP].[N°BL_temp]

merci.

Gundt

[Heureux-oli]

Essaie de mettre des guillemets "

style

Code sql :

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

1
2
3
 
"Select * from table " _ &
"where .....";

[Gundt]

bonjour à tous,

Il fallait donc mettre les " comme tu le disais.
Mais j'ai toujours le message d'erreur :
Trop peu de paramètres. 2 attendus.

On avance tout doucement.

Merci.

Gundt