Αναζήτηση αποτελεσμάτων ανάμεσα σε ημερομηνίες

[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

[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

[kellis]

kapetang
1) εάν δε θέλουμε να ορίσουμε χρόνο και να αναζητήσει όλες τις εγγραφές, χωρίς να προσθέσουμε άλλο κουμπί (τώρα βγάζει σφάλμα) τι πρέπει να συμπληρώσουμε στον κώδικα;
2) Μπορούμε να βάλουμε σταθερά διαστήματα (μήνα, τρίμηνο, ετήσιο);
Ευχαριστώ

[kapetang]

Καλησπέρα

Βαγγέλη, δοκίμασε τον κώδικα.

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

    Dim name As String, strF As String

    name = "Στατιστικά - ανά Κατηγορία Διπλώματος"
    If Not IsNull(Me.ΛίσταΚατηγορίαΔιπλώματος) Then strF = "ΚατηγορίαΔιπλώματος= " & Me.ΛίσταΚατηγορίαΔιπλώματος
    FilterReport strF, name

End Sub

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

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

    If Not IsNull(Me.ΛίσταΤύποςΑίτησηςΔιπλώματος) Then strF = "ΤύποςΑίτησηςΔιπλώματος= " & Me.ΛίσταΤύποςΑίτησηςΔιπλώματος
    FilterReport strF, name

End Sub

Public Sub FilterReport(strF As String, strName As String)
    If Not IsNull(Me.txtStart) Then
        If strF <> "" Then strF = strF & " AND "
        strF = strF & "[Ημερομηνία Εγγραφής]>=#" & Format(Me.txtStart, "m/d/yyyy") & "#"
    End If

    If Not IsNull(Me.txtEnd) Then
        If strF <> "" Then strF = strF & " AND "
        strF = strF & "[Ημερομηνία Εγγραφής]<= #" & Format(Me.txtEnd, "m/d/yyyy") & "#"
    End If
    If IsNull(strF) Then
        DoCmd.OpenReport strName, acViewPreview
    Else
        DoCmd.OpenReport strName, acViewPreview, , strF
    End If
End Sub

Δίνει τη δυνατότητα να αφήνεις ένα ή περισσότερα πεδία κενά (Null).

Κάθε πεδίο που μένει κενό, δεν υπολογίζεται στα κριτήρια.

Αν αφήσεις κενή την ημερομηνία λήξης θα εμφανιστούν οι εγγραφές με ημερομηνία εγγραφής ίση ή μεγαλύτερη από την ημερομηνία έναρξης, αν υπάρχει.

Αν αφήσεις κενή την ημερομηνία έναρξης θα εμφανιστούν οι εγγραφές με ημερομηνία εγγραφής ίση ή μικρότερη από την ημερομηνία λήξης, αν υπάρχει.

Αν όλα τα πεδία είναι κενά θα ανοίξει η έκθεση χωρίς να εφαρμοστεί κάποιο φίλτρο.

Αν θέλεις ένα διάστημα πχ τρίμηνο θα πρέπει να δώσεις τις κατάλληλες ημερομηνίες έναρξης και λήξης (πχ 1/1/2013 , 31/3/2013).

Φιλικά/Γιώργος

[kellis]

Γειά σου Γιώργο,
έβαλα τον κώδικα που μου έστειλες αλλά ανεξαρτήτως από την ημερομηνία που θα βάλεις, ή την κατηγορία που θα επιλέξεις τα εμφανίζει όλα.
Το κοίταξα και το ξανακοίταξα μήπως έχω γράψει κάτι λάθος αλλά δε βρήκα κάτι.
Μπορείς να ρίξεις πάλι μια ματιά;
Ευχαριστώ

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

Καλησπέρα

Βαγγέλη, δοκίμασε τον κώδικα.

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

    Dim name As String, strF As String

    name = "Στατιστικά - ανά Κατηγορία Διπλώματος"
    If Not IsNull(Me.ΛίσταΚατηγορίαΔιπλώματος) Then strF = "ΚατηγορίαΔιπλώματος= " & Me.ΛίσταΚατηγορίαΔιπλώματος
    FilterReport strF, name

End Sub

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

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

    If Not IsNull(Me.ΛίσταΤύποςΑίτησηςΔιπλώματος) Then strF = "ΤύποςΑίτησηςΔιπλώματος= " & Me.ΛίσταΤύποςΑίτησηςΔιπλώματος
    FilterReport strF, name

End Sub

Public Sub FilterReport(strF As String, strName As String)
    If Not IsNull(Me.txtStart) Then
        If strF <> "" Then strF = strF & " AND "
        strF = strF & "[Ημερομηνία Εγγραφής]>=" & Format(Me.txtStart, "m/d/yyyy")
    End If

    If Not IsNull(Me.txtEnd) Then
        If strF <> "" Then strF = strF & " AND "
        strF = strF & "[Ημερομηνία Εγγραφής]<=" & Format(Me.txtEnd, "m/d/yyyy")
    End If
    If IsNull(strF) Then
        DoCmd.OpenReport strName, acViewPreview
    Else
        DoCmd.OpenReport strName, acViewPreview, strF
    End If
End Sub

Δίνει τη δυνατότητα να αφήνεις ένα ή περισσότερα πεδία κενά (Null).

Κάθε πεδίο που μένει κενό, δεν υπολογίζεται στα κριτήρια.

Αν αφήσεις κενή την ημερομηνία λήξης θα εμφανιστούν οι εγγραφές με ημερομηνία εγγραφής ίση ή μεγαλύτερη από την ημερομηνία έναρξης, αν υπάρχει.

Αν αφήσεις κενή την ημερομηνία έναρξης θα εμφανιστούν οι εγγραφές με ημερομηνία εγγραφής ίση ή μικρότερη από την ημερομηνία λήξης, αν υπάρχει.

Αν όλα τα πεδία είναι κενά θα ανοίξει η έκθεση χωρίς να εφαρμοστεί κάποιο φίλτρο.

Αν θέλεις ένα διάστημα πχ τρίμηνο θα πρέπει να δώσεις τις κατάλληλες ημερομηνίες έναρξης και λήξης (πχ 1/1/2013 , 31/3/2013).

Φιλικά/Γιώργος

[kapetang]

Καλησπέρα

Βαγγέλη, έχεις δίκιο.

Στην εντολή που ανοίγει τις εκθέσεις ξέχασα να βάλλω ένα κόμμα και στις ημερομηνίες το σύμβολο #.

Διόρθωσα τον κώδικα στο προηγούμενο μήνυμα.

Δοκίμασέ τον πιστεύω να λειτουργεί σωστά.

Φιλικά/Γιώργος