Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Langage C Sharp problème pour afficher un message

problème pour afficher un message

2 réponses
Avatar
tokagero
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

voici mon code:

Private Sub lst_périph_Change()

Dim Req As String
Dim Req2 As String

If IsNull(Req) Then
Req = MsgBox("vous devez selectionner un périphérique!")
Else
Req = "SELECT N°_de_série, Téléphone_SAV "
Req = Req & "FROM Périphérique "
Req = Req & "WHERE Périphérique.N°Périph = '" & Me.lst_périph & "'"

lst_résult1.RowSource = Req
lst_résult1.Requery

Req2 = "SELECT Date_limite_garantie "
Req2 = Req2 & "FROM Périphérique "
Req2 = Req2 & "WHERE Périphérique.N°Périph = '" & Me.lst_périph & "'"

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
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
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

voici mon code:

Private Sub lst_périph_Change()

Dim Req As String
Dim Req2 As String

If IsNull(Req) Then
Req = MsgBox("vous devez selectionner un
périphérique!")
Else
Req = "SELECT N°_de_série, Téléphone_SAV
"
Req = Req & "FROM Périphérique "
Req = Req & "WHERE Périphérique.N°Périph
= '" & Me.lst_périph & "'"

lst_résult1.RowSource = Req
lst_résult1.Requery

Req2 = "SELECT Date_limite_garantie "
Req2 = Req2 & "FROM Périphérique "
Req2 = Req2 & "WHERE
Périphérique.N°Périph = '" &
Me.lst_périph & "'"

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.

voici le code:

Private Sub lst_périph_Change()

Dim Req As String
Dim Req2 As String

If IsNull(Req) Then
Req = MsgBox("vous devez selectionner un périphérique!")
Else
Req = "SELECT N°_de_série, Téléphone_SAV "
Req = Req & "FROM Périphérique "
Req = Req & "WHERE Périphérique.N°Périph = '" & Me.lst_périph & "'"

lst_résult1.RowSource = Req
lst_résult1.Requery

Req2 = "SELECT Date_limite_garantie "
Req2 = Req2 & "FROM Périphérique "
Req2 = Req2 & "WHERE Périphérique.N°Périph = '" & Me.lst_périph & "'"

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
Avatar
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

voici mon code:

Private Sub lst_périph_Change()

Dim Req As String
Dim Req2 As String

If IsNull(Req) Then
Req = MsgBox("vous devez selectionner un
périphérique!")
Else
Req = "SELECT N°_de_série, Téléphone_SAV
"
Req = Req & "FROM Périphérique "
Req = Req & "WHERE Périphérique.N°Périph
= '" & Me.lst_périph & "'"

lst_résult1.RowSource = Req
lst_résult1.Requery

Req2 = "SELECT Date_limite_garantie "
Req2 = Req2 & "FROM Périphérique "
Req2 = Req2 & "WHERE
Périphérique.N°Périph = '" &
Me.lst_périph & "'"

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:

Req2 = Nz(DLookup("[date_limite_garantie]", "Périphérique", "[N°Périph] = '" & Me.lst_périph & "'"), "")

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