Code VBA pour une date

Bonjour,
Lorsque je tape comme code:

Private Sub RechercheDates_AfterUpdate()
'Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Dates] = '" & Me![RechercheDates] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Recherche date est une liste déroulante dans un formulaire.
Lorsque je sélectionne une date j'ai un message d'erreur qui me dis Type de données incompatible.
Le champ Dates ainsi que RechercheDates et au format Date abrégée.
Y a-t-il quelque chose à changer dans mon code? Ou dois-je changer le format de mes champs.

Merci de votre aide
Boulser

Bonsoir,

Ton code est assez curieux, je n'ai jamais testé la fin du RecordSet pour vérifier le résultat d'un FindFirst.
Mais bon. Un paramètre date doit toujours être utilisé entre les croisillons # et de préférence utiliser le format US (pour ne pas avoir de surprises avec les valeurs inférieures à 12).

Je verrais ton code de la façon :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub RechercheDates_AfterUpdate() 'Find the record that matches the control. Dim rs As Object   Set rs = Me.RecordsetClone rs.FindFirst "[Dates] = #'" & Format(Me![RechercheDates],"yyyy/mm/dd") & "#" If Not rs.EOF Then Me.Bookmark = rs.Bookmark   End Sub

---

NOTA : Ne pas oublier de mettre tes codes sur le forum dans les balises pour faciliter sa lecture.
Comment : Sélectionner le code et cliquer sur le bouton #

Cordialement,

OK
Un grand merci.