freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.

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


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [5 Μηνύματα]      Bookmarks Tags: excelaccess Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
NHMERTIS


Μέλος από: 27 Απρ 2007
Μηνύματα: 10

View users profile
ΜήνυμαΣτις: 23 Σεπ 2008 19:01    Θέμα: Proper : υπαρχει αυτη η εντολη του excel σε access ?
Περιγραφή θέματος: Proper : υπαρχει αυτη η εντολη του excel σε access ?
Απάντηση με παράθεση  Mark this post and the followings unread

καλησπερα

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

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

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

Μέλος από: 13 Απρ 2008
Βοηθήματα: 3
Μηνύματα: 224


View users profile Visit posters website
ΜήνυμαΣτις: 23 Σεπ 2008 20:15    Θέμα: Re: Proper : υπαρχει αυτη η εντολη του excel σε access ?
Περιγραφή θέματος: Proper : υπαρχει αυτη η εντολη του excel σε access ?
Απάντηση με παράθεση  Mark this post and the followings unread

NHMERTIS ανέφερε:
καλησπερα

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

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

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


Φίλε NHMERTIS,

Η δυνατότητα να εμφανίζονται τα γράμματα από κεφαλαία σε μικρά γίνεται με την τιμή < που θα το βάλεις στην ιδιότητα 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 συνάρτησεις επιστρέφει η μία συνάρτηση τιμή για επώνυμο και μία άλλη για Όνομα. Έτσι οι συναρτήσεις μπορούν να χρησιμοποιηθούν και σε ερώτημα που θα σπάει το κείμενο σε Ονοματεπώνυμο.
Αν θέλεις μου στέλνεις την βάση σου για να το εφαρμόσω σε περίπτωση που δεν κατάλαβες τι εννοώ.

Φιλικά

kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
vassilism


Μέλος από: 17 Μαρ 2007
Βοηθήματα: 7
Templates: 1
Scripts: 4
Μηνύματα: 256+


View users profile Visit posters website
ΜήνυμαΣτις: 24 Σεπ 2008 00:40    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

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

_________________
Αγγελίες - Aggelia.eu
NHMERTIS


Μέλος από: 27 Απρ 2007
Μηνύματα: 10

View users profile
ΜήνυμαΣτις: 24 Σεπ 2008 10:42    Θέμα: Re: Proper : υπαρχει αυτη η εντολη του excel σε access ?
Περιγραφή θέματος: Proper : υπαρχει αυτη η εντολη του excel σε access ?
Απάντηση με παράθεση  Mark this post and the followings unread

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



Φίλε NHMERTIS,

Η δυνατότητα να εμφανίζονται τα γράμματα από κεφαλαία σε μικρά γίνεται με την τιμή < που θα το βάλεις στην ιδιότητα 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 συνάρτησεις επιστρέφει η μία συνάρτηση τιμή για επώνυμο και μία άλλη για Όνομα. Έτσι οι συναρτήσεις μπορούν να χρησιμοποιηθούν και σε ερώτημα που θα σπάει το κείμενο σε Ονοματεπώνυμο.
Αν θέλεις μου στέλνεις την βάση σου για να το εφαρμόσω σε περίπτωση που δεν κατάλαβες τι εννοώ.

Φιλικά

kon73[/quote]
dva_dev
Script Master

Μέλος από: 16 Σεπ 2005
Μηνύματα: 256+

View users profile Visit posters website
blog deviantART facebook linkedin 
ΜήνυμαΣτις: 24 Σεπ 2008 19:47    Θέμα: Re: Proper : υπαρχει αυτη η εντολη του excel σε access ?
Περιγραφή θέματος: Proper : υπαρχει αυτη η εντολη του excel σε access ?
Απάντηση με παράθεση  Mark this post and the followings unread

NHMERTIS ανέφερε:
...θα ηθελα τα φωτα σας. σε access προσπαθω να μετατρεψω τα γραμματα ενος πεδιου απο κεφαλαια σε μικρα...

NHMERTIS ανέφερε:
...στο excel αυτο γινεται με την εντολη proper


NHMERTIS θα έλεγα ότι τα λες μπερδεμένα. Τελικά θέλεις να τα μετατρέψεις σε μικρά ή σε proper? I have a question...

Το proper του excel μπορεί να φτιαχτεί κάπως έτσι:
κώδικας:
Public Function PROPER(str As String) As String
    PROPER = StrConv(str, vbProperCase)
End Function
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [5 Μηνύματα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access


Σχετικά θέματα
 Θέματα   Απ/σεις   Αποστολέας   Τελευταίο μήνυμα 
Δημιουργία Βάσης Δεδομένων MS Access με αντιστοιχιση σε γραφικό στοιχείο 1 Charalampos77 22 Ιουλ 2016 13:22
cordis Εμφάνιση τελευταίου μηνύματος
 
Τώρα είναι 11 Δεκ 2016 13:47 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos