Discussion :

[nounous54]

Bonjour à tous,

Je bloque sur un souci qui, j'en suis certain, n'est pas bien compliqué.
Cependant je bloque.

J'ai dans un formulaire une txtbox qui m'affiche (recherche dans une table) un tarif en fonction de plusieurs critères.
l'un des critère est que la date d'aujourd'hui doit être comprise entre le 01 mars (01/03) et le 01 août (01/08).
Volontairement je ne mets pas d'année car tous les ans entre mars et août le tarif est moins chère.

le début du code est:

Code :

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

1
2
3
 
If Me.chk_tarif_etudiant = -1 And Me.Chk_Nouvelle_lic = -1 And "01/03/????"< date(date du jour) < "01/08/????" Then
Me.txt_tarif_étudiant = DLookup("[tarif]", "Tarif_licence", "[catégorie]= 'licence' And [type]= 'nouvelle licence etudiants après mars' ")

La ligne 2 est à finir car je bloque...

Merci par avance pour votre aide.

[loufab]

Bonjour,

Si il s'agit toujours des données pour l'année courante alors :

Code :

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

... And cdbl("01/03/" & year(date())) < cdbl(date()) < cdbl("01/08/" & year(date())) Then

Transformer en double évite le problème des dates au format uk en VBA. Double étant le format natif des dates. La forme (dd/mm/yy hh:mm:ss) n'étant qu'un format de présentation.

year(expr) retourne l'année.
date() donne la date du système.
now() pareil que date mais avec l'heure.

Cordialement,

[nounous54]

Bonjour,
Merci pour le retour mais ça ne fonctionne pas.

Il m'annonce "incompatibilité de type" !!

Un conseil?

[Jeannot45]

Code :

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

... And cdbl(CDate("01/03/" & year(date()))) < cdbl(date()) < cdbl(CDate("01/08/" & year(date()))) Then

Bonne journée

[nounous54]

Merci à tous ça fonctionne.