Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Επιλογή τιμής βάσει κριτηρίων

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 25-05-10, 19:39
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 25-05-2010
Μηνύματα: 1
Προεπιλογή Επιλογή τιμής βάσει κριτηρίων

Παιδιά Καλησπέρα, απο access δεν σκαμπάζω και πολλά οπότε θα ήθελα αν μπορούσατε να μου δώσετε μια βοήθεια. Μας έχουν βάλει μια άσκηση η οποία λέει να φτιάξουμε πληροφοριακό σύστημα για φροντιστήριο ξένων γλωσσών. Λοιπόν, 2 ξένες γλώσσες Αγγλικά-Γαλλικά με κόστος 80,60Ε. Όταν πληρώσει κάποιος με μετρητά 10% έκπτωση ανεξαρτήτως αν παρακολουθεί και τις 2. Αν κάποιος παρακολουθεί και τις 2 έχει έκπτωση 30% στην δεύτερη γλώσσα. Η επιλογή των γλωσσών θα γίνει yes/no boxes. Όπως καταλαβαίνετε η κυριότερη δυσκολία έχει να κάνει με τους περιορισμούς και πως θα τους παρουσιάσουμε για να βγούν τα δίδακτρα! Αυτά είναι τα κυριότερα, όποιος έχει κάποια πρόταση τον ευχαριστώ!!!!!!!!!!!!!!!!!
Απάντηση με παράθεση
  #2  
Παλιά 26-05-10, 20:51
Το avatar του χρήστη nisgia
Super Moderator
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 12-10-2009
Περιοχή: Ηγουμενίτσα
Μηνύματα: 161
Προεπιλογή

Φίλε Δημήτρη, καλωσόρισες στο φόρουμ!

Ένα επιλεγμένο χειριστήριο επιλογής (Checkbox) στην Access έχει τιμή -1
ενώ ένα μη επιλεγμένο την τιμή 0.

Συνεπώς αν προσθέσεις τα δυο Checkboxes θα έχεις ένα αποτέλεσμα από -2 έως 0.
Οπότε μετατρέπεις με τη βοήθεια της συνάρτησης ABS() το αποτέλεσμα σε θετικό
και το περνάς στη συνάρτηση Choose() όπως φαίνεται παρακάτω:

Κώδικας:
Choose(Abs([fldEnglish]+[fldFrench])+1;0;0,1;0,3)
Όπου fldEnglish και fldFrench τα Checkboxes των μαθημάτων.
Το αποτέλεσμα θα είναι είτε 0, είτε 0,1 είτε 0,3.

Στη συνέχεια πολλαπλασιάσεις το αποτέλεσμα της Choose() με ένα άλλο Checkbox ("Μετρητοίς") και είσαι έτοιμος.

Η τελική μορφή της παράστασης θα μοιάζει με την παρακάτω:
Κώδικας:
Choose(Abs([fldEnglish]+[fldFrench])+1;0;0,1;0,3)*Abs([fldCash]) 
Αναλόγως που θέλεις να εμφανίσεις το αποτέλεσμα της έκπτωσης, την εισάγεις είτε σε ένα
υπολογιζόμενο πεδίο ενός ερωτήματος είτε σε ένα χειριστήριο κειμένου σε μια φόρμα ή έκθεση.

Τα λέμε!
Γιάννης
__________________
Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...!
-----------------------------------------------
Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά!
Απάντηση με παράθεση
  #3  
Παλιά 27-05-10, 21:47
Όνομα: Μάρω
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-03-2010
Περιοχή: Αθήνα
Μηνύματα: 287
Προεπιλογή

Καλησπέρα,
Γιάννη μηπως θα σου ήταν εύκολο να ανεβάσεις ένα παράδειγμα για να το καταλάβω καλύτερα???




Σε ευχαριστώ,
Μάρω
Απάντηση με παράθεση
  #4  
Παλιά 29-05-10, 22:51
Το avatar του χρήστη nisgia
Super Moderator
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 12-10-2009
Περιοχή: Ηγουμενίτσα
Μηνύματα: 161
Προεπιλογή

Καλησπέρα Μάρω!

Έχεις δίκιο! Ένα παράδειγμα πάντα βοηθάει!
Απλά προχθές, έδωσα την απάντηση υπό πίεση χρόνου...

Στο παράδειγμα λοιπόν που ετεροχρονισμένα επισυνάπτω, εξέτασε τις εκφράσεις
στα τελευταία τρία πεδία του μοναδικού ερωτήματος (qryTuition).

Τα λέμε!
Γιάννης
Συνημμένα Αρχεία
Τύπος Αρχείου: zip xmplCheckBoxCalculations.zip (13,2 KB, 25 εμφανίσεις)
__________________
Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...!
-----------------------------------------------
Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά!
Απάντηση με παράθεση
  #5  
Παλιά 31-05-10, 11:10
Όνομα: Μάρω
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-03-2010
Περιοχή: Αθήνα
Μηνύματα: 287
Προεπιλογή

Καλημέρα και σε ευχαριστώ.


Μάρω
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Παράμετρο κριτήριων σε ερώτημα vraxnakisg Access - Ερωτήσεις / Απαντήσεις 1 08-06-16 18:23
[VBA] Αλλαγή της τιμής ενός κελιού βάσει του χρώματος sakis297 Excel - Ερωτήσεις / Απαντήσεις 8 18-09-15 18:19
Αποτελέσματα σε φόρμα, βάσει κριτηρίων... dimogerontas Access - Ερωτήσεις / Απαντήσεις 6 05-07-12 10:08
[ Φόρμες ] Επιλογή αναφοράς ανάλογα τιμής πεδίου serviceman Access - Ερωτήσεις / Απαντήσεις 15 23-05-10 00:07
σφάλμα στη συννένωση κριτηρίων amy Access - Ερωτήσεις / Απαντήσεις 10 13-03-10 21:14


Η ώρα είναι 13:46.