Proper : υπαρχει αυτη η εντολη του excel σε access ?

Συζητήσεις για την τοπική βάση δεδομένων Access της Microsoft

Συντονιστές: Super-Moderators, WebDev Moderators

Απάντηση
NHMERTIS
Δημοσιεύσεις: 10
Εγγραφή: 27 Απρ 2007 12:31

Proper : υπαρχει αυτη η εντολη του excel σε access ?

Δημοσίευση από NHMERTIS » 23 Σεπ 2008 20:01

καλησπερα

θα ηθελα τα φωτα σας. σε access προσπαθω να μετατρεψω τα γραμματα ενος πεδιου απο κεφαλαια σε μικρα . γινεται ? στο excel αυτο γινεται με την εντολη proper

επισης ηθελα να ρωτησω αν μπορω σε πεδιο που εχω το ονοματεπωνυμο να το διαιρεσω σε δυο νεα πεδια στο ενα να παρει το ονομα και στο αλλο το επιθετο

ευχαριστω πολυ

Άβαταρ μέλους
kon73
Script Master
Δημοσιεύσεις: 224
Εγγραφή: 13 Απρ 2008 23:47
Επικοινωνία:

Proper : υπαρχει αυτη η εντολη του excel σε access ?

Δημοσίευση από kon73 » 23 Σεπ 2008 21:15

NHMERTIS έγραψε:καλησπερα

θα ηθελα τα φωτα σας. σε access προσπαθω να μετατρεψω τα γραμματα ενος πεδιου απο κεφαλαια σε μικρα . γινεται ? στο excel αυτο γινεται με την εντολη proper

επισης ηθελα να ρωτησω αν μπορω σε πεδιο που εχω το ονοματεπωνυμο να το διαιρεσω σε δυο νεα πεδια στο ενα να παρει το ονομα και στο αλλο το επιθετο

ευχαριστω πολυ
Φίλε NHMERTIS,

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

Κώδικας: Επιλογή όλων

me.text= Format&#40;Me.Text, "<"&#41;
Για την διάσπαση ενός Ονοματεπώνυμου σε Επώνυμο και Όνομα δίνω την συνάρτηση που πρέπει να περαστεί σε ένα Module της Access.

Κώδικας: Επιλογή όλων

Public Function FSplit&#40;StrFlName As String&#41;
Dim StrFName, StrLName As String, SplitPos As Variant
    SplitPos = InStr&#40;1, StrFlName, " "&#41;
    StrLName = Left&#40;StrFlName, SplitPos - 1&#41;
    StrFName = Right&#40;StrFlName, Len&#40;StrFlName&#41; - SplitPos&#41;
End Function
Επεξηγώ :
FSplit το όνομα τη συνάρτησης με παράμετρο που πρέπει να εισάγουμε το Ονοματεπώνυμο.
Instr ψάχνει ξεκινώντας από την θέση 1 να ψάξει για το KENO (Θεωρούμε ότι το Ονοματεπώνυμο χωρίζεται με ένα κενό)
Επιστρέφει την Θέση και παίρνουμε τα αριστερά του κειμένου που θεωρούμε ότι είναι το Επώνυμο τόσες θέσεις -1 για να μην πάρουμε και το κενο΄.
Και από δεξιά παίρνουμε χαρακτήρες όσο είναι όλο το κείμενο - (μείον) την θέση που βρέθηκε το κενό ώστε να μην ξαναπάρουμε το Επώνυμο

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

Φιλικά

kon73
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
Εικόνα

Άβαταρ μέλους
vassilism
Δημοσιεύσεις: 1950
Εγγραφή: 17 Μαρ 2007 14:47
Επικοινωνία:

Proper : υπαρχει αυτη η εντολη του excel σε access ?

Δημοσίευση από vassilism » 24 Σεπ 2008 01:40

Άσχετα με το θέμα.
kon είσαι φοβερός.
Μπράβο σου :respect:

NHMERTIS
Δημοσιεύσεις: 10
Εγγραφή: 27 Απρ 2007 12:31

Proper : υπαρχει αυτη η εντολη του excel σε access ?

Δημοσίευση από NHMERTIS » 24 Σεπ 2008 11:42

καταρχην ΕΥΧΑΡΙΣΤΩ ΠΑΡΑ ΠΟΛΥ ΓΙΑ ΤΙΣ ΟΔΗΓΙΕΣ
δευτερον ειμαι φιλη
και τριτον θα καθησω να τα εφαρμοσω και θα εχεις νεωτερα μου.
και παλι ευχαριστω



Φίλε NHMERTIS,

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

Κώδικας: Επιλογή όλων

me.text= Format&#40;Me.Text, "<"&#41;
Για την διάσπαση ενός Ονοματεπώνυμου σε Επώνυμο και Όνομα δίνω την συνάρτηση που πρέπει να περαστεί σε ένα Module της Access.

Κώδικας: Επιλογή όλων

Public Function FSplit&#40;StrFlName As String&#41;
Dim StrFName, StrLName As String, SplitPos As Variant
    SplitPos = InStr&#40;1, StrFlName, " "&#41;
    StrLName = Left&#40;StrFlName, SplitPos - 1&#41;
    StrFName = Right&#40;StrFlName, Len&#40;StrFlName&#41; - SplitPos&#41;
End Function
Επεξηγώ :
FSplit το όνομα τη συνάρτησης με παράμετρο που πρέπει να εισάγουμε το Ονοματεπώνυμο.
Instr ψάχνει ξεκινώντας από την θέση 1 να ψάξει για το KENO (Θεωρούμε ότι το Ονοματεπώνυμο χωρίζεται με ένα κενό)
Επιστρέφει την Θέση και παίρνουμε τα αριστερά του κειμένου που θεωρούμε ότι είναι το Επώνυμο τόσες θέσεις -1 για να μην πάρουμε και το κενο΄.
Και από δεξιά παίρνουμε χαρακτήρες όσο είναι όλο το κείμενο - (μείον) την θέση που βρέθηκε το κενό ώστε να μην ξαναπάρουμε το Επώνυμο

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

Φιλικά

kon73[/quote]

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

Proper : υπαρχει αυτη η εντολη του excel σε access ?

Δημοσίευση από dva_dev » 24 Σεπ 2008 20:47

NHMERTIS έγραψε:...θα ηθελα τα φωτα σας. σε access προσπαθω να μετατρεψω τα γραμματα ενος πεδιου απο κεφαλαια σε μικρα...
NHMERTIS έγραψε:...στο excel αυτο γινεται με την εντολη proper
NHMERTIS θα έλεγα ότι τα λες μπερδεμένα. Τελικά θέλεις να τα μετατρέψεις σε μικρά ή σε proper? :question:

Το proper του excel μπορεί να φτιαχτεί κάπως έτσι:

Κώδικας: Επιλογή όλων

Public Function PROPER&#40;str As String&#41; As String
    PROPER = StrConv&#40;str, vbProperCase&#41;
End Function

Απάντηση

Επιστροφή στο “MS Access”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες