Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Μετατροπή Κεφαλαία - Μικρά (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2227-metatropi-kefalaia-mikra.html)

stavross 08-12-12 09:47

Μετατροπή Κεφαλαία - Μικρά
 
1 Συνημμένο(α)
Καλημέρα - καλησπέρα σε όλο το φόρουμ
Παιδιά μετά την σημαντική σας βοήθεια έχω φτάσει σε ένα καλό (κατά την γνώμη μου) σημείο σε σχέση μιας βάσης για άδειες. Θα ήθελα τις γνώσεις σας ώστε να προσθέσω κάποιες πινελιές.
Όταν βάζω ημερομηνία από έως η λογική λέει ότι εκείνη την συγκεκριμένη περίοδο δεν θα πρέπει το ίδιο άτομο να λείπει με κάποια άλλη άδεια. Έχω βρει στο φόρουμ ένα σχετικό κώδικα που δεν κατάφερα να το ενσωματώσω στην δική μου βάση. Και στην έκθεση πώς μπορώ να μετατρέψω τα μικρά γράμματα σε κεφαλαία; Χρησιμοποίησα την UCase αλλά μου επέστρεψε το όνομα Γιώργος ( ΓΙΏΡΓΟς)
Ευχαριστώ εκ των προτέρων (χωρίς την βοήθεια σας δεν θα έκανα ούτε τα μισά)

ΥΓ. Αν είναι δυνατών (και δεν είναι μεγάλος κόπος) όποιος βοηθήσει ας εξηγήσει τι ακριβώς έκανε για προσαρμογή και σε άλλες περιπτώσεις

kapetang 08-12-12 16:04

Καλησπέρα

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

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

Για τη μετατροπή των πεζών σε κεφαλαία, αν υποθέσουμε ότι το πεδίο κειμένου λέγεται [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

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


Η ώρα είναι 19:47.

Ms-Office.gr - ©2000 - 2024, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2