Pb de code

Question

S'il vous plait, quelqu'un peut il me dire ce qui ne va pas dans ce code ? 
A la ligne rouge; Le message est le suivant: les arguments sont de type incorect, en de dehors des limites autorisées. Merci d'avance

Public Sub alarme()
connect
Set rs = New ADODB.Recordset
rs.Open "Entretien_preventif", cn, adOpenDynamic, adLockOptimistic



rs.Find "[Date_prochaine] <= Date()"
If rs.EOF Then
    rs.Find "[Date_prochaine] <= Date()-5"
    If rs.EOF Then
        MDIForm1.ShpAlarme.BackColor = vbGreen
    Else
        MDIForm1.ShpAlarme.BackColor = vbYellow
    End If
Else
  MDIForm1.ShpAlarme.BackColor = vbRed
End If


End Sub

cs_Exploreur · Answer

Salut,

Moi je me demande pourquoi cette ligne et avant le recherche dans le recordset...?

A+
Exploreur

cs_Exploreur · Answer

Salut,

De plus, je serais toi je ferai bien une requête sql, pour n'avoir que les données qui correspondent à ton crtitère de recherche..

du style :

Dim Sql As string

Sql = "SELECT * FROM Entretien_preventif WHERE Date_prochaine <=  # Date # "

rs.Open Sqk, cn, adOpenDynamic, adLockOptimistic

A+
Exploreur

cs_Exploreur · Answer

Pardon, mauvais copier/coller :

rs.Open Sql, cn, adOpenDynamic, adLockOptimistic

A+
Exploreur

cs_Jack · Answer

Salut
En VB6, Date() n'existe pas, Date sans les parenthèses à la rigueur.
Utilise Today (ou un Format de Today si tu ne veux que la date) ou une fonction de calcul de date comme DateDiff ou DateAdd

Lance toujours tes applications avec Ctrl-F5 (au lieu de F5) afin que l'IDE trouve ce genre d'erreur avant que ton programme ne tombe dessus (debuggage plus rapide)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Stev16 · Answer

Merci pour l'aide, mais je n'arrive pas toujour à resoudre mon pb. Pour être plus simple, voici le veritable Pb.
J'ai une table "Entretien_preventif" dans le quel se trouve un champ [Date_prochaine] de type Date. Je veux a l'aide d'un module, verifier trois chose dans la table
1) S' il ya une date > à today alors shpAlarme.Backcolor=Vbred
2)Si aucune date n'est > à today mais qu'il ya une date > à today -5 alors shpAlarme.Backcolor=VbYellow
3) Si aucune des premieres condition n'est verifié, alors shpAlarme.Backcolor=VbGreen

Merci pour la bonne comprehension !

cs_Exploreur · Answer

Salut,

Jack, ta donné tout ce qui te faut pour faire ce que tu souhaites avec DateDiff, regarde ton aide en ligne...!!!

Regarde cette exemple :

toto = "12/01/2007"
toto1 = "13/01/2007"
tata = DateDiff("d", toto, toto1)
MsgBox tata & " différence en jours"

A+
Exploreur

Pb de code

6 réponses

Votre réponse

Discussions similaires