Problème de restriction sur access 2007Résolu/Fermé

Question

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

tokagero · Answer

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

tokagero · Answer

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

Problème de restriction sur access 2007

2 réponses

Discussions similaires

Newsletters