Discussion :

[Logisticien]

bonjour;

je me suis bloquer sur le code SQL ci dessous;
ça bloque toujours au niveau de la commande DoCmd.RunSQL SQL

Code :

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

1
2
3
4
5
6
7
Private Sub Commande0_Click()
Dim SQL As String
SQL = "INSERT INTO Table1 ( [Heures Réelle] )" & _
"SELECT Now() AS Expr1" & _
"FROM Table1;"
DoCmd.RunSQL SQL
End Sub

Merci de m'aider

[Danner]

Salut,

Tu peux essayer ça. C'est pas sur que ça marche mais c'est une alternative au DoCmd.RunSQL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande0_Click()
 
Dim SQL As String
 
SQL = "INSERT INTO Table1 ( [Heures Réelle] )" & _
"SELECT Now() AS Expr1" & _
"FROM Table1;"
 
CurrentDb.OpenRecordset(SQL)
 
End Sub

[Logisticien]

comme d'habitude tjrs ça plainte au dernière ligne

[Logisticien]

J'ai finalement trouvé une réponse satisfaisante.
Vous pouvez la voir sur le dernier message du post suivant :
http://www.developpez.net/forums/d41...-retrouve-max/

[loufab]

Bonjour,

Personne ne prend le temps d'afficher les résultat des string SQL avant de poster...

Donc :

Code :

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

1
2
3
4
 
SQL = "INSERT INTO Table1 ( [Heures Réelle] )" & _
"SELECT Now() AS Expr1" & _
"FROM Table1;"

ça donne ceci :

Code :

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

1
2
 
"INSERT INTO Table1 ( [Heures Réelle] )SELECT Now() AS Expr1FROM Table1;"

Cordialement,