Discussion :

[NEC14]

Bonjour,

Dans un TextBox (TextBox2) je tape une date par exemple 01/05/2009
Je souhaiterai que dans le Textbox3 la date fin soit obligatoirement le 31/12/ de l'année en cours.
Comment dois-je faire ? Pouvez-vous m'indiquer le code ?
Merci par avance

[Access Newbie]

Bonjour,

Code :

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

Me.TextBox1.Value = "31/12/" & Year(Now())

Je ne sais pas si c'est réellement ce que vous cherchez ... je n'ai pas très bien compris le problème ...

[NEC14]

Bonjour,

Vous avez bien répondu, c'est exactement ce que je cherchais.
Merci

[Access Newbie]

De rien

[NEC14]

Désolé, je me suis un peu précipité. Dans mon TextBox, ilfaut qu'il récupére l'année de la date saisie dans le TextBox2.
Encore toutes mes excuses

[pgz]

Bonjour.

Tu peux essayer

Code :

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

    Me.TextBox2.Value = DateSerial(Year(Me.TextBox1), 12, 31)

Cordialement,

PGZ

[NEC14]

Bonjour pgz,

Tout d'abord permet moi de te souhaiter une très bonne année 2009 ainsi qu'à ceux qui te sont chers.
Désolé d'avoir tarder à répondre, j'ai rencontré quelques soucis avec ma connextion.
Concernant ton code, il m'a aidé à résoudre mon problème.

Voici tel quel que le l'ai adpaté dans mon appli.

Code :

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

1
2
 
    Me.TextBox3.Value = "31" & "/" & "12" & "/" & Year(DateSerial(2009, 12, 31))

Merci encore