Discussion :

[Djuezzy]

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 :

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

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

[Invité]

Bonjour

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

Starec

[bernardmichel]

Alors essaies ça...

Code :

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

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 :

Me.DAT1 = datede
Me.DAT2 = datefin

Ne serait-ce pas le contraire ?

datede = Me!DAT1
datefin = Me!DAT2

[pc75]

Bonjour,

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

[Djuezzy]

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

merci pour votre aide

[bernardmichel]

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