Mantien d'une valeur dans une zone de texte

Le
Jacques
Bonsoir,

Dans mon formulaire j'ai une zone de texte « txtMillesime, et je
voudrais que cette zone de texte garde la valeur de l'année 2008
durant la période de 01/09/2007 au 31/08/2008.
Et bien sur passera automatiquement à 2009 pour la prochaine période.
Merci pour votre aide.

Salutations
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #6317951
Bonsoir,

Dans mon formulaire j'ai une zone de texte « txtMillesime, et je
voudrais que cette zone de texte garde la valeur de l'année 2008
durant la période de 01/09/2007 au 31/08/2008.
Et bien sur passera automatiquement à 2009 pour la prochaine période.
Merci pour votre aide.

Salutations

Bonjour Jaques

En adaptant ça
Public Function Calcul_Saison(Date_ As Variant) As String
Dim Date_d, Date_f As Date
Calcul_Saison = ""
If IsDate(Date_) Then
Date_d = CDate("01/09/" & Year(Date_))
Date_f = CDate("31/12/" & (Year(Date_)))
If Date_ >= Date_d And Date_ <= Date_f Then Calcul_Saison =
Year(Date_) & "/" & Year(Date_) + 1
Date_d = CDate("01/01/" & Year(Date_))
Date_f = CDate("31/08/" & (Year(Date_)))
If Date_ >= Date_d And Date_ <= Date_f Then Calcul_Saison =
Year(Date_) - 1 & "/" & Year(Date_)
End If
End Function

Tu devrais obtenir ce que tu veux.
A+

3stone
Le #6317791
Salut,

"Jacques"
Dans mon formulaire j'ai une zone de texte « txtMillesime, et je
voudrais que cette zone de texte garde la valeur de l'année 2008
durant la période de 01/09/2007 au 31/08/2008.
Et bien sur passera automatiquement à 2009 pour la prochaine période.



Tu ajoute un mois à la date courante et tu extrais le trimestre.
Si ce trimestre à le quatrième, tu ajoute 1 à l'année...

Pour cela, tu colles la fonction dans un module et dans ta
zone de texte tu écris :

= fnMillesime()

Function fnMillesime() As Interger
Dim t As Integer
t = DatePart("q", DateAdd("m", 1, Date), 2, 2)
fnMillesime = Year(Date) + Abs(t = 4)
End Function


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)

pbserv
Le #6317441
bonjour,

une autre solution :
Year(DateAdd("m", -8, dMaDate))

pb

On 6 sep, 11:46, "3stone"
Salut,

"Jacques"

Dans mon formulaire j'ai une zone de texte « txtMillesime, et je
voudrais que cette zone de texte garde la valeur de l'année 2008
durant la période de 01/09/2007 au 31/08/2008.
Et bien sur passera automatiquement à 2009 pour la prochaine périod e.


Tu ajoute un mois à la date courante et tu extrais le trimestre.
Si ce trimestre à le quatrième, tu ajoute 1 à l'année...

Pour cela, tu colles la fonction dans un module et dans ta
zone de texte tu écris :

= fnMillesime()

Function fnMillesime() As Interger
Dim t As Integer
t = DatePart("q", DateAdd("m", 1, Date), 2, 2)
fnMillesime = Year(Date) + Abs(t = 4)
End Function

--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)



Publicité
Poster une réponse
Anonyme