Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Δημιουργία Δόσεων χωρίς τόκους

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 13-02-14, 12:48
Όνομα: Λουκιανός
Έκδοση λογισμικού Office: Ms-Office 2002, Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 27-09-2013
Μηνύματα: 21
Προεπιλογή Δημιουργία Δόσεων χωρίς τόκους

Καλημέρα στο Φορουμ.

Προσπαθώ να φτιάξω ένα αυτόματο Δοσολόγιο.
Συγκεκριμένα σε έναν ενδιαφερόμενο δίνοντας πχ ενα κεφάλαιο 1000,00 να του δημιουργεί αυτόματα μετά από Επιλογή αριθμού Δόσεων,
το δοσολόγιό του. π.χ 1000,00/39 δοσεις.χωρίς προσαυξήσεις τοκους κλπ.Στην τελευταία δόση, να στρογγυλοποιεί το συνολικό κεφάλαιο ( 1000/39= 25,64 η δόση, αλλα το κεφαλαιο 25,64 * 39 = 999,96 επομένως η λογική μου ειναι 25,64*38 = 974,32 και η τελευταία δόση 25,68 ). Τέλος, μετά την ημερομηνία που θα δοθεί σαν αφετηρία πρώτης δόσης, να συμπληρώνεται αυτόματα και η λήξη της επόμενης ημερομηνίας του κάθε επόμενου μήνα με την λογική της τελευταίας εργάσιμης ημέρας, για κάθε δόση.

Με λίγα λόγια προσπαθώ να πετύχω την μορφή του ΠΙΝΑΚΑ deigma.

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

Φιλικά/Λουκιανός
Συνημμένα Αρχεία
Τύπος Αρχείου: zip doseis.zip (29,0 KB, 16 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 14-02-14, 03:28
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-05-2009
Περιοχή: Αθήνα
Μηνύματα: 169
Προεπιλογή

Λουκιανέ καλημέρα
Δες μια υλοποίηση αυτού που ζητάς στην συνημμένη βάση. Τα δάνεια τα έχω σε ξεχωριστό πίνακα καθώς ένα άτομα μπορεί να έχει περισσότερα δάνεια. Επίσης έχω βάλει κουμπί για καθαρισμό των δόσεων και πεδίο όπου αθροίζει το σύνολο των δόσεων για να κάνεις δοκιμές με διάφορα ποσά και αριθμό δόσεων.
Το μόνο ελλάτωμα είναι πως δεν εντοπίζει αν η τελευταία ημέρα του μήνα είναι αργία. ο κώδικας εξαιρεί μόνο τα Σαββατοκύριακα. Ίσως κάποιος από το Forum να μας δώσει μια λύση σε αυτό. Απ΄ όσο παρακολουθώ έχει απασχολήσει και σε άλλα θέματα από τα οποία κατάλαβα και την χρήση της DateSerial.
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb doseis.mdb (348,0 KB, 16 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 14-02-14, 11:30
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.016
Προεπιλογή

Καλησπέρα στην παρέα

Η επισυναπτόμενη ΒΔ αποτελεί μια εξέλιξη της προσέγγισης του Στέλιου (Sarafis).

Εκτός από τα Σαββατοκύριακα λαμβάνονται υπόψη και οι επίσημες αργίες.

Στέλιο σε μια εντολή Insert η ημερομηνία θα πρέπει να δίνεται σε μορφή m/d/yyyy.

Αν τη δώσουμε σε μορφή d/m/yyyy ενδέχεται να γίνει λάθος.

Για παράδειγμα αν η ημερομηνία πρώτης δόσης είναι 1/2/2014 θα αποθηκευτεί ως 2/1/2014 (εναλλάσσεται ο μήνας με την ημέρα) .

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb doseis2.mdb (832,0 KB, 22 εμφανίσεις)
Απάντηση με παράθεση
  #4  
Παλιά 14-02-14, 19:41
Όνομα: Λουκιανός
Έκδοση λογισμικού Office: Ms-Office 2002, Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 27-09-2013
Μηνύματα: 21
Προεπιλογή

Καλησπέρα, και Συγγνωμη που καθυστέρησα να σας ευχαριστήσω Στέλιο και Γιώργο για την άμεση βοήθεια σας. Στέλιο ήταν κατανοητή η λύση σου και αρκετά χρήσιμη για να συνεχίσω. Γιώργο σε ευχαριστώ και σένα για την τελειοποίηση σε ότι αφορά τις Αργίες.Δυστυχώς όμως μου βγάζει σφάλμα η βάση που ανέβασες.Επισυνάπτω την αναφορά του σφάλματος. Τα References είναι οκ.

Μετά Τιμής/ Λουκιανός
Συνημμένα Thumbnails
Δημιουργία Δόσεων χωρίς τόκους-loykianos1.jpg  
Απάντηση με παράθεση
  #5  
Παλιά 14-02-14, 21:46
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-05-2009
Περιοχή: Αθήνα
Μηνύματα: 169
Προεπιλογή

Καλησπέρα σε όλους
Λουκιανέ μου βγάζει και εμένα σφάλμα ότι περιέχει στοιχεία ελέγχου ή ιδιότητες που δεν αναγνωρίζει η access και θα αγνοηθούν. Αν την αποθηκεύσεις ως access 2003 σταματάει να βγάζει σφάλματα.
Γιώργο χαίρομαι να με διορθώνεις.
Όπως έχω αναφέρει και σε άλλα θέματα, ο κώδικας που γράφω μπορεί να δουλεύει αλλά δεν μου αρέσει ούτε εμένα. Ο δικός σου αντίθετα είναι εξαιρετικός. Παρακολουθώ και μαθαίνω.
Παρότι ασχολούμαι με την Access πάνω από 15 χρόνια,έχοντας φτιάξει δεκάδες βάσεις, παρακολουθώντας εσάς αισθάνομαι αρχάριος.
Απάντηση με παράθεση
  #6  
Παλιά 14-02-14, 22:04
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.016
Προεπιλογή

Καλησπέρα στην παρέα

Λουκιανέ τη ΒΔ τη δημιούργησα σε access 2010.

Δοκίμασα την επισυναπτόμενη σε access 2007 και 2010 και δεν εμφανίζει σφάλμα.

Ελπίζω να μπορέσεις να την ανοίξεις ή να αντιμετωπίσεις το πρόβλημα με τον τρόπο που υπέδειξε ο Στέλιος.

Στη ΒΔ άλλαξα λίγο τις φόρμες και τον κώδικα (η εκτέλεση του ερωτήματος γίνεται με την CurrentDb.Execute).

Φίλε Στέλιο σ’ ευχαριστώ.

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb doseis3.mdb (564,0 KB, 36 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη kapetang : 15-02-14 στις 12:01. Αιτία: αλλαγή συνημμένου
Απάντηση με παράθεση
  #7  
Παλιά 15-02-14, 10:37
Όνομα: Λουκιανός
Έκδοση λογισμικού Office: Ms-Office 2002, Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 27-09-2013
Μηνύματα: 21
Προεπιλογή

Καλημέρα σε όλους,

Στέλιο αν εσύ με 15 χρόνια εμπειρίας, κάνεις τέτοιες διαπιστώσεις, εγώ ο πραγματικά αρχάριος τι

πρέπει να σας πω? Νά είσαστε καλά για την βοήθεια που μας παρέχετε. Γιώργο, η βάση δεν βγάζει

σφάλμα αλλά απότι πρόσεξα δεν υπολογίζει σωστά την τελευταία εργάσιμη μέρα. Για παράδειγμα,

ημερομηνία α δόσης 20/2/2014 δόσεις 36 και ποσό 65.000. ( Ρίξε μια ματιά στον Ιανουάριο 2015 ή

στον Φεβρουάριο 2015 ).


Σας ευχαριστώ για μια ακόμη φορά


Φιλικά/Λουκιανός
Απάντηση με παράθεση
  #8  
Παλιά 15-02-14, 11:40
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.016
Προεπιλογή

Καλησπέρα

Λουκιανέ έχεις δίκιο.

Πράγματι υπάρχει λάθος στον κώδικα.

Αντικατέστησε τη γραμμή: wd = Weekday(dt) με την: wd = Weekday(dt, 2)

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

ΥΓ Διορθώθηκε και το συνημμένο στο προηγούμενο μήνυμα

Τελευταία επεξεργασία από το χρήστη kapetang : 15-02-14 στις 11:53. Αιτία: Προσθήκη ΥΓ
Απάντηση με παράθεση
  #9  
Παλιά 15-02-14, 12:05
Όνομα: Λουκιανός
Έκδοση λογισμικού Office: Ms-Office 2002, Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 27-09-2013
Μηνύματα: 21
Προεπιλογή

Σε ευχαριστώ πάρα πολύ Γιώργο. Είσαι Τέλειος.

Φιλικά/Λουκιανός
Απάντηση με παράθεση
  #10  
Παλιά 15-02-14, 12:11
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.016
Προεπιλογή

Λουκιανέ, σ’ ευχαριστώ.

Χρησιμοποίησε το νέο συνημμένο του προηγούμενου μηνύματος στο οποίο έκανα και μία αλλαγή στη πρόταση: Do While
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Συναρτήσεις] Εμφάνιση δόσεων xristos Excel - Ερωτήσεις / Απαντήσεις 2 03-11-16 08:38
[Γενικά] διαχωρισμος χωρις την παυλα GreekPowers Excel - Ερωτήσεις / Απαντήσεις 7 29-07-15 13:58
Εξοδος από φόρμα χωρίς αποθήκευση smasak Access - Ερωτήσεις / Απαντήσεις 9 23-01-15 22:45
[ Πίνακες ] Αθροισμα σε πεδίο χωρίς Ερώτημα Free_Ghost Access - Ερωτήσεις / Απαντήσεις 4 21-02-10 10:24
[Συναρτήσεις] Τρείς Στήλες σε μία χωρίς κενά Dimi Excel - Ερωτήσεις / Απαντήσεις 2 05-01-10 14:24


Η ώρα είναι 16:00.