[Meteora]

Καλημέρα

Αγαπητέ Γιώργο, μπορείς επίσης-πέρα από τη λύση που πρόσφερε ο φίλος Γιώργος- να φτιάξεις ένα κουμπί στην φόρμα σου και στο συμβάν "Με το κλικ", να μεταφέρεις τον κώδικα ;

 
Private Sub Command1_Click()
 
    Dim SDate As Variant
    Dim EDate As Variant
 
    SDate = InputBox("Δώσε αρχική ημερομηνία", "ΕΛΕΓΧΟΣ")
    EDate = InputBox("Δώσε Τελική ημερομηνία", "ΕΛΕΓΧΟΣ")
 
 
     If Len(SDate) = 0 Or Len(EDate) = 0 Then   Αλλαγή γραμμής (υπόδειξη Τασου...)  If not isDate(Sdate) or not isDate(EDate) then
        MsgBox ("Απαιτούνται κι οι δυο ημερομηνίες !"), vbInformation, "Ελεγχος"
        Exit Sub
    End If
 
    Dim sinthiki$
    sinthiki = "[imera] Between #" & Format(SDate, "mm\/dd\/yyyy") & "#" & _
             " and  #" & Format(EDate, "mm\/dd\/yyyy") & "#"
 
    DoCmd.OpenReport "Rptdokimi", acViewPreview, , sinthiki
 
End Sub

• [imera] είναι το πεδίο ημερομηνίας σου...
• Rptdokimi είναι το όνομα της έκθεσής σου ...

Αυτά αγαπητέ μου..

Με εκτίμηση
Νίκος Δ.

Υστερολόγιο: Η ημερομηνία αποτελεί 'αγκάθι' σε ζητήματα SQL, σύγκρισης, φιλτραρίσματος,... Αυτός είναι ο λόγος που έγραψα λίγη VBA!