Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Ελενχος για ημερομηνία (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/5134-elenxos-gia-imerominia.html)

giannisp 18-01-19 23:06

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

nasos23 19-01-19 13:34

1 Συνημμένο(α)
Καλημέρα Γιάννη.
Δες μια πρόταση.

giannisp 19-01-19 17:42

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

nasos23 20-01-19 11:03

1 Συνημμένο(α)
Καλημέρα Γιάννη.

giannisp 20-01-19 18:21

Μόλις δίνω τιμή στο σύνθετο πλαίσιο και το "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 20-01-19 19:43

Παράθεση:

Μόλις δίνω τιμή στο σύνθετο πλαίσιο και το "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 21-01-19 18:14

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


Η ώρα είναι 06:48.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2