Proper : Εντολη του excel σε access

[Ms-Office-Development Team]

Εδώ γίνεται ανασήτηση αν υπάρχει η PROPER του excel σε access καθώς και και η διάσπαση του Ονοματεπώνυμου σε 2 πεδία.
Σύντομη Απάντηση
[HIGHLIGHT="VB"]Public Function PROPER(str As String) As String
PROPER = StrConv(str, vbProperCase)
End Function [/HIGHLIGHT]

2η Απάντηση με λεπτομέρειες

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

Για την διάσπαση ενός Ονοματεπώνυμου σε Επώνυμο και Όνομα δίνουμε την συνάρτηση που πρέπει να περαστεί σε ένα Module της Access.
κώδικας:
[HIGHLIGHT="VB"]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[/HIGHLIGHT]

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

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