Ανανέωση ιστοσελίδας

[kon73]

ΕΔΩ ΓΙΝΕΤΑΙ ΑΝΑΖΗΤΗΣΗ ΑΝ ΥΠΑΡΧΕΙ Η 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 συνάρτησεις επιστρέφει η μία συνάρτηση τιμή για επώνυμο και μία άλλη για Όνομα. Έτσι οι συναρτήσεις μπορούν να χρησιμοποιηθούν και σε ερώτημα που θα σπάει το κείμενο σε Ονοματεπώνυμο.