Je ne parvient pas à faire tourner ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Private Sub btnsauver_Click()
    Dim SQLEnr As String
 
    SQLEnr = "CREATE TABLE " & Replace(Me.txtauteur, "'", "''") & " AS SELECT auteur, titre FROM prets;"
    DoCmd.RunSQL (SQLEnr)
    Debug.Print SQLEnr
End Sub
mon debug.print retourne si je met werber dans le txtauteur:

CREATE TABLE werber AS SELECT auteur, titre FROM prets;
et le DoCmd.RunSQL (SQLEnr) me retourne une erreur de syntaxe dans l'instruction CREATE TABLE :/

ça me semble pourtant bon...

merci de m'aider.