Discussion :

[gwems]

Bonjour j ai réaliser une requete dont voici le code SQL:

Code :

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

1
2
3
SELECT Commande.Nomcmd, Commande.Datecmd, Commande.Article, Commande.Quantitécmd, Commande.N°fax INTO boubloncmd
FROM Commande
WHERE (((Commande.Datecmd)>=Date()-"3") AND ((Commande.Article)=[Formulaires]![from commande2]![Modifiable64]));

lorsque je l' execute ca fonctionne impec
j ai alors essayer de trouver le code vba pour l inclure dans une procédure

mais la rien ne se passe il ne me dis pas d' erreur mais il ne crée pas ma nouvelle table. Voici le code

Code :

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

CurrentDb.Execute "SELECT Commande.Nomcmd, Commande.Datecmd, Commande.Article, Commande.Quantitécmd, Commande.N°fax INTO boubloncmd FROM Commande WHERE (((Commande.Datecmd)>=Date()-""3"") AND ((Commande.Article)=[Formulaires]![from commande2]![Modifiable64]));"

merci de votre aide

[Jean-Philippe André]

Bonjour,

avant de te proposer une solution à ta problématique, je me demande pourquoi tu utilises un

Code SQL :

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

Date() -"3"

dans ta requête, au lieu d'un plus courant

Code SQl :

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

Date()-3

Peux-tu nous en dire un peu plus stp ?

[gwems]

salut bien j ai essayer avec "date()-3" tjrs le meme resultat: rien

en fait je souhaite crée une table qui reprendré une partie du contenu d' une autre

Soit la table principale : commande
table secondaire : doubloncmd

et dans un formulaire j ai un modifiable"modifiable64" qui contient
une valeur du champ "Article" ce ma table commande.

et je voudrais que ma table secondaire contienne tous les éléments
de ma table matériel pour l'article selectionné lans la liste deroulante
SI "datecmd" >= (date()-3)


merci de m aider

[Jean-Philippe André]

OK,
la focntion utilisée est la bonne :

Code :

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

CurrentDb.Execute "SELECT Commande.Nomcmd, Commande.Datecmd, Commande.Article, Commande.Quantitécmd, Commande.N°fax INTO boubloncmd FROM Commande WHERE (((Commande.Datecmd)>=Date()-3) AND ((Commande.Article)=[Formulaires]![from commande2]![Modifiable64]));"

à vérifier avant l'exécution :
- la table boubloncmd n'existe pas déjà ?
- le formulaire "from commande2" est bien ouvert ?

[gwems]

non, ma table boubloncmd n' existe pas encore
et oui mon formulaire est bien ouvert puisque l' evennement s' effectue depuis ce formulaire.

[Jean-Philippe André]

Et avec cela tu n'as ni erreur générée ni table créée ?

[gwems]

non rien du tout et lorsque je met des msgbox avt et apres il ne m' affiche que celui que je met avant le code il ne m' affiche pas le 2ieme

a croire qu il beug vrmt sur cette ligne

Code :

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

1
2
3
MsgBox "message1"
CurrentDb.Execute "SELECT Commande.Nomcmd, Commande.Datecmd, Commande.Article, Commande.Quantitécmd, Commande.N°fax INTO boubloncmd  WHERE (((Commande.Datecmd)>=Date()-3) AND ((Commande.Article)=[Formulaires]![from commande2]![Modifiable64]));"
msgbox "message2"

[Domi2]

Bonjour,

La méthode Execute ne fonctionne qu'avec des requêtes "action". Hors, tu ne fais qu'un Select.

Domi2

[gwems]

ok merci de ton aide mais alors que dois je utiliser a la place

si non j ai essayer le code suivant

Code :

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

CurrentDb.Execute "INSERT INTO boubloncmd ( Nomcmd, Datecmd, Article, Quantitécmd, N°fax ) SELECT Commande.Nomcmd, Commande.Datecmd, Commande.Article, Commande.Quantitécmd, Commande.N°fax FROM Commande WHERE (((Commande.Datecmd)>=Date()-3) AND ((Commande.Article)=[Formulaires]![from commande2]![Modifiable64]));"

mais ca ne fonctionne pas non plus
merci de votre aide.

[Domi2]

Re,

Code :

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

=[Formulaires]![from commande2]![Modifiable64]));"

le nom de ton formulaire est correct ?

"from commande 2" ?

Domi2

[gwems]

oui il est correct!

et il est bien ouvert

[Domi2]

Re,

Tu as essayé d'exécuter ta requête Ajout ?

Elle te crée bien ta table ?

Domi2

[gwems]

oui je viens encore de le faire ....

que ce soit ma requete précédante " création de table "
ou la requete "ajout"

mais impossible de la faire tourner a partir de code VBA

[Jean-Philippe André]

Bonjour,

La méthode Execute ne fonctionne qu'avec des requêtes "action". Hors, tu ne fais qu'un Select.

Domi2

attention, il s'agit bien d'une erquête action, car SELECT ... INTO

[gwems]

enfin je sais pas ya peut etre moyen de faire autrement je suis ouvert a toute possibilité tant que l' on m' expque cmt y arrivé

[Domi2]

Bonjour,

attention, il s'agit bien d'une erquête action, car SELECT ... INTO

J'avais pas vu le INTO plus loin, me suis focalisé sur le SELECT initial...

C'est probablement au niveau du critère que cela ne va pas...

As-tu essayé de mettre un numéro d'article "en dur" dans ta requête ?

Domi2

[gwems]

ce qui donne ????

[Domi2]

Re,

Ton numéro d'article est numérique ? De type texte ?

Tu as une ou plusieurs colonne dans ta liste déroulante ?

Domi2

[gwems]

tout est de type texte
et dans la liste déroulante de mon modifiable , oui j ai 3 colonnes
par contre me.modifiable64.value ne contient que la valeur du champ " article"

et je viens d essayer en mettant direct la réf d' un article et ca me marche tjrs pas......

[gwems]

et j sai spas mais ya pas moyen d avoir un code qui executeré ma "requete3" ??