Access samples - Χρήσιμα αρχεία & παραδείγματα Αρχεία Ms-Access διαθέσιμα για τα μέλη του Forum.

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 10-11-09, 14:03
Υπηρεσία υποστήριξης
Όνομα: °°°°°°°°°°°°°°°°°°
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Αγγλική, Γερμανική, Γαλλική
 
Εγγραφή: 10-11-2009
Μηνύματα: 50
Προεπιλογή Αριθμητικό ποσό ολογράφως.

Δημιουργός: Τάσος Φιλοξενίδης (έτος 2010)
Περιβάλλον: Access 2000, 2002, 2003, 2007, 2010

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

Αριθμητικό ποσό ολογράφως.-inwords.jpg

Τι κάνει το αρχείο αυτό:
  • Έχει δυνατότητα επιλογής απόκρυψης των λέξεων "ευρώ" και "λεπτό" ή "λεπτά".
  • Εμφανίζει μόνο το πρώτο γράμμα κεφαλαίο
  • Εμφανίζει όλο το περιεχόμενο σε ΚΕΦΑΛΑΙΑ
  • Εμφανίζει το Πρώτο Γράμμα της Λέξης Κεφαλαίο
  • Λειτουργεί σε κάθε υπολογιστή ανεξάρτητα από την γλώσσα που υποστηρίζει.
Προσαρμογή σε άλλες εφαρμογές Access:

Έστω ότι έχουμε σε ερώτημα ή σε φόρμα τα εξής πεδία:
  • NumberField = Πεδίο με μορφοποίηση αριθμού όπου περνάμε τον αριθμό
  • ResultField = Πεδίο όπου θα εμφανίζεται το αποτέλεσμα

Αρχικά εισάγουμε τη λειτουργική μονάδα mdlfunc από το αρχείο InWords.mdb
στη βάση δεδομένων μας.

Η παραπάνω λειτουργική μονάδα περιέχει τη συνάρτηση:

NumToWords(myValue, Optional CharCase%, Optional EurosAndCents As Boolean = True)

Μπορούμε να καλέσουμε τη συνάρτηση NumToWords() χρησιμοποιώντας ένα από
τα παρακάτω παραδείγματα:

Μόνο το πρώτο γράμμα του αποτελέσματος κεφαλαίο, εμφάνιση της νομισματικής μονάδας
  • Κλήση από το πεδίο φόρμας "ResultField" : =NumToWords(NumberField)
  • Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField)
  • Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField)
Όλα ΚΕΦΑΛΑΙΑ, εμφάνιση της νομισματικής μονάδας
  • Κλήση από το πεδίο φόρμας "ResultField" : = NumToWords(NumberField, 1)
  • Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField, 1)
  • Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField, 1)

Το Πρώτο Γράμμα της Λέξης Κεφαλαίο, εμφάνιση της νομισματικής μονάδας

  • Κλήση από το πεδίο φόρμας "ResultField" : = NumToWords(NumberField, 2)
  • Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField, 2)
  • Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField, 2)


Μόνο το πρώτο γράμμα του αποτελέσματος κεφαλαίο, απόκρυψη της νομισματικής μονάδας
  • Κλήση από το πεδίο φόρμας "ResultField" : = NumToWords(NumberField, 0, False)
  • Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField, 0, False)
  • Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField, 0, False)

Όλα ΚΕΦΑΛΑΙΑ, απόκρυψη της νομισματικής μονάδας
  • Κλήση από το πεδίο φόρμας "ResultField" : = NumToWords(NumberField, 1, False)
  • Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField, 1, False)
  • Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField, 1, False)

Το Πρώτο Γράμμα της Λέξης Κεφαλαίο, απόκρυψη της νομισματικής μονάδας
  • Κλήση από το πεδίο φόρμας "ResultField" : = NumToWords(NumberField, 2, False)
  • Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField, 2, False)
  • Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField, 2, False)

Κατεβάστε το αρχείο αποσυμπιέστε το και ...αξιολογείστε το.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip InWords.zip (50,8 KB, 641 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη Tasos : 11-03-10 στις 20:02.
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[VBA] Αριθμητικό πεδίο σε UserForm jockey17 Excel - Ερωτήσεις / Απαντήσεις 3 21-04-14 18:39
[ Εκθέσεις ] Συνολικό Ποσό Ολογράφως ΤΖΙΜΗΣ Access - Ερωτήσεις / Απαντήσεις 7 21-06-11 22:55
ΠΟΣΟ ΟΛΟΓΡΑΦΩΣ alatis Access - Ερωτήσεις / Απαντήσεις 2 30-07-10 10:02
Αριθμητικό ποσό ή ημερομηνίες ολογράφως σε πίνακα Word. Ms-Office-Development Team Word samples - Χρήσιμα αρχεία & παραδείγματα 0 20-12-09 02:06
Αριθμητικό ποσό ολογράφως. Tassos Access - Ερωτήσεις / Απαντήσεις 0 08-03-09 23:10


Η ώρα είναι 07:34.