Bonjour,
Je débute en informatique et j'ai un problème pour afficher un message par rapport à une comparaison de date, en effet je voudrais afficher un message lorsque la date est infèrieur a la date du jour (garantie terminée) et un autre quand la date n'est pas connu (inconnue) et quand la date est supèrieur a la date du jour sa m'affiche la date
If Req2 > Now() Then
lst_date1.RowSource = Req2
lst_date1.Requery
Else
If Req2 < Now() Then
lst_date1.RowSource = "Garantie terminée"
lst_date1.Requery
Else
If Req2 = "" Then
lst_date1.RowSource = "Inconnue"
lst_date1.Requery
End If
End If
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
tokagero
tokagero a écrit le 06/06/2011 à 14h32 :
Bonjour, Je débute en informatique et j'ai un problème pour afficher un message par rapport à une comparaison de date, en effet je voudrais afficher un message lorsque la date est infèrieur a la date du jour (garantie terminée) et un autre quand la date n'est pas connu (inconnue) et quand la date est supèrieur a la date du jour sa m'affiche la date
If Req2 > Now() Then lst_date1.RowSource = Req2 lst_date1.Requery Else If Req2 < Now() Then lst_date1.RowSource = "Garantie terminée" lst_date1.Requery Else If Req2 = "" Then lst_date1.RowSource = "Inconnue" lst_date1.Requery End If End If End If
End If End Sub
Mais il ne marche pas
Merci pour votre aide
j'ai essayé de résoudre le problème d'une autre façons mais elle aussi ne marche pas.
If Req2 > Now() Then lst_date1.RowSource = Req2 lst_date1.Requery Else If Req2 < Now() Then MsgBox ("GARANTIE TERMINEE") Else If Req2 = "" Then MsgBox ("INCONNUE") End If End If End If End If
End Sub
si quelqu'un peu m'aider
merci d'avance
tokagero a écrit le 06/06/2011 à 14h32 :
Bonjour,
Je débute en informatique et j'ai un problème pour afficher un
message par rapport à une comparaison de date, en effet je voudrais
afficher un message lorsque la date est infèrieur a la date du jour
(garantie terminée) et un autre quand la date n'est pas connu (inconnue)
et quand la date est supèrieur a la date du jour sa m'affiche la date
If Req2 > Now() Then
lst_date1.RowSource = Req2
lst_date1.Requery
Else
If Req2 < Now() Then
lst_date1.RowSource = "Garantie terminée"
lst_date1.Requery
Else
If Req2 = "" Then
lst_date1.RowSource = "Inconnue"
lst_date1.Requery
End If
End If
End If
End If
End Sub
Mais il ne marche pas
Merci pour votre aide
j'ai essayé de résoudre le problème d'une autre façons mais elle aussi ne marche pas.
If Req2 > Now() Then
lst_date1.RowSource = Req2
lst_date1.Requery
Else
If Req2 < Now() Then
MsgBox ("GARANTIE TERMINEE")
Else
If Req2 = "" Then
MsgBox ("INCONNUE")
End If
End If
End If
End If
Bonjour, Je débute en informatique et j'ai un problème pour afficher un message par rapport à une comparaison de date, en effet je voudrais afficher un message lorsque la date est infèrieur a la date du jour (garantie terminée) et un autre quand la date n'est pas connu (inconnue) et quand la date est supèrieur a la date du jour sa m'affiche la date
If Req2 > Now() Then lst_date1.RowSource = Req2 lst_date1.Requery Else If Req2 < Now() Then lst_date1.RowSource = "Garantie terminée" lst_date1.Requery Else If Req2 = "" Then lst_date1.RowSource = "Inconnue" lst_date1.Requery End If End If End If
End If End Sub
Mais il ne marche pas
Merci pour votre aide
j'ai essayé de résoudre le problème d'une autre façons mais elle aussi ne marche pas.
If Req2 > Now() Then lst_date1.RowSource = Req2 lst_date1.Requery Else If Req2 < Now() Then MsgBox ("GARANTIE TERMINEE") Else If Req2 = "" Then MsgBox ("INCONNUE") End If End If End If End If
End Sub
si quelqu'un peu m'aider
merci d'avance
tokagero
tokagero a écrit le 06/06/2011 à 14h32 :
Bonjour, Je débute en informatique et j'ai un problème pour afficher un message par rapport à une comparaison de date, en effet je voudrais afficher un message lorsque la date est infèrieur a la date du jour (garantie terminée) et un autre quand la date n'est pas connu (inconnue) et quand la date est supèrieur a la date du jour sa m'affiche la date
If Req2 > Now() Then lst_date1.RowSource = Req2 lst_date1.Requery Else If Req2 < Now() Then lst_date1.RowSource = "Garantie terminée" lst_date1.Requery Else If Req2 = "" Then lst_date1.RowSource = "Inconnue" lst_date1.Requery End If End If End If
End If End Sub
Mais il ne marche pas
Merci pour votre aide
Bonjour,
J'ai réussi à résoudre le problème avec de l'aide voici le code pour ceux qui auraient le même problème:
If Req2 = "" Then txt_date1.Value = "Inconnue" Else If CVDate(Req2) <= Date Then txt_date1.Value = "Garantie terminée" Else txt_date1.Value = Req2 End If End If
tokagero a écrit le 06/06/2011 à 14h32 :
Bonjour,
Je débute en informatique et j'ai un problème pour afficher un
message par rapport à une comparaison de date, en effet je voudrais
afficher un message lorsque la date est infèrieur a la date du jour
(garantie terminée) et un autre quand la date n'est pas connu (inconnue)
et quand la date est supèrieur a la date du jour sa m'affiche la date
If Req2 > Now() Then
lst_date1.RowSource = Req2
lst_date1.Requery
Else
If Req2 < Now() Then
lst_date1.RowSource = "Garantie terminée"
lst_date1.Requery
Else
If Req2 = "" Then
lst_date1.RowSource = "Inconnue"
lst_date1.Requery
End If
End If
End If
End If
End Sub
Mais il ne marche pas
Merci pour votre aide
Bonjour,
J'ai réussi à résoudre le problème avec de l'aide voici le code pour ceux qui auraient le même problème:
If Req2 = "" Then
txt_date1.Value = "Inconnue"
Else
If CVDate(Req2) <= Date Then
txt_date1.Value = "Garantie terminée"
Else
txt_date1.Value = Req2
End If
End If
Bonjour, Je débute en informatique et j'ai un problème pour afficher un message par rapport à une comparaison de date, en effet je voudrais afficher un message lorsque la date est infèrieur a la date du jour (garantie terminée) et un autre quand la date n'est pas connu (inconnue) et quand la date est supèrieur a la date du jour sa m'affiche la date
If Req2 > Now() Then lst_date1.RowSource = Req2 lst_date1.Requery Else If Req2 < Now() Then lst_date1.RowSource = "Garantie terminée" lst_date1.Requery Else If Req2 = "" Then lst_date1.RowSource = "Inconnue" lst_date1.Requery End If End If End If
End If End Sub
Mais il ne marche pas
Merci pour votre aide
Bonjour,
J'ai réussi à résoudre le problème avec de l'aide voici le code pour ceux qui auraient le même problème:
If Req2 = "" Then txt_date1.Value = "Inconnue" Else If CVDate(Req2) <= Date Then txt_date1.Value = "Garantie terminée" Else txt_date1.Value = Req2 End If End If