Discussion :

[Clemclem972]

Bonjour,
J'ai un formulaire dans lequel figure un champ date et d'autres champs liés. A noter que plusieurs enregistrements peuvent avoir la même date. J'ai donc trié mon formulaire unique par le champs date et je souhaiterai depuis un bouton passer à la date suivante la plus proche. Est-ce possible depuis un évènement sur clic.

Merci beaucoup de votre éclairage.

[loufab]

Bonjour,

Le code devrait ressembler à ceci :

Code :

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

Me.Recordset.FindFirst "madate>#" & Me.madate.Value & "#"

Ce code sautera les dates identiques.
Exemple :

1, 1/1/2020
2, 1/1/2020
3, 1/2/2020

tu passeras de 1 à 3 directement.

Cordialement,

[Clemclem972]

Bonjour,
avec beaucoup de retard je m'y suis replongé. Effectivement le code fonctionne. Sur les premiers enregistrements qui se suivent dans la date, (01/01 ; 02/01, 03/01) cela fait bien le saut à la date suivante directement en sautant les "doublons", mais quand la date suivante n'est pas le lendemain, il passe à un enregistrement beaucoup plus loin et reprend les dates qui se suivent.



Exemple
07/09
08/09
09/09
10/09
(dates multiples en septembre passées sous silence)
13/10
14/10

[Dermochelys]

Bonjour,

Peut-être que si tu tries ton recordset par date croissante, il "lira" les dates de septembre?

Cdlt

[loufab]

Tu peux utiliser un :

Code :

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

Me.Recordset.movenext

[Clemclem972]

Le formulaire est déjà trié par date croissante. Loufab la fonction movenext ne saute pas les enregistrements dont la date est identique.

[Tortille]

Bonjour,
ça me fait penser à une erreur de format US, 13/10 et 14/10 sont pour nous 13 et 14 octobre, mais Access est américain et pour lui 13 et 14 sont des mois, bien sur qui n'existent pas d'où il les sauterais.
A voir

[loufab]

J'ai répondu beaucoup trop vite.

Donc pour éviter le problème de date US en VBA, comme indiqué par Tortille, voici la syntaxe :

Code :

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

1
2
3
 
 
Me.Recordset.FindFirst "cdbl(madate=>" & cdbl(Me.madate.Value)

On transforme la date dans sa valeur native de stockage pour MS ACCESS qui est le format double.

Cordialement,