Erreur syntaxe paramètre sql [Résolu]

[chordially]

Bonjour,
J'ai utilisé un exemple de code dans le tutoriel sur les requêtes sql paramétrées dans VBA (ArticleDAO.pdf), mais je bute sur une erreur (de syntaxe ?). Sans critère paramétré, le code fonctionne bien, mais je dois mal écrire mes paramètres, et bien que j'ai fouillé, je n'y arrive pas. Voici le code-type que j'utilise :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' Ci-dessous, L'expression qui fonctionnait pour une seule table +
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 '   DoCmd.SelectObject acTable, "T_MaTable", True
 '   DoCmd.RunSQL "SELECT [T_MaTable].* INTO [T_MaTable] IN 'P:\AutreBaseExemple.mdb'  FROM [T_MaTable];", -1
Public Function Exporter_versAutreBase()
On Error GoTo Exporter_versBASEINDIVIDU_Err
Dim oRst As DAO.Recordset
Dim oDb As DAO.database
Dim strRst As String
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("SELECT T_MaTable.NomTable FROM T_MaTable", dbOpenDynaset)
'DoCmd.SetWarnings False
'Tant que non fin du recordset
While Not oRst.EOF
strRst = oRst.Fields("NomTable").Value
    ' Employés(NewRPT)tb
    DoCmd.SelectObject acTable, strRst, True
    DoCmd.RunSQL "SELECT strRst INTO strRst IN 'P:\AutreBaseExemple.mdb' FROM strRst ;", -1
Wend
 
 
Exporter_versBASEINDIVIDU_Exit:
    Exit Function
 
Exporter_versBASEINDIVIDU_Err:
    MsgBox Error$
    Resume Exporter_versBASEINDIVIDU_Exit
 
End Function

Le message d'erreur que j'obtiens est : "Le moteur de base de données Microsoft Jet ne peut pas trouver la table ou la requête source 'stRst'. Assurez-vous...."
Il doit manquer des guillemets ou crochets, mais je ne trouve pas.

Merci de votre aide.

Choridally

[LedZeppII]

Bonjour,

Essaie en concaténant de cette manière :

Code :

DoCmd.RunSQL "SELECT [" & strRst & "].* INTO [" & strRst & "] IN 'P:\AutreBaseExemple.mdb'  FROM [" & strRst & "];", -1

A+

[chordially]

Bonjour LedZepII,
Merci pour la réponse et la rapidité.
Je l'essaie de suite et vous en redonne des nouvelles.
Chordially

[chordially]

Comme on dit dans la "Loutre-Atlantique" : ItWorkse
mille merci(s)
Chordially

[chordially]

Un dernier petit détail...

J'avais omis d'écrire (en noir et en gras ci-dessous)

Code :

1
2
3
4
5
6
7
8
9
10
11
    While Not oRst.EOF
strRst = oRst.Fields("NomTable").Value
    DoCmd.SelectObject acTable, strRst, True
    DoCmd.RunSQL "SELECT [" & strRst & "].* INTO [" & strRst & "] IN 'P:\AutreBaseExemple.mdb' FROM [" & strRst & "] ;", -1    
oRst.MoveNext
Wend
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing

dans mon code, ce qui expliquerait (il me semble... ) que le code se ré-exécutait en boucle, sans vraiment arrêter.

Bon, au lit...
Encore Merci.
Chordially