Date [Résolu]

Signaler
Messages postés
20
Date d'inscription
dimanche 20 septembre 2009
Statut
Membre
Dernière intervention
9 juillet 2009
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Private Sub cmd_click_Click()

Dim d As Date
Dim f As Date

d = InputBox("Entrer la première date", "Afficher Etat")
f = InputBox("Entrer la deuxième date", "Afficher Etat")
Connection_rma1
If con.State = adStateOpen Then
    con.Close
End If
Connection_rma1
Adodc4.RecordSource = "Select * From com_khalid  where [Date_effet] Between #" & d & "# And #" & f & "#"
Me.Text1.Text = d
Me.Text2.Text = f



je trouve le probleme dans l'affichage du resultat comme par exemble on donne a 'd' et 'f'    d=10/08/2007   et f=14/08/2007  le programme considere pour d   mois=10 et  jours=08  et pour f   mois=08 et  jours=14

j'ai deja reglee le date  sur acces  a date_abregee

 

1 réponse

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
gaffe, tu auras une erreur si la saisie est erronée.

Dim sBuffer as string
Dim d As Date
Dim f As Date

sBuffer = InputBox("Entrer la première date", "Afficher Etat")
If Not IsDate(sBuffer) Then
MsgBox "Saisie incorrecte"
Else
d = sBuffer
sBuffer = InputBox("Entrer la deuxième date", "Afficher Etat")
If Not IsDate(sBuffer) Then
MsgBox "Saisie incorrecte"
Else
f = sBuffer

Connection_rma1
If con.State = adStateOpen Then
con.Close
End If
Connection_rma1
Adodc4.RecordSource = "SELECT * FROM `com_khalid` " & _
"WHERE `Date_effet` BETWEEN #" & Format$(d,"yyyy-mm-dd") & "# " & _
"AND #" & Format$(f,"yyyy-mm-dd") & "# "
Text1.Text = d
Text2.Text = f
End If
End If