Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Proper : Εντολη του excel σε access

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 06-02-09, 13:08
Όνομα: Ηλιάδης Κωνσταντίνος
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 13-12-2008
Περιοχή: Chicago
Μηνύματα: 119
Προεπιλογή Proper : Εντολη του excel σε access

ΕΔΩ ΓΙΝΕΤΑΙ ΑΝΑΖΗΤΗΣΗ ΑΝ ΥΠΑΡΧΕΙ Η PROPER ΤΟΥ EXCEL ΣΕ ACCESS ΚΑΘΩΣ ΚΑΙ Η ΔΙΑΣΠΑΣΗ ΤΟΥ ΟΝΟΜΑΤΕΠΩΝΥΜΟΥ ΣΕ 2 ΠΕΔΙΑ
ΑΠΑΝΤΗΣΗ ΣΥΝΤΟΜΗ
Public Function PROPER(str As String) As String
PROPER = StrConv(str, vbProperCase)
End Function
ΑΠΑΝΤΗΣΗ 2η ΜΕ ΛΕΠΤΟΜΕΡΕΙΕΣ

Η δυνατότητα να εμφανίζονται τα γράμματα από κεφαλαία σε μικρά γίνεται με την τιμή < που θα το βάλετε στην ιδιότητα Format του αντικειμένου σου στην Φόρμα. Έτσι οτιδήποτε καταχωρείς αυτό θα ΕΜΦΑΝΙΖΕΤΑΙ δεν θα καταχωρείται όμως με μικρά γράμματα.
Για να καταχωρείται με μικρά γράμματα θα πρέπει στο Event AfterUpdate του αντικειμένου text που θα εισάγετε εκεί την τιμή να βάλετε τον κώδικα
κώδικας:
me.text= Format(Me.Text, "<")

Για την διάσπαση ενός Ονοματεπώνυμου σε Επώνυμο και Όνομα δίνουμε την συνάρτηση που πρέπει να περαστεί σε ένα Module της Access.
κώδικας:

Public Function FSplit(StrFlName As String)
Dim StrFName, StrLName As String, SplitPos As Variant
SplitPos = InStr(1, StrFlName, " ")
StrLName = Left(StrFlName, SplitPos - 1)
StrFName = Right(StrFlName, Len(StrFlName) - SplitPos)
End Function



Επεξηγούμε :
FSplit το όνομα της συνάρτησης με παράμετρο που πρέπει να εισάγουμε το Ονοματεπώνυμο.
Instr ψάχνει ξεκινώντας από την θέση 1 να ψάξει για το KENO (Θεωρούμε ότι το Ονοματεπώνυμο χωρίζεται με ένα κενό)
Επιστρέφει την Θέση και παίρνουμε τα αριστερά του κειμένου που θεωρούμε ότι είναι το Επώνυμο τόσες θέσεις -1 για να μην πάρουμε και το κενο΄.
Και από δεξιά παίρνουμε χαρακτήρες όσο είναι όλο το κείμενο - (μείον) την θέση που βρέθηκε το κενό ώστε να μην ξαναπάρουμε το Επώνυμο

Λειτουργεί με Συνάρτηση αλλά μπορούμε και με ρουτίνα να το κάνουμε έτσι ώστε να επιστρέψει η ρουτίνα με Byref και τις 2 τιμές δηλαδή Επώνυμο και Όνομα. Με 2 συνάρτησεις επιστρέφει η μία συνάρτηση τιμή για επώνυμο και μία άλλη για Όνομα. Έτσι οι συναρτήσεις μπορούν να χρησιμοποιηθούν και σε ερώτημα που θα σπάει το κείμενο σε Ονοματεπώνυμο.
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
DelayTime σε εντολή γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 7 05-07-16 21:44
Εντολή Select All γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 5 23-03-16 16:25
Excel σε Access skomat Access - Ερωτήσεις / Απαντήσεις 4 31-05-12 17:24
[Συναρτήσεις] UPPER LOWER και PROPER εσείς τι λέτε ? gr8styl Excel - Ερωτήσεις / Απαντήσεις 6 27-02-10 00:35
Proper : Εντολη του excel σε access Ms-Office-Development Team Access - Tips & Tricks 0 11-11-09 10:42


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