code VBA d'insertion

Salut

j'ai ecris un proramme en vb et lorsque je le lance il m'affiche un message d'érreur.
le programme est le suivant:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Commande5_Click() Dim datede As String, datefin As String Dim rst As DAO.Recordset Me.DAT1 = datede Me.DAT2 = datefin sql1 = " " CurrentDb.Execute "Insert Into ESSAI SELECT * FROM Table_OT WHERE DATE_EXECUTION >= " & datede & " AND DATE_EXECUTION <= " & datefin & " ; " End Sub

---

NB: le message d'érreur est : "erreur de syntaxe (opérateur absent) dans l'expression date_execution.

SVP aidez moi à resoudre ce problème

merci

Bonjour

Déjà un truc, les dates doivent être entourées de #.

Starec

Alors essaies ça...;)

Citation:

---

Envoyé par Djuezzy

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Commande5_Click() Option Compare Database   Dim datede As Date Dim datefin As Date   datede = Me.DAT1 datefin = Me.DAT2   CurrentDb.Execute "Insert Into ESSAI SELECT * FROM Table_OT WHERE DATE_EXECUTION >= #" & datede & "# AND DATE_EXECUTION <= #" & datefin & "# ; "   End Sub

---

---

Par contre, je ne comprends pas ton :

Citation:

---

Me.DAT1 = datede
Me.DAT2 = datefin

Ne serait-ce pas le contraire ?

datede = Me!DAT1
datefin = Me!DAT2

---

Bonjour,

Et un deuxième truc, dans une clause WHERE, les dates doivent être au format US.

Merci à tous
j'ai essayé le code bernardmichel.

merci pour votre aide

Content de t'avoir aidé.... et à bientôt pour de nouvelles aventures....:mouarf: