DTpicker suite

Re bonsoir

Banzai64 m' a filé le code pour initialiser mes deux DTPickers

Mais j 'ai vite clôturé le fil sans poser la question suivante

Comment exiger que le DTPiker1 soit toujours inférieur au DTPicker2

sinon "message d'erreur"

Merci de votre aide

A+

Bonjour

A tester

Private Sub DTPicker1_CloseUp()
  If Me.DTPicker1 > Me.DTPicker2 Then Me.DTPicker2 = Me.DTPicker1
End Sub

Private Sub DTPicker2_CloseUp()
  If Me.DTPicker2 < Me.DTPicker1 Then Me.DTPicker2 = Me.DTPicker1
End Sub

Bonsoir

Merci BenZai64

J'ai bien testé le code.

Les deux dates sont au pire des cas égales

Cependant je pense que je me suis mal exprimé auparavant

Je voudrais pour valider une saisie que le message soit apparent

en signifiant que le DTPicker2 ne peut être antérieur au 1er DtPicker

Merci d'avance

A+

Bonne nuit

Bonjour

Encore plus simple alors

Tu vires les 2 macros précédentes et dans ta macro tu testes

  If Me.DTPicker1 > Me.DTPicker2 Then
    MsgBox "Attention bla bla bla ......."
    Exit Sub
  End If

Bonjour BanZai64

Merci de ton aide.

ça marche .........très simple

Le plus difficile était là où placer le code

Bonne journée.

A+