Discussion :

[Nessie37]

Bonjour,

Je ne sais pas si je poste dans le bon forum, au quel cas redirigez-moi.
Voilà mon problème :
Sur la miniature jointe, j'ai 2 zones de texte indépendantes dans lesquelles se trouvent des dates (période de consultation). Mon souci est que j'aimerais que les dates par défaut soient celle de l'exercice en cours 12 mois (du 01 aout au 31/juillet) :
- si date d'aujourd'hui est > au 01/08 de l'année en cours N, alors affichage date 1 = 01/08/N à date 2=aujourd'hui
- si date d'aujourd'hui est < au 01/08 de l'année en cours N, alors affichage date 1 = 01/08/N-1 et date 2 = aujourd'hui.

Ces zones de texte qui abritent les dates ont un évènement sur perte focus du type

Code :

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

1
2
3
4
5
6
Private Sub Date1_LostFocus()
Me.camensuel2_sous_formulaire.Requery
Me.essai_sous_formulaire.Requery
Me.essaimoymens_sous_formulaire.Requery
 
End Sub

Cela est-il possible sans supprimer le code déjà présent ?

Merci par avance

[LedZeppII]

Bonsoir,

Un exemple de code à mettre dans l'événement Sur Chargement du formulaire.

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Dim dtDate As Date
 
dtDate = Date
If dtDate > DateSerial(Year(dtDate), 7, 31) Then
   Me.txtDateDu = DateSerial(Year(dtDate), 8, 1)
Else
   Me.txtDateDu = DateSerial(Year(dtDate) - 1, 8, 1)
End If
Me.txtDateAu = dtDate
End Sub

txtDateDu et txtDateAu sont les zones de textes des dates de début et fin de période.

A+

[Nessie37]

Bnjour et merci !

Cela fonctionne, exemple : en ouvrant aujourd'hui mon appli, j'avais bien en date de début 01/08/2007 et la date d'aujourd'hui !
Euh...j'abuse si je demande à ce que la date de fin soit 31/07/N de l'année en cours si date d'aujourd'hui < 01/08 et date fin = 31/07/N+1 si date d'aujourd'hui > 01/08...
J'ai essayé de reprendre le code que tu m'as donné mais tu te doutes bien que j'ai du mal l'utiliser et çe ne fonctionne pas.

Cependant, je ne peux plus sélectionner moi-même une période de consult, du moins si, je peux changer le date de début et la date de fin mais ça n'affiche plus les info correspondant à ces périodes ! (exemple je veux consulter sur un mois ou une période antérieure bah...ça ne change plus mes infos). en fait ça a supprimé mes codes sur perte focus que j'avais sur les zones de texte qui abritaient mes dates. Peut-être est-ce normal et préférable, je ne sais guère...

Que faire ?

[LedZeppII]

Bonsoir,

La fonction DateSerial(Année, Mois, Jour) renvoie la date correspondant à Jour/Mois/Année.
Si tu veux la date de fin de période au lieu de la date du jour :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
Dim dtDate As Date
 
dtDate = txtDate
If dtDate > DateSerial(Year(dtDate), 7, 31) Then
   Me.txtDateDu = DateSerial(Year(dtDate), 8, 1)
   Me.txtDateAu = DateSerial(Year(dtDate) + 1, 7, 31)
Else
   Me.txtDateDu = DateSerial(Year(dtDate) - 1, 8, 1)
   Me.txtDateAu = DateSerial(Year(dtDate), 7, 31)
End If
End Sub

Ce code est à mettre dans l'événement Sur Chargement du formulaire.
A l'ouverture du formulaire les deux champs dates auront les dates de début et fin de la période en cours. Il n'est exécuté qu'une seule fois.

Tu laisses le code (celui qui fait un .Requery sur les sous-formulaires) que tu avais pour les deux zones de textes contenant tes dates.

A+

[Nessie37]

Merci pour ta réponse.

Je fais les modif nécessaires et te tiens au courant.

[Nessie37]

Impec ! Merci.
Par contre, quand j'ouvre mon form (mes dates étant celles voulues 01/08 au 31/07), les infos affichées ne sont pas automatiquement fonction de cette période, malgré les code sur perte focus (.requery etc..).
Il faut que, une fois ouvert, je mette mon form en mode crétion puis que je le passe en mode consult pour que s'opèrent les changement ...