Problème de restriction sur access 2007
Résolu
tokagero
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
tokagero Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
tokagero Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Problème de restriction sur access 2007
- Save as pdf office 2007 - Télécharger - Bureautique
- Restriction instagram - Guide
- Comment supprimer une page sur word 2007 - Guide
- Code restriction ps5 oublié - Forum Contrôle parental
- Acer quick access - Forum logiciel systeme
2 réponses
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
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
Bonjour,
J'ai réussi à réssoudre le problème avec de l'aide voila le code pour ceux qui pourrais avoir 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
J'ai réussi à réssoudre le problème avec de l'aide voila le code pour ceux qui pourrais avoir 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