Bonjour,

Je m'intéresse aux formats de date ce matin. En fais, j'ai une erreure avec ce code et je me demande bien pourquoi!? "type de données incompatible dans l'expression du crìtère"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Commande216_Click()
'Bouton des renouvellesment
Dim Db As Database, Rs As Recordset, Renouv As Double
Set Db = CurrentDb
'Renouv = Month(Now())
Set Rs = Db.OpenRecordset("select * from clito where sinces = " & Month(7) & "")
Rs.Close
Db.Close
End Sub
Merci de votre précieux aide.

Gorj