[AC-2003] Verrouiller un formulaire en fonction de la date [Résolu]

[jeanpierre78]

Bonjour,

Je voudrais verrouiller le formulaire [Lettres] si la date du jour est supérieure de 15 jours à la date [Date_mailing] contenue dans ce formulaire.

J'ai tenté le code suivant :

Code :

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
 
    If Date - Me.Date_mailing > 15 Then
      Me.Form!Lettres.Locked = True
    Else
      Me.Form!Lettres.Locked = False
    End If
 
End Sub

sur l'évennement "Sur activation" mais ça ne fonctionne pas.

J'ai déjà un code, qui lui fonctionne, sur l'évennement "Sur activation" pour un autre formulaire.

Où est l'erreur?

Jean-Pierre

[Ric500]

Bonjour,

As-tu essayé avec la fonction Datediff?

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Current()
 
    If DateDiff("d",Me.Date_mailing,Date) > 15 Then
      Me.Form!Lettres.Locked = True
    Else
      Me.Form!Lettres.Locked = False
    End If
 
End Sub

Richard.

[jeanpierre78]

Bonjour,

Merci de la réponse. Malheureusement j'ai le même bug au niveau de

Code :

Me.Form!Lettres.Locked = False

Jean-Pierre

[Ric500]

Bonjour,

Tu peux également donner un format conditionnel à tes contrôles en y mettant la condition suivante:

Code :

DiffDate("j"; [Date_mailing]; Date) > 15

et en cochant le bouton d'activation dans l'écran des conditions...

[jeanpierre78]

Bonjour,

Merci de vos réponses. J'ai résolu mon problème à l'aide d'une macro. C'est moins élégant mais dans mes compétences.

Jean-Pierre