Discussion :

[chuspyto]

bonjour,
j'ai ecris ce bout de code qui fonctionne mais quand le mois change cela n'est plus pris en compte.
comment ecrire pour que quand la date (jour + mois + an)change la condition soit éffectuée

Code :

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

1
2
3
4
5
If DateD >= "14/3/2010" Then
   Forms!frmOuverture.Form("voiture").Caption = "AA 000 BB"
   Else
   Forms!frmOuverture.Form("VOITURE").Caption = "0001 AA 99"
End If

Merci d'avance

[marot_r]

Je ne suis pas certain de ce que tu veux faire mais voici déjà une légère amélioration

Code :

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

1
2
3
4
5
If DateD >= DateSerial(2010, 3, 14) Then
   Forms!frmOuverture.Form("voiture").Caption = "AA 000 BB"
   Else
   Forms!frmOuverture.Form("VOITURE").Caption = "0001 AA 99"
End If

en utilisant DateSerial ta date est maintenant une date et pas une chaînes de caractère et elle est calculée. Donc si tu as une source pour remplacer 2010, 3 et 14 tu peux obtenir une date qui va changer.

A+

[chuspyto]

merci