INSERT + SELECT TOP...argument incorrect

**samlepiratepaddy** · 11/09/2005, 19h45

Slt,
Je crois que je ne suis pas bon en SQL brut dans le VBA.....

En fait, je souhaite :
Ajouter a la T_Affectation
Les NumProspect de la T_Prospect
dont le CodePostal est égal a celui de mon form
Et ajouter aussi le TrigrammeTélépro et le trigrammeCommercial pour chaque IdProspect....
Et j'ai fais ça :

Code :

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

1
2
3
Private Sub ValiderAffectation_Click()
DoCmd.RunSQL "INSERT INTO T_Affectation ( NumProspect, QuelTélépro, QuelCommercial )", "SELECT TOP 200 T_Prospect.N°Prospect, F_ChoixProspectPourAffectation.Télépro, F_ChoixProspectPourAffectation.Commercial FROM T_Prospect,WHERE (((T_Prospect.CodePostal)=[ComboCodePostal]));"
End Sub

Et bien vous savez quoi..... ça marche pas !!!
Piste...Si la table a aujourd'hui n'a pas encore plus de 200 enregistrements est-ce que cela affecte le SELECT TOP 200 ????
Sinon je vois pas ce qui cloche....
Quelqu'un a une idée..
Merci d'avance

**Tofalu** · 11/09/2005, 19h54

Que viens faire la virgule avant le select ?

**User** · 11/09/2005, 20h11

1ère essai:

Code :

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

1
2
3
4
5
6
Private Sub ValiderAffectation_Click() 
Dim monSQL As String 
 
DoCmd.RunSQL "INSERT INTO T_Affectation ( NumProspect, QuelTélépro, QuelCommercial ) SELECT TOP 200 T_Prospect.N°Prospect, F_ChoixProspectPourAffectation.Télépro, F_ChoixProspectPourAffectation.Commercial FROM T_Prospect,  F_ChoixProspectPourAffectation WHERE (T_Prospect.CodePostal=" & Me!ComboCodePostal & " );" 
 
End Sub

Qu'est-ce qui relie les tables T_Prospect et F_ChoixProspectPourAffectation

si c'est NumProspect alors il faut ajouter à ta clause where:

Code :

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

And (T_Prospect.NumProspect = F_ChoixProspectPourAffectation.NumProspect)

@+

**samlepiratepaddy** · 11/09/2005, 21h20

Merci de vos réponses et j'ai rectifié avec ça

Code :

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

1
2
3
Private Sub ValiderAffectation_Click()
DoCmd.RunSQL "INSERT INTO T_Affectation ( NumProspect, QuelTélépro, QuelCommercial ) SELECT TOP 200 T_Prospect.N°Prospect, F_ChoixProspectPourAffectation.Télépro, F_ChoixProspectPourAffectation.Commercial FROM T_Prospect,WHERE (((T_Prospect.CodePostal)=" & Me.ComboCodePostal & "));"
End Sub

Mais ça coince au FROM (Erreur de syntaxe dans la clause FROM)
Pourtant c'est toujours écrit comme ça dans les requetes de l'interface (mode SQL)????
Quand à

Code :

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

WHERE (((T_Prospect.CodePostal)=" & Me.ComboCodePostal & "))

il est vrai qu'il faut la valeur COMBO et non le Texte !!!enfin je crois !!
Heu désolé pour ces erreurs

, mais ce n'est que la deuxième SQL que j'ecris en dur dans VBA, avant je passais toujours par l'interface Access...
Alors j'ai beaucoup, beaucoup, beaucoup de mal....

Ps: ce Form n'a pas de source, il ne sert que de "préselection" pour choisir et limiter le Nbr de prospect a affecter !

**Tofalu** · 11/09/2005, 21h21

Et bien, passe par l'interface Access dans un premier temps et ensuite seulement fais un copier coller en VBA quand ça fonctionne

**User** · 11/09/2005, 21h33

Oui c'est ca teste ta requête avec l'interface ça ira plus vite:

et la ton erreur vient de :

Code :

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

FROM T_Prospect,WHERE

la virgule, comme je t'ai dit en haut il faut mettre:

Code :

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

FROM T_Prospect,  F_ChoixProspectPourAffectation WHERE

**samlepiratepaddy** · 11/09/2005, 22h15

Je sais bien Tofalu
Mais voila ce que me sort l'interface :

Code :

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

DoCmd.RunSQL "INSERT INTO T_Affectation ( NumProspect, QuelTélépro, QuelCommercial )SELECT TOP 200 T_Prospect.N°Prospect, [Formulaires]![F_ChoixProspectPourAffectation]![Télépro] AS Expr1, [Formulaires]![F_ChoixProspectPourAffectation]![Commercial] AS Expr2 FROM T_Prospect, WHERE (((T_Prospect.CodePostal)=[ComboCodePostal]));"

Et je pense que ça va coincer au

Code :

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

WHERE (((T_Prospect.CodePostal)=[ComboCodePostal]));"

a cause de la valeur et tel quel, J'ai le m^me problème

(Erreur de syntaxe dans la clause FROM)

Alors c'est la raison du post !!!
Sinon je bidouille je cherche et très souvent je trouve mais là????
Et malgré de vains essais différents, toujours ce même msg...

ça me gave grave !!!
Ps

our UserJ'ai essayé aussi, mais il me réclame le

F_ChoixProspectPourAffectation

comme une source ???
Hors que ce formulaire n'a PAS de source !
Le dernier code essayé et le plus cohérent je pense est

Code :

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

DoCmd.RunSQL "INSERT INTO T_Affectation ( NumProspect, QuelTélépro, QuelCommercial ) SELECT TOP 200 T_Prospect.N°Prospect, F_ChoixProspectPourAffectation.Télépro, F_ChoixProspectPourAffectation.Commercial FROM T_Prospect, WHERE (((T_Prospect.CodePostal)=" & Me.ComboCodePostal & "));"

Mais le bug est au FORM !
Alors je sèche

**User** · 11/09/2005, 22h23

OK

donc si j'ai compris F_ChoixProspectPourAffectation
est un formulaire ?

@+

**samlepiratepaddy** · 11/09/2005, 22h31

Si tu veux, moi j'essai de faire simple pour m'y retrouver !!
A force de voir les autres faire, je fais comme eux

F_blabla (Formulaire)
T_blibli (Table)
R_bloblo (Requete)
Etc...
Alors peut-etre vois-tu mieux mon problème...
Merci de ta patience, en tout cas...

**User** · 11/09/2005, 22h58

Dans ce cas ton sql est complètement faut désolé

les références [Formulaires]![F_ChoixProspectPourAffectation]![Télépro] ..
n'ont rien à faire dans un select !

tu peux me donner la table source de ton formulaire F_ChoixProspectPourAffectation et les champs de cette table ?

@+

**samlepiratepaddy** · 11/09/2005, 23h14

Ben comme déja dis au-dessus ce form n'a pas de source
Il ne me sert qu'avec quelques Txtbox indépendant a trier, filtré avec des listes, les prospects sur lequels je dois faire une affectation a des opérateurs, simplement pour avoir un "Visuel" plus propre qu'une requte en dur !, d'ou la requete Insert !
Je veux bien lui en donner une affectation, mais je ne vois pas Pourquoi puisqu'aucun champ de cette source ne sera dans le formulaire !
Quand a

les références [Formulaires]![F_ChoixProspectPourAffectation]![Télépro] ..
n'ont rien à faire dans un select !

C'etait simplement l'interface de la requete en SQL !
Qui d'ailleurs, quand je note le code postal fonctionne parfaitement mais je souhaite automatiser tout ça !
Voila ce que j'ai mis

Code :

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

DoCmd.RunSQL "INSERT INTO T_Affectation ( NumProspect, QuelTélépro, QuelCommercial ) SELECT TOP 200 T_Prospect.N°Prospect, F_ChoixProspectPourAffectation.Télépro, F_ChoixProspectPourAffectation.Commercial FROM T_Prospect, WHERE (((T_Prospect.CodePostal)=" & Me.ComboCodePostal & "));"

Mais toujours le bug sur FROM...
Si t'y comprend quelque chose je suis preneur !

**User** · 12/09/2005, 00h03

On apprend des choses:

alors vire ta virgule avant le where (3ème fois)
et mets des forms devant le formulaire:

Code :

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

DoCmd.RunSQL "INSERT INTO T_Affectation ( NumProspect, QuelTélépro, QuelCommercial ) SELECT TOP 200 T_Prospect.N°Prospect, Forms!F_ChoixProspectPourAffectation!Télépro, Forms!F_ChoixProspectPourAffectation!Commercial FROM T_Prospect WHERE (((T_Prospect.CodePostal)=" & Me.ComboCodePostal & "));"

@+

**samlepiratepaddy** · 12/09/2005, 01h10

Quel c.. je fais !
Bien sur!
J'ai enlevé celle avant SELECT mais pas celle là !
Enfin ça marche !!!!

Je vais rebidouiller tout ça car y'a un critère que j'ai oublié mais c'est facile, au lieu d'aller prendre dans la T_Prospect se sera dans une requete !
Et pour finir, à la fin, j'ai du mettre [ComboCodePostal] au lieu de

Code :

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