Discussion :

[Muffyn]

Voiloù maintenant c'est mon SQListpretsauteur qui ne marche qu'à moitié.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub btnsauver_Click()
    Dim SQLEnr As String
    Dim SQListpretsauteur
 
    SQLEnr = "SELECT prets.auteur, prets.titre INTO " & Replace(Me.txtauteur, "'", "''") & " FROM prets;"
        DoCmd.RunSQL (SQLEnr)
    SQListpretsauteur = "INSERT INTO listpretsauteur VALUES " & Replace(Me.txtauteur, "'", "''") & ";"
        DoCmd.RunSQL (SQListpretsauteur)
            Debug.Print SQListpretsauteur
End Sub

donc le "DoCmd.RunSQL (SQListpretsauteur)", ouvre une boite de dialogue "Entrez une valeur de paramêtre", qui, si j'y ré-entre la valeur contenue dans "Me.txtauteur", insère bien la valo dans la table listpretsauteur. mais moi, j'en veux pas de la boite de dialogue...

si vous voyez mieux que moi

[Kloun]

Mets le debug.print avant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnsauver_Click()
Dim SQLEnr As String
Dim SQListpretsauteur
dim iDB as database
 
    set iDB = currentDB
    SQLEnr = "SELECT prets.auteur, prets.titre INTO " & Replace(Me.txtauteur, "'", "''") & " FROM prets;"
        DoCmd.RunSQL (SQLEnr)
    SQListpretsauteur = "INSERT INTO listpretsauteur VALUES '" & Replace(Me.txtauteur, "'", "''") & "'"
    Debug.Print SQListpretsauteur
    iDB.execute SQListpretsauteur, dbfailonerror
End Sub

A quoi sert le SQLEnr ?
Qu'est ce que tu veux faire exactement ?

[Muffyn]

SQLEnr sert à créer une table nommé d'aprés une zone de texte de mon formulaire et à la remplir d'après une autre table de ma base.

je test ta méthode et je te tiens au courant.

[Kloun]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnsauver_Click()
Dim SQLEnr As String
Dim SQListpretsauteur
dim iDB as database
 
    set iDB = currentDB
    SQLEnr = "SELECT prets.auteur, prets.titre INTO " & Replace(Me.txtauteur, "'", "''") & " FROM prets;"
    iDB.execute SQListpretsauteur, dbfailonerror
    SQListpretsauteur = "INSERT INTO listpretsauteur VALUES select * from " & Replace(Me.txtauteur, "'", "''")
    Debug.Print SQListpretsauteur
    iDB.execute SQListpretsauteur, dbfailonerror
End Sub

Ca ira sans doute mieux.

[Muffyn]

oui mais selon ce code "SQListpretsauteur" rempli la table selon les champ de la table créée par "SQLEnr", Or je souhaite juste que "SQListpretsauteur" enregistre la valeur du txtauteur dans ma table "listpretsauteur"...

[Kloun]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnsauver_Click()
Dim SQLEnr As String
Dim SQListpretsauteur
dim iDB as database
 
    set iDB = currentDB
    SQLEnr = "SELECT prets.auteur, prets.titre INTO " & Replace(Me.txtauteur, "'", "''") & " FROM prets;"
    iDB.execute SQListpretsauteur, dbfailonerror
    SQListpretsauteur = "INSERT INTO listpretsauteur VALUES '" & Replace(Me.txtauteur, "'", "''") & "'"
    Debug.Print SQListpretsauteur
    iDB.execute SQListpretsauteur, dbfailonerror
End Sub