Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Μετατροπή Κεφαλαία - Μικρά

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 08-12-12, 10:47
Όνομα: ΣΤΑΥΡΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 27-10-2012
Μηνύματα: 102
Προεπιλογή Μετατροπή Κεφαλαία - Μικρά

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

ΥΓ. Αν είναι δυνατών (και δεν είναι μεγάλος κόπος) όποιος βοηθήσει ας εξηγήσει τι ακριβώς έκανε για προσαρμογή και σε άλλες περιπτώσεις
Συνημμένα Αρχεία
Τύπος Αρχείου: zip WeeKe.zip (263,8 KB, 39 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη stavross : 08-12-12 στις 16:44.
Απάντηση με παράθεση
  #2  
Παλιά 08-12-12, 17:04
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

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

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

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


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Μετατροπή κώδικα VBA γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 2 01-08-14 10:11
Ερώτημα με κεφαλαία γράμματα γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 3 27-02-14 00:00
[Γενικά] μετατροπή σε ωρα misirlis Excel - Ερωτήσεις / Απαντήσεις 9 07-09-10 11:15


Η ώρα είναι 20:02.