recherche du code VBA pour executer ma requete

Re,

Citation:

---

oui j ai 3 colonnes

---

Alors tu ne peux pas te référer directement à ta liste modifiable si le code article n'est pas dans la première colonne !

Essaie comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim strArticle as String Dim strSql as String   'L'indice de la colonne commence à zéro (ici, l'article est dans la troisième 'colonne. A adapter si nécessaire strArticle = Me.Modifiable64.Column(2)   strSql = "SELECT Commande.Nomcmd, Commande.Datecmd, Commande.Article, Commande.Quantitécmd, Commande.N°fax INTO boubloncmd WHERE Commande.Datecmd = Date()-3 AND Commande.Article = '" & strArticle & "';"   Debug.Print strSql   CurrentDb.Execute strSql, dbFailOnError

---

Si ça ne passe pas, après avoir exécuté le code, tu peux voir ta requête dans la fenêtre d'exécution (Ctrl+G).

Domi2

non mais j ai pas besoin d utiliser .column(0)

regarde je fais

Code:

---

1 2 3 4 5

limite = Date - 3 strArticle = Me.Modifiable64 strSql = "SELECT Commande.Nomcmd, Commande.Datecmd, Commande.Article, Commande.Quantitécmd, Commande.N°fax INTO boubloncmd WHERE (Commande.Datecmd >= '" & limite & "' AND Commande.Article = '" & strArticle & "');" Debug.Print strSql CurrentDb.Execute strSql, dbFailOnError

---

et lorsque je fais ctrl + G
il m' affiche

Code:

---

1 2 3

SELECT Commande.Nomcmd, Commande.Datecmd, Commande.Article, Commande.Quantitécmd, Commande.N°fax INTO boubloncmd WHERE (Commande.Datecmd >= '16/03/2009' AND Commande.Article = '0000037_SYLV');

---

et j avais bien selectionner '0000037_SYLV' dans mon modifiable64


mais ca ne marche tjrs pas.......:bug:

salut,
pour les champs de type date :

Code:

---

1 2	SELECT Commande.Nomcmd, Commande.Datecmd, Commande.Article, Commande.Quantitécmd, Commande.N°fax INTO boubloncmd FROM Commande WHERE (Commande.Datecmd >= #03/16/2009# AND Commande.Article = '0000037_SYLV');

---

id est #MM/JJ/AAAA#

Re,

Sorry, il manque le FROM

Code:

---

strSql = "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 = '" & strArticle & "';"

---

Domi2

Bonjour,
As-tu essayé un simple docmd.RunSql.

bonsoir,
si ta requete fonctionne en direct essaye de l'exécuter par son Nom.

Code:

---

1 2 3 4

Dim stDocName As String   stDocName = "NomDeTaRequête" DoCmd.OpenQuery stDocName, acNormal, acEdit

---

il y a probablement une erreur que la méthode execute de currentDB ne fait pas apparaître.

peut être qu'en utilisant un objet querydef, l'erreur se produira ??

Code:

---

1 2 3

Dim marequete As QueryDef Set marequete = CurrentDb.CreateQueryDef("", "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]));") marequete.Execute dbFailOnError

---

j ai tester ma méthode " du Vieux" et ca marche c est l essentiel !
un grand merci a vous! ps : je testeré vos autres solutions afin de permettre peut etre a qqun ds un cas similaire de trouver une reponse .
:yaisse2:

Bonsoir,

J'ai fait un test aussi, et ça fonctionne avec le code de mon post précédent...

Seule chose un peu "étrange", c'est que la table n'apparait pas immédiatement dans la fenêtre de base de données si on est dans l'onglet "Tables"... Il faut en sélectionner un autre puis y revenir pour voir la nouvelle table...

Domi2