Ελενχος για ημερομηνία

[giannisp]

Καλησπέρα σε όλους
Στις ΑΝΑΦΟΡΕΣ ΠΕΛΑΤΩΝ έχει το σύνθετο πλαίσιο που παίρνει τιμές απο το pPelates
και το κουμπί εντολής ΧΡΕΩΣΗ
Επιλέγω πελάτες και βλέπω τη χρέωση του κάθε πελάτη η
δεν επιλέγω και μου φέρνει όλες τις εγγραφές ως εδώ εντάξει με τον κώδικα
ΘΑ ήθελα αφου επιλέξω ημερομηνία στα πλαίσια 'απο' & 'εως' πατώντας το ίδιο
κουμπί ΧΡΕΩΣΗ να μου φέρνει τις τιμές σύμφωνα με την ημερομήνια που θα έχω επιλέξει
Μπορεί να βοηθήσει κάποιος ;

[nasos23]

Καλημέρα Γιάννη.
Δες μια πρόταση.

[giannisp]

Καλησπέρα Νάσο
ευχαριστώ πολύ για το χρόνο σου
Οταν δώσω τιμή για την ημερομηνία και μετά στο σύνθετο πλαίσιο μου σβήνει την ημερομηνία
Δηλαδή μπορώ να δω όλες τις χρεώσεις σύμφωνα με την ημερομηνία αλλά
δεν έχω την επιλογή να δω τον κάθε πελάτη ξεχωριστά σύμφωνα με την ημερομηνία
Γίνετε να υπάρχει και αυτή η επiλογή ;

[nasos23]

Καλημέρα Γιάννη.

[giannisp]

Μόλις δίνω τιμή στο σύνθετο πλαίσιο και το "apo-eos" είναι κενό εκτελώντας την
εντολή ανοίγει τη φόρμα 'fPelatiXreosiP' αλλά και τη "fPelatesXreosiP"
Γίνετε να μην ανοίγει από πίσω τη "fPelatesXreosiP"

If .........

If Nz(Me.Σύνθετο8, "") <> "" And Nz(Me.Apo, "") = "" Then
DoCmd.OpenForm "fPelatiXreosiP", , , "[a/aΠελατη]=" & Me![Σύνθετο8]
End If

If...........

Else
DoCmd.OpenForm "fPelatesXreosiP"

[nasos23]

Μόλις δίνω τιμή στο σύνθετο πλαίσιο και το "apo-eos" είναι κενό εκτελώντας την
εντολή ανοίγει τη φόρμα 'fPelatiXreosiP' αλλά και τη "fPelatesXreosiP"
Γίνετε να μην ανοίγει από πίσω τη "fPelatesXreosiP"

If .........

If Nz(Me.Σύνθετο8, "") <> "" And Nz(Me.Apo, "") = "" Then
DoCmd.OpenForm "fPelatiXreosiP", , , "[a/aΠελατη]=" & Me![Σύνθετο8]
End If

If...........

Else
DoCmd.OpenForm "fPelatesXreosiP"

Γιάννη στη βάση που ανέβασα ο κώδικας ανοίγει μόνο την φόρμα "fPelatesXreosiP"
Που είδες τη φόρμα "fPelatiXreosiP";
Την κατέβασα δύο φορές για έλεγχο.
Παρόλα αυτά κάνε την αντικατάσταση με το παρακάτω:

If Nz(Me.Σύνθετο8, "") <> "" And Nz(Me.Apo, "") = "" Then
    DoCmd.OpenForm "fPelatesXreosiP", , , "[a/aΠελατη]=" & Me![Σύνθετο8]
    End If

Καλή συνέχεια.

[giannisp]

Νάσο χίλια ευχαριστώ και πάλι που ασχολήθηκες
Δικό μου λάθος είχα κάνει μία αλλαγή στο όνομα της φόρμας