Forum - Χρήση Ελληνικού Αλφάβητου ως Αρίθμηση σε Εκθεση

Καλησπέρα Παναγιώτη.

Δες το συνημμένο αρχείο.

Στη δεξιά πλευρά της έκθεσης στο πεδίο "aa" γίνεται αυτόματη αρίθμηση των εγγραφών.
Η αριστερή πλευρά της έκθεσης το πεδίο "Κείμενο9" αντλεί δεδομένα =GetChoice([aa]) από τον παρακάτω
κώδικα της έκθεσης.

Κώδικας:

Option Compare Database

Option Explicit

Function GetChoice(aa As String)

    GetChoice = Choose(aa, "α", "β", "γ", "δ", "ε", "στ", "ζ", "η", "θ", "ι", "ια", "ιβ", "ιγ", _

    "ιδ", "ιε", "ιστ", "ιζ", "ιη", "ιθ", "κ", "κα", "κβ", "κγ", "κδ", "κε", "κστ", "κζ", "κη", _

    "κθ", "λ", "λα", "λβ", "λγ", "λδ", "λε", "λστ", "λζ", "λη", "λθ", "μ")

End Function

Η μέτρηση με ελληνικούς χαρακτήρες φτάνει μέχρι τον αρ. 40.

Φιλικά Νάσος
ΥΓ
Με επεξεργασία του κώδικα μπορείς να προσθέσεις η να αφαιρέσεις αριθμούς.
Το πεδίο aa μπορείς να το κάνεις κρυφό.
Η συνάρτηση CHOOSE περιορίζεται σε εύρος τιμών από 1 έως 254.