Discussion :

[AndréPe]

Bonjour,
Une erreur probablement due à une mauvaise syntaxe, mais où ?.
Je souhaiterais utiliser la même SQL pour plusieurs tables tab1, tab2, etc., en introduisant les noms des tables comme variable

Code :

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

1
2
3
4
Dim Matable as TableDef
Set Matable = CurrentDb.TableDefs("tab1")
SQL=SELECT MaTable.champ INTO tabTrav FROM MaTable WHERE critere
DoCmd.RunSql (SQL)

Erreur à la dernière ligne "... ne trouve pas la table 'MaTable'"

Si vous savez ...
Merci
Amitiés

[Brunodm13]

Bonsoir,

SQL doit être de type String.
J'aurai donc écrit.

Code :

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

1
2
3
 
SQL="SELECT " & MaTable & ".champ INTO tabTrav FROM " & MaTable & "WHERE critere"
DoCmd.RunSql (SQL)

Bruno

[User]

juste une precision pour éviter les confusions,

dans le code de Brunodm13 la variable MaTable est de type string
et on peut avoir:

Code :

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

1
2
3
4
5
MaTable="tab1"
 
ou
 
MaTable="tab2"

etc...

et le code de Bruno

[AndréPe]

Merci à vous deux,
C'est impardonnable de ma part d'être allé chercher si loin, alors que l'erreur était flagrante.

Code :

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

1
2
3
4
Dim Matable, SQL as String
Set Matable = "tab1"
SQL="SELECT " & MaTable & ".champ INTO tabTrav FROM " & MaTable & "WHERE critere"
DoCmd.RunSql (SQL)

et ça fonctionne bien.

Amitiés

[Kloun]

Juste pour dire que, comme ça, MaTable n'est pas définie comme un String

[AndréPe]

Effectivement, là résidait une belle erreur !
Amitiés