OVH Cloud OVH Cloud

comparaison d'années

3 réponses
Avatar
rebdran
Pour vous départager , une petite dernière et je vous laisse en paix ,
promis juré !!!

pourquoi ce test ne marche-t-il pas ?

If (Me!année > Year(date)) Then
MsgBox "L'année saisie est supérieure à l'année courante"
Me!année.SetFocus
Exit Sub
End If

dans me!année si j'ai 2000 ou 2010 je reçois le message qui suit .

ce n'est pas bon ce que j'ai écrit ? il ne comprend pas year(date) ?
je voulais comparer me!année avec l'année en cours .

merci ,

3 réponses

Avatar
Jessy Sempere [MVP]
Bonjour

Normalement ça devrait fonctionner...

Il y a peut-être un problème du fait que tu appeles ton champ
"Année" ????

Essais pour voir :
If (Me![année] > Year(date)) Then
MsgBox "L'année saisie est supérieure à l'année courante"
Me!année.SetFocus
Exit Sub
End If

Sinon tu as peut-être un champ qui s'appelle Date ??
S c'est le cas, mets : Year(Date())

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"rebdran" a écrit dans le message news:
40f27d80$0$30279$
Pour vous départager , une petite dernière et je vous laisse en paix ,
promis juré !!!

pourquoi ce test ne marche-t-il pas ?

If (Me!année > Year(date)) Then
MsgBox "L'année saisie est supérieure à l'année courante"
Me!année.SetFocus
Exit Sub
End If

dans me!année si j'ai 2000 ou 2010 je reçois le message qui suit .

ce n'est pas bon ce que j'ai écrit ? il ne comprend pas year(date) ?
je voulais comparer me!année avec l'année en cours .

merci ,




Avatar
Eric
Re Bonjour,

Tout simplement pour la raison que Année est une textbox et donc que
me!année est du Texte (string). Donc moi je mettrai :

If Val(Me!Année)> Year(Date) then
...
End If

A+
Eric

"rebdran" écrivait news:40f27d80$0$30279
$:

Pour vous départager , une petite dernière et je vous laisse en paix ,
promis juré !!!

pourquoi ce test ne marche-t-il pas ?

If (Me!année > Year(date)) Then
MsgBox "L'année saisie est supérieure à l'année courante"
Me!année.SetFocus
Exit Sub
End If

dans me!année si j'ai 2000 ou 2010 je reçois le message qui suit .

ce n'est pas bon ce que j'ai écrit ? il ne comprend pas year(date) ?
je voulais comparer me!année avec l'année en cours .

merci ,





Avatar
rebdran
Bravo, encore gagné !!!

Merci à vous tous , et bonne continuation .


"Eric" a écrit dans le message de
news:
Re Bonjour,

Tout simplement pour la raison que Année est une textbox et donc que
me!année est du Texte (string). Donc moi je mettrai :

If Val(Me!Année)> Year(Date) then
...
End If

A+
Eric

"rebdran" écrivait news:40f27d80$0$30279
$:

Pour vous départager , une petite dernière et je vous laisse en paix ,
promis juré !!!

pourquoi ce test ne marche-t-il pas ?

If (Me!année > Year(date)) Then
MsgBox "L'année saisie est supérieure à l'année courante"
Me!année.SetFocus
Exit Sub
End If

dans me!année si j'ai 2000 ou 2010 je reçois le message qui suit .

ce n'est pas bon ce que j'ai écrit ? il ne comprend pas year(date) ?
je voulais comparer me!année avec l'année en cours .

merci ,