Zone de texte

Bonjour , j 'ai un formulaire Access et j'aimerais bien faire une comparaison entre deux zones de texte. Si la date de ma première zone de texte est supérieur à la deuxième, j'aimerais effacer la valeur de cette dernière. Cela est-il possible ?

Le problème semble venir du Me.Texte20

Private Sub Texte10_AfterUpdate()

If Me.Texte10 > Me.Texte20 Then
   Me.Texte20 = Null
End If

End Sub

Merci.

Bonjour,

Essaie !

MFerrand a écrit :

Bonjour,

Essaie !

J'ai essayé mais mon code ne fonctionne pas.

MFerrand a écrit :

Bonjour,

Essaie !

??

Où se situe l'erreur ?

Si tu es sur Access, je ne sais pas.

Dans un Userform, je pense que : Me.Texte20 = Null pourrait faire renâcler...

Null (comme Empty) est une valeur d'élément de type Variant.

vbNullString ou "" me semblerait mieux adapté, mais ce n'est qu'une supposition.

Cordialement.

MFerrand a écrit :

Où se situe l'erreur ?

Si tu es sur Access, je ne sais pas.

Dans un Userform, je pense que : Me.Texte20 = Null pourrait faire renâcler...

Null (comme Empty) est une valeur d'élément de type Variant.

vbNullString ou "" me semblerait mieux adapté, mais ce n'est qu'une supposition.

Cordialement.

Le problème vient du Me.Texte20 dans la condition.

Quand je remplace le Me.Texte20 par DATE (la date du jour) cela fonctionne. Je pense que ce n'est pas "Me" puisque je ne suis pas dans la procédure du bouton Texte20 mais dans celui du Texte10.

Merci

S'il s'agit de date, il serait peut-être judicieux de convertir en dates pour comparer !!!!

If CDate(Me.Texte10) > CDate(Me.Texte20) Then

MFerrand a écrit :

S'il s'agit de date, il serait peut-être judicieux de convertir en dates pour comparer !!!!

If CDate(Me.Texte10) > CDate(Me.Texte20) Then

Cela fonctionne merci.