Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Ερώτημα με κεφαλαία γράμματα

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

Κλειστό Θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 26-02-14, 17:59
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 729
Προεπιλογή Ερώτημα με κεφαλαία γράμματα

Καλησπέρα σε όλα τα μέλη,

Παιδειά υπάρχει τρόπος να κάνω ερώτημα έτσι ώστε να μπορέσω να βρώ όλα τα δεδομένα σε ένα πίνακα τα οποία αναγράφωνται με καφαλαία? Δηλαδή για παράδειγμα:

Θέλω να βρώ όλες τις λέξεις που όλα τα γράμματα τους είναι κεφαλαία όπως πχ ΓΙΩΡΓΟΣ και όχι απλά να αναγνωρίσει το πρώτο σε κάθε λέξη όπως πχ Γιώργος..

Ευχαριστώ εκ προτέρων
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com
  #2  
Παλιά 26-02-14, 23:16
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.233
Προεπιλογή

Καλησπέρα!
Φίλε μου μπορείς να επιτύχεις το ζητούμενο σε ελληνικούς και λατινικούς χαρακτήρες με την εξής παράσταση:

Σε ερώτημα:
Κώδικας:
Έλεγχος: StrComp([Text1];UCase(Replace(Replace(Replace([Text1];"σ";"Σ");"ΐ";"Ϊ");"ΰ";"Ϋ"));0)=0
Επιστρέφει True/False (0/1)



Στη VB:
Κώδικας:
Dim IsUcase as Boolean

IsUcase  = StrComp([Text1],UCase(Replace(Replace(Replace([Text1],"σ","Σ"),"ΐ","Ϊ"),"ΰ","Ϋ")),0)=0
Κατάλληλη για υπολογιστές με μη ελληνική τοπική ρύθμιση συστήματος είναι η παρακάτω παράσταση:


Κώδικας:
    Dim IsUcase As Boolean

    IsUcase = StrComp([Text1], UCase(Replace(Replace(Replace([Text1], ChrW(962), ChrW(931)), ChrW(912), ChrW(938)), _
                                                                                        ChrW(944), ChrW(939))), 0) = 0
Καλή συνέχεια!

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
  #3  
Παλιά 26-02-14, 23:38
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 729
Προεπιλογή

Τάσο καλησπέρα,

Σε ευχαριστώ πολύ για την σημαντική βοήθεια. Θα δοικμάσω ένα απο όλα τα πιο πάνω φίλε μου και θα επανέλθω.

Φιλικά
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com
  #4  
Παλιά 27-02-14, 00:00
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 729
Προεπιλογή

Τάσο δοκίμασα με το πρώτο παράδειγμα (σε ερώτημα) και φαίνεται να δουλεύει φίλε μου. Να είσαι καλά και ευχαριστώ
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com
Κλειστό Θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Διαφορετική κεφαλίδα σε κεφάλαια q.mrk Word - Ερωτήσεις / Απαντήσεις 1 19-03-15 13:28
Μετατροπή από κεφαλαία σε πεζά.! γιώργοςΚ Word - Ερωτήσεις / Απαντήσεις 3 25-05-14 15:44
Μετατροπή Κεφαλαία - Μικρά stavross Access - Ερωτήσεις / Απαντήσεις 1 08-12-12 17:04


Η ώρα είναι 05:57.