Μετατροπή Κεφαλαία - Μικρά

[kapetang]

Καλησπέρα

Σταύρο, γι τον έλεγχο των καταχωρήσεων των χρονικών διαστημάτων των αδειών, κάτι σκέφτομαι, αλλά δεν το ολοκλήρωσα.

Όταν το ολοκληρώσω θα το ανεβάσω στο θέμα που άνοιξες με τίτλο «Άδειες».

Για τη μετατροπή των πεζών σε κεφαλαία, αν υποθέσουμε ότι το πεδίο κειμένου λέγεται [Eponimo] και το πεδίο του πίνακα (ή ερωτήματος) που αποτελεί την προέλευση δεδομένων του επίσης [Eponimo], μπορείς να κάνεις τα εξής:

1) Δίνεις διαφορετικό όνομα στο πεδίο κειμένου πχ UperEponimo.

Αν θέλεις τα κεφαλαία να έχουν τόνους:

2) Στην προέλευση δεδομένων βάζεις τον τύπο: = REPLACE(UCASE([Eponimo],"ς","Σ").

Αν θέλουμε τα κεφαλαία να είναι άτονα:

2) Αντιγράφουμε τον παρακάτω κώδικα σε μια τυπική λειτουργική (Module).

3) Στην προέλευση δεδομένων βάζουμε τον τύπο := UPERATONA([Eponimo]).

Public Function UPERATONA(X As Variant) As Variant
    If Not IsNull(X) Then
        UPERATONA = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(UCase(X), "ς", "Σ"), _
                    "Ά", "Α"), "Έ", "Ε"), "Ή", "Η"), "Ί", "Ι"), "Ό", "Ο"), "Ώ", "Ω"), "Ύ", "Υ")
    End If
End Function

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