Discussion :

[JPJOLY]

Bonjour,

Je souhâite creer une table avec une instruction SQL, dont les données proviennent d'une table dont le nom serait fournis par une variable.
J'ai fait différents essais sans succés. Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Function influtab(nomt As String, influ As String)
Dim MonSql As String
Dim MaDB As Database
Set MaDB = CurrentDb()
 
 
MonSql = "SELECT * INTO INFLXXZZZZN FROM " & nomt &" WHERE champ1 =" & influ & ";"
 
MaDB.Execute MonSql
MaDB.Close
 
End Function

J'ai un message concernant FROM.
Y a t'il une solution ???

J'ai essayé également aprés FROM: & nomt " IN 'C:\devis.accdb ' "
mais j'ai un message sur 'C:\DEVIS.accdb ' qu'access considère comme un paramètre.
Inutile de préciser que je suis débutant ! Merci pour toute suggestion.

[Invité]

Bonjour

Il faut que ton nom de table soit mit par concaténation :

Code :

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

MonSql = "SELECT * INTO " & nomtable & " FROM " & nomt &" WHERE champ1 =" & influ & ";"

Où nomtable est une variable comportant le nom de ta table.

Philippe

[JPJOLY]

Merci pour la réponse.

J'ai essayé la solution proposée. Je prends bien en compte le paramètre nomTN pour le nom de la table à créer. Par contre le paramètre nomt pour la table source n'est pas accepté. J'ai le message suivant:
ERREUR EXECUTION 3131
ERREUR DE SYNTAXE DANS LA CLAUSE FROM

J'ai défini NomTN et nomt comme string. Est ce bien la solution pour nomt ?

[Psychopathe]

Es-ce que ça marche si tu enlève la clause Where déjà? Es-ce que nomt est une table existante?

[JPJOLY]

Tout d'abord merci de votre aide.

En réponse à votre message, en enlevant la clause WHERE....ça marche !
Je copie alors la totalité de la table ..bien sur !

VOICI MON CODE:

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
Function influtab()
Dim MonSql As String
Dim MaDB As Database
Set MaDB = CurrentDb()
Dim nomTN As String
Dim nomT As String
Dim nomX
nomTN = "INFLXXZZZZN"
nomT = "INFLU544033N"
nomX = "532"
 
MonSql = "SELECT * INTO " & nomTN & " FROM " & nomT & "WHERE  Champ1 = " & nomX & ";"
 
MaDB.Execute MonSql
MaDB.Close
 
End Function

Donc avec:

Code :

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

MonSql = "SELECT * INTO " & nomTN & " FROM " & nomT & "WHERE Champ1 = " & nomX & ";

"

erreur 3131
erreur de syntaxe dans la clause FROM

MAIS AVEC:

Code :

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

1
2
 
MonSql = "SELECT * INTO " & nomTN & " FROM " & nomT  & ";"

TOUT EST OK ...mais je copie la table entière !!

Une idée ? J'ai vérifié Champ1 existe bien et rigoureusement sous le syntaxe indiquée.

[JPJOLY]

J'ai trouvé dans mon SQL il manquait un 'blanc' avant WHERE !

SQL MAUVAIS:

Code :

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

MonSql = "SELECT * INTO " & nomTN & " FROM " & nomT & "WHERE Champ1 = " & nomX & ";"

=======

SQL BON

Code :

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

MonSql = "SELECT * INTO " & nomTN & " FROM " & nomT & "  WHERE Champ1 = " & nomX & ";"                                                       =====

Avec toutes mes excuses et mes remerciements à tout ceux qui ont perdu leur temps à cause d'une erreur aussi idiote.