Discussion :

[Muffyn]

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.

[soltani1]

bonjour,

Essaye :

Code :

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

SELECT auteur, titre FROM prets into werber

A+

[soltani1]

bonjour,

Coici le code exacte:

Code :

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

SELECT auteur, titre into werber  FROM prets

A+

[Muffyn]

ça ne fonctionne pas non plus.

je me demande si le problème ne vient pas de mon DoCmd.RunSQL()...

[soltani1]

Bonjour,

Ta première syntaxe était fausse create table ...

cette version

Code :

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

1
2
SELECT prets.auteur, prets.titre INTO werber
FROM prets;

fonctionne correctement, je l'ai utilisé dans la requête d'Access et la table werber à été crée.

A+

[Muffyn]

Super ca roule merci bcp