Bonjour a tous

Je voudrai deleter des enregistrements entre telle date et telle autre date définies par des DTPicker.

Voici mon code et je ne vois pas ce qui cloche.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub btn_ok_Click()
'sql = ("DELETE mouvement.*, mouvement.date_mouvement From mouvement WHERE (((mouvement.date_mouvement) Between '" & DTPicker_du & "'And '" & DTPicker_au & " '));")
Dim cnn As New ADODB.Connection, iAffected As Integer
    Dim sSQL As String
       cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= gest_stocks.mdb;"
 
    sSQL = "DELETE mouvement.*, mouvement.date_mouvement From mouvement WHERE (((mouvement.date_mouvement) Between '" & DTPicker_du & "' And  " '" & DTPicker_au & "'")"
    ' Exécution de la requête
    MsgBox DTPicker_du
    MsgBox DTPicker_au
 cnn.Execute sSQL, iAffected, adExecuteNoRecords
    Debug.Print "Enregistrements insérés = " & iAffected
    cnn.Close
End Sub