Discussion :

[boulser]

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

[madefemere]

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 :

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

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,

[boulser]

OK
Un grand merci.