dateRésolu

Question

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

Renfield · Accepted Answer

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

Date

1 réponse

Votre réponse

Discussions similaires