Erreur d'exécution 3067 [Résolu]

[Francesco34]

Bonsoir,

J'ai un petit bout de code VBA tout simple :

Code :

1
2
3
4
5
Private Sub CDE_Facturation_Click()
    DoCmd.OpenQuery ("R_Creation_Facture")
 
    Forms![F_Edition_Factures].Requery
End Sub

Et une requête qui l'est un peu moins :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
INSERT INTO FACTURES ( IdFacture, IdCommande, PrixFormule, PrixOption1, PrixOption2, NbreGadgets, PrixBallons, FraisTransport, TvaPleine, TvaReduite, IdAcompte, Acompte, PrixTotal, Remise, Paiement, TypeFacture )
 
VALUES ((SELECT Max(IdFacture)+1 FROM FACTURES),
[Formulaires]![F_Edition_Factures]![IdCommande],
[Formulaires]![F_Edition_Factures]![PrixFormule],
[Formulaires]![F_Edition_Factures]![PrixOption1],
[Formulaires]![F_Edition_Factures]![PrixOption2],
[Formulaires]![F_Edition_Factures]![PrixGadgets]/2,
[Formulaires]![F_Edition_Factures]![PrixDecoBallons],
[Formulaires]![F_Edition_Factures]![CoutTransport],
([Formulaires]![F_Edition_Factures]![PrixGadgets]+[Formulaires]![F_Edition_Factures]![PrixBallons]+[Formulaires]![F_Edition_Factures]![CoutTransport])*0.196,
([Formulaires]![F_Edition_Factures]![PrixAnimation]-[Formulaires]![F_Edition_Factures]![Remise]-[Formulaires]![F_Edition_Factures]![Acompte])*0.055,
(SELECT FACTURES.IdFacture FROM FACTURES WHERE FACTURES.IdCommande=[Formulaires]![F_Edition_Factures]![IdCommande]),
[Formulaires]![F_Edition_Factures]![Acompte], [Formulaires]![F_Edition_Factures]![PrixTotal], 
[Formulaires]![F_Edition_Factures]![Remise], 
"-", 
[Formulaires]![F_Edition_Factures]![TypeFacture]);

Lorsque j'exécute le code VBA qui active cette requête, j'obtiens un erreur 3067 : La requête doit être construite à partir d'au moins une table ou une requête source.

Ma requête est correctement orthographiée dans le code VBA et tout porte à croire qu'elle est bien reconnue puisque Access m'avertie que je vais effectuer une requête d'ajout. Concernant la requête en elle-même, je ne vois pas ce qui pourrait clocher au niveau des tables de la requête principale ou des requêtes imbriquées.
Auriez-vous une idée de ce qui peut provoquer cette erreur ?

Merci par avance pour votre temps.

[jpcheck]

salut,

ta requete est une requete action, il faut donc executer le code, avec par exemple

Code :

Currentdb.Execute ...

ou alors

Code :

Docmd.RunSQL ...

voire creer un objet querydef et le faire executer aussi

Code :

1
2
3
Dim qdf As QueryDef
...
qdf.execute

les syntaxes de toutes ces possibilites sont disponibles via l'aide en ligne

[Francesco34]

Bonjour,

Merci de ta réponse. En fait, le problème ne venait pas du code VBA ou de celui de la requête mais simplement du fait que je n'avais pas sélectionné de table dans la fenêtre supérieure du mode création de la requête.

[loufab]

Bonjour,

Les Select dans un values c'est pas le top. Utilise plutot Dmax et Dlookup.

Cordialement,

[Francesco34]

Je ne connais pas ces commandes, je vais aller voir de quoi il s'agit. Quand tu dis pas top, tu parles en termes de performances ?