Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Δημιουργία Δόσεων χωρίς τόκους
Καλημέρα στο Φορουμ. Προσπαθώ να φτιάξω ένα αυτόματο Δοσολόγιο. Συγκεκριμένα σε έναν ενδιαφερόμενο δίνοντας πχ ενα κεφάλαιο 1000,00 να του δημιουργεί αυτόματα μετά από Επιλογή αριθμού Δόσεων, το δοσολόγιό του. π.χ 1000,00/39 δοσεις.χωρίς προσαυξήσεις τοκους κλπ.Στην τελευταία δόση, να στρογγυλοποιεί το συνολικό κεφάλαιο ( 1000/39= 25,64 η δόση, αλλα το κεφαλαιο 25,64 * 39 = 999,96 επομένως η λογική μου ειναι 25,64*38 = 974,32 και η τελευταία δόση 25,68 ). Τέλος, μετά την ημερομηνία που θα δοθεί σαν αφετηρία πρώτης δόσης, να συμπληρώνεται αυτόματα και η λήξη της επόμενης ημερομηνίας του κάθε επόμενου μήνα με την λογική της τελευταίας εργάσιμης ημέρας, για κάθε δόση. Με λίγα λόγια προσπαθώ να πετύχω την μορφή του ΠΙΝΑΚΑ deigma. Σας ευχαριστώ εκ των προτέρων, Κάθε πρόταση ή βοήθεια, θα είναι αμέριστη βοήθεια για μένα. Φιλικά/Λουκιανός |
#2
| |||
| |||
Λουκιανέ καλημέρα Δες μια υλοποίηση αυτού που ζητάς στην συνημμένη βάση. Τα δάνεια τα έχω σε ξεχωριστό πίνακα καθώς ένα άτομα μπορεί να έχει περισσότερα δάνεια. Επίσης έχω βάλει κουμπί για καθαρισμό των δόσεων και πεδίο όπου αθροίζει το σύνολο των δόσεων για να κάνεις δοκιμές με διάφορα ποσά και αριθμό δόσεων. Το μόνο ελλάτωμα είναι πως δεν εντοπίζει αν η τελευταία ημέρα του μήνα είναι αργία. ο κώδικας εξαιρεί μόνο τα Σαββατοκύριακα. Ίσως κάποιος από το Forum να μας δώσει μια λύση σε αυτό. Απ΄ όσο παρακολουθώ έχει απασχολήσει και σε άλλα θέματα από τα οποία κατάλαβα και την χρήση της DateSerial. |
#3
| |||
| |||
Καλησπέρα στην παρέα Η επισυναπτόμενη ΒΔ αποτελεί μια εξέλιξη της προσέγγισης του Στέλιου (Sarafis). Εκτός από τα Σαββατοκύριακα λαμβάνονται υπόψη και οι επίσημες αργίες. Στέλιο σε μια εντολή Insert η ημερομηνία θα πρέπει να δίνεται σε μορφή m/d/yyyy. Αν τη δώσουμε σε μορφή d/m/yyyy ενδέχεται να γίνει λάθος. Για παράδειγμα αν η ημερομηνία πρώτης δόσης είναι 1/2/2014 θα αποθηκευτεί ως 2/1/2014 (εναλλάσσεται ο μήνας με την ημέρα) . Φιλικά/Γιώργος |
#4
| |||
| |||
Καλησπέρα, και Συγγνωμη που καθυστέρησα να σας ευχαριστήσω Στέλιο και Γιώργο για την άμεση βοήθεια σας. Στέλιο ήταν κατανοητή η λύση σου και αρκετά χρήσιμη για να συνεχίσω. Γιώργο σε ευχαριστώ και σένα για την τελειοποίηση σε ότι αφορά τις Αργίες.Δυστυχώς όμως μου βγάζει σφάλμα η βάση που ανέβασες.Επισυνάπτω την αναφορά του σφάλματος. Τα References είναι οκ. Μετά Τιμής/ Λουκιανός |
#5
| |||
| |||
Καλησπέρα σε όλους Λουκιανέ μου βγάζει και εμένα σφάλμα ότι περιέχει στοιχεία ελέγχου ή ιδιότητες που δεν αναγνωρίζει η access και θα αγνοηθούν. Αν την αποθηκεύσεις ως access 2003 σταματάει να βγάζει σφάλματα. Γιώργο χαίρομαι να με διορθώνεις. Όπως έχω αναφέρει και σε άλλα θέματα, ο κώδικας που γράφω μπορεί να δουλεύει αλλά δεν μου αρέσει ούτε εμένα. Ο δικός σου αντίθετα είναι εξαιρετικός. Παρακολουθώ και μαθαίνω. Παρότι ασχολούμαι με την Access πάνω από 15 χρόνια,έχοντας φτιάξει δεκάδες βάσεις, παρακολουθώντας εσάς αισθάνομαι αρχάριος. |
#6
| |||
| |||
Καλησπέρα στην παρέα Λουκιανέ τη ΒΔ τη δημιούργησα σε access 2010. Δοκίμασα την επισυναπτόμενη σε access 2007 και 2010 και δεν εμφανίζει σφάλμα. Ελπίζω να μπορέσεις να την ανοίξεις ή να αντιμετωπίσεις το πρόβλημα με τον τρόπο που υπέδειξε ο Στέλιος. Στη ΒΔ άλλαξα λίγο τις φόρμες και τον κώδικα (η εκτέλεση του ερωτήματος γίνεται με την CurrentDb.Execute). Φίλε Στέλιο σ’ ευχαριστώ. Φιλικά/Γιώργος Τελευταία επεξεργασία από το χρήστη kapetang : 15-02-14 στις 13:01. Αιτία: αλλαγή συνημμένου |
#7
| |||
| |||
Καλημέρα σε όλους, Στέλιο αν εσύ με 15 χρόνια εμπειρίας, κάνεις τέτοιες διαπιστώσεις, εγώ ο πραγματικά αρχάριος τι πρέπει να σας πω? Νά είσαστε καλά για την βοήθεια που μας παρέχετε. Γιώργο, η βάση δεν βγάζει σφάλμα αλλά απότι πρόσεξα δεν υπολογίζει σωστά την τελευταία εργάσιμη μέρα. Για παράδειγμα, ημερομηνία α δόσης 20/2/2014 δόσεις 36 και ποσό 65.000. ( Ρίξε μια ματιά στον Ιανουάριο 2015 ή στον Φεβρουάριο 2015 ). Σας ευχαριστώ για μια ακόμη φορά Φιλικά/Λουκιανός |
#8
| |||
| |||
Καλησπέρα Λουκιανέ έχεις δίκιο. Πράγματι υπάρχει λάθος στον κώδικα. Αντικατέστησε τη γραμμή: wd = Weekday(dt) με την: wd = Weekday(dt, 2) Φιλικά/Γιώργος ΥΓ Διορθώθηκε και το συνημμένο στο προηγούμενο μήνυμα Τελευταία επεξεργασία από το χρήστη kapetang : 15-02-14 στις 12:53. Αιτία: Προσθήκη ΥΓ |
#9
| |||
| |||
Σε ευχαριστώ πάρα πολύ Γιώργο. Είσαι Τέλειος. Φιλικά/Λουκιανός |
#10
| |||
| |||
Λουκιανέ, σ’ ευχαριστώ. Χρησιμοποίησε το νέο συνημμένο του προηγούμενου μηνύματος στο οποίο έκανα και μία αλλαγή στη πρόταση: Do While |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[Συναρτήσεις] Εμφάνιση δόσεων | xristos | Excel - Ερωτήσεις / Απαντήσεις | 2 | 03-11-16 09:38 |
[Γενικά] διαχωρισμος χωρις την παυλα | GreekPowers | Excel - Ερωτήσεις / Απαντήσεις | 7 | 29-07-15 14:58 |
Εξοδος από φόρμα χωρίς αποθήκευση | smasak | Access - Ερωτήσεις / Απαντήσεις | 9 | 23-01-15 23:45 |
[ Πίνακες ] Αθροισμα σε πεδίο χωρίς Ερώτημα | Free_Ghost | Access - Ερωτήσεις / Απαντήσεις | 4 | 21-02-10 11:24 |
[Συναρτήσεις] Τρείς Στήλες σε μία χωρίς κενά | Dimi | Excel - Ερωτήσεις / Απαντήσεις | 2 | 05-01-10 15:24 |
Η ώρα είναι 12:21.