Discussion :

[Seba13]

Bonjour j'aimerais que dans mon formulaire acces il affiche une msg box tt les 01/01 afin de souhaiter la bonne année. Quelqu'un peut il m'aider svp. Je suis débutant

[Invité]

Bonjour
Sur l'évènement d'ouverture de ton formulaire:

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
If  Format(Date, "y") = 1 Then 
MsgBox "Bonne Année"
End if
End Sub

Ce qui peut se traduire par:
Si la date du jour correspond au jour numéro 1 de l'année alors message...

[Seba13]

Merci super.

[Seba13]

Concernant la première semaine de l'année je n'arrive pas à utiliser le format vbFirstFullWeek

[Invité]

Il est peut être plus simple de continuer dans la logique que tu as commencé.
S'il s'agit du numéro de semaine calendaire:

Code :

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

If  Format(Date, "ww") = 1 Then

Et s'il s'agit des sept premiers jours de l'année:

Code :

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

If Format(Date, "y") >= 1 And Format(Date, "y") < 8 Then

N'oublies pas le tag 'Résolu' si ça fonctionne.

[jeanpierre78]

Bonjour,

Bravo, la solution proposée fonctionne très bien.

La boîte de dialogue apparaît avant ouverture du formulaire. Sur quelle évennement placer le code pour que le message apparaisse après ouverture du formulaire?

Jean-Pierre

[Invité]

Cela peut être en donnant le focus à un controle précis.
Ou alors en jouant sur le Timer

Dans les propriétés du formulaire en mode création:
Mettre sur 'Intervalle minuterie': par exemple 1000.
Puis sur l'évènement 'sur minuterie':

Code :

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

1
2
3
4
5
 
Private Sub Form_Timer()
MsgBox "Bonne année"
Me.TimerInterval = 0
End Sub

[jeanpierre78]

Bonsoir,

Bravo et merci. En intégrant le contrôle sur la date cela fonctionne très bien :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Timer()
    If Format(date, "w") < 38 Then
        If Format(date, "w") > 31 Then
            MsgBox "Avez-vous pensé à mettre à jour ... ?"
        End If
    End If
    Me.TimerInterval = 0
End Sub

Jean-Pierre