Φόρμα-Αριθμομηχανή
 

Καλημέρα

Βλέποντας την φόρμα-Αριθμομηχανή έχω απορία αν λειτουργεί η υποδιαστολή.

Αναφέρομαι στο γκρίζο κουμπάκι

http://www.ms-office.gr/forum/access...hmomixani.html

Καλημέρα!

Το παράδειγμα αυτό είναι φτιαγμένο για υπολογιστές όπου ως σύμβολο υποδιαστολής χρησιμοποιείται η τελεία.

Για να λειτουργήσει σωστά σε υπολογιστές με ελληνική μορφοποίηση θα πρέπει να βρεις τις γραμμές στον κώδικα:

Private Function HandleCalc(strNum As String)
Dim loctrl As Label
......................
......................

και να προσθέσεις την κόκκινη γραμμή:

Private Function HandleCalc(strNum As String)
Dim loctrl As Label
If strNum = "." Then strNum = ","
......................
......................

Κατά την προσωπική μου άποψη, θα ήταν πιο απλό αν σε ένα πεδίο υπολογίζαμε τη συμβολοσειρά των μαθηματικών πράξεων από ένα άλλο πεδίο.

Για παράδειγμα, το πεδίο με το όνομα EvalBox περιέχει τη συμβολοσειρά: 15+15+5

Ο τύπος: =Eval(Replace([EvalBox];",";".")) θα επιστρέψει το αναμενόμενο αποτέλεσμα.

Με εκτίμηση

Τάσος

Σ' ευχαριστώ πολύ Τάσο.