[kellis]

Καπετάνιε,

ΕΥΧΑΡΙΣΤΩ ! ! ! ! ! !

Αρχική Δημοσίευση από kapetang

Καλημέρα

Βαγγέλη, ακολούθησε τα παρακάτω βήματα:

1) Πρόσθεσε στα ερωτήματα στα οποία βασίζονται οι εκθέσεις και το πεδίο [Ημερομηνία Εγγραφής]

2) Δώσε στα πεδία ημερομηνίας στη φόρμα ονόματα txtStart και txtEnd

3) Άλλαξε τον κώδικα που ανοίγει τις εκθέσεις με τον ακόλουθο:

Private Sub Εμφάνιση_Click()

    Dim name As String

    name = "Στατιστικά - ανά Κατηγορία Διπλώματος"

    DoCmd.OpenReport name, acViewPreview, , "ΚατηγορίαΔιπλώματος= " & Me.ΛίσταΚατηγορίαΔιπλώματος _
                    & "AND ([Ημερομηνία Εγγραφής] Between #" & Format(Me.txtStart, "m/d/yyyy") _
                    & "# AND #" & Format(Me.txtEnd, "m/d/yyyy") & "#)"

End Sub

Private Sub Εντολή2_Click()

    Dim name As String

    name = "Στατιστικά - ανά Τύπο Αίτησης Διπλώματος"

    DoCmd.OpenReport name, acViewPreview, , "ΤύποςΑίτησηςΔιπλώματος= " & Me.ΛίσταΤύποςΑίτησηςΔιπλώματος _
                    & "AND [Ημερομηνία Εγγραφής] Between #" & Format(Me.txtStart, "m/d/yyyy") _
                    & "# AND #" & Format(Me.txtEnd, "m/d/yyyy") & "#"

End Sub