Φόρμα με περιορισμούς

[nkouk]

Καλησπέρα και Χρόνια Πολλά σε όλους!!!

Έχω προσαρμόσει στα δικά μου μέτρα το πρόγραμμα αδειών απο τα παραδείγματα, το οποίο είναι πολύ χρήσιμο. Προσπαθώ να βγάλω μια άκρη αλλά δεν τα καταφέρνω.

Το πρόβλημα μου είναι το εξής. Θέλω να ορίσω όριο στις μέρες αδείας που παίρνει ο κάθε υπάλληλος(π.χ 30 ημέρες και 4 πορείας για την Κανονική), καθώς να περιορίσω ότι δικαιούται μόνο μια φορά ημέρες πορείας (4 μέρες) με κάθε άδεια που λαμβάνει. Προσπαθησα να μου εμφανίζει και το υπόλοιπο ημερών αλλά κάνω κάτι λάθος.

Σας αποστέλω τι έχω κάνει μέχρι στιγμής.

Κάθε σας βοήθεια είναι πολύτιμη! Σας ευχαριστώ εκ των προτέρων.

[nkouk]

Καλησπέρα και καλή Χρονιά εύχομαι σε όλους..Προσπαθώ να κάνω να μετράει τις άδεις στον κάθε υπάλληλο αλλά δεν τα καταφέρνω. Μπορεί κάποιος να βοηθήσει; Να δημιουργήσω ερώτημα και να με την συνάρτηση IF να κάνει το άθροισμα στο είδος της άδειας;

[nasos23]

Καλησπέρα Νικόλα.
Ξαναδές το παράδειγμα http://www.ms-office.gr/forum/access...ma-access.html
και τον κώδικα στο modul1.Αφαιρεί Σαββατοκύριακα αργίες κλπ.

[nkouk]

Naso σε ευχαριστώ πολυ! Δεν τους χρειάζομαι αυτούς τους υπολογισμούς. Τους αφαιρεσα απο το module. Θέλω κατα κάποιον τροπο να υπολογίζονται τα υπολοιπα σε κάθε άδεια καθενος εργαζόμενου και να το εμφανίζει στην φόρμα. Προσπαθησα με ερώτημα και κριτήρια και το αθροισμα των ημερων αλλά δεν ξέρω πως θα τα αποθηκευω σε πίνακα ώστε να τα εμφανιζω και στην φόρμα...

[Meteora]

Καλησπέρα, Καλή Χρονιά

...ελπίζω να βοηθηθείς.

Με εκτίμηση / Νίκος

[nkouk]

Νίκο Χρόνια Πολλά και Καλή Χρονιά!
Σε ευχαριστώ πολύ για την βοήθεια!

Πραγματικα ειχα σκαλωσει και είναι πολύ χρήσιμο!

Κατι τελευταίο...Υπάρχει τρόπος τα υπόλοιπα να τα αποθηκεύει και σε πίνακα ή σε ερώτημα κάπως;

[nasos23]

Νικόλα και η δική μου εκδοχή με ορισμένες τροποποιήσεις

[Meteora]

Καλησπέρα

Η αποθήκευση πληροφοριών (προϊόντα δεδομένων) δεν συνιστάται. Βέβαια εσύ, μπορείς με άνεση να διαχειρίζεσαι πίνακες και ερωτήματα, οπότε καλά κάνεις και σκέφτεσαι έτσι... Γράψε στο Forum ποια στοιχεία θέλεις να βλέπεις με μια ματιά και υπό ποιες προϋποθέσεις. Θα έχεις την απάντηση που θες από τα μέλη.

Δες και την ανάρτηση του φίλου μας Νάσου. Οι προτάσεις του είναι πάντα σπουδαίες.

Με εκτίμηση/ Νίκος

[nkouk]

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

Νικόλα και η δική μου εκδοχή με ορισμένες τροποποιήσεις

Nasο πολύ καλή και η ιδέα σου! Βέβαια για κάποιο λόγο δεν λειτουργεί και μου βγάζει error όταν πάω να πληκτρολογήσω ημερομηνία και σε συγκεκριμένα στην μακροεντολή "refresh".

[nkouk]

Private Sub StartDate_BeforeUpdate(Cancel As Integer)
DoCmd.RunMacro "refresh", 1
End Sub

Αλλάζοντάς το σε

Private Sub StartDate_BeforeUpdate(Cancel As Integer)
DoCmd.RunMacro "refresh", 0
End Sub

Δουλεύει κανονικά! Υπάρχει πρόβλημα που το έκανα έτσι; Τώρα άρχισε να τρεχει κανονικά όλη η εφαρμογή και είναι φοβερή!

Ενημέρωση: Δεν τα υπολογίζει όμως μόλις το άλλαξα... Αλλά δεν βγάζει error με αυτή την αλλαγή