Αντικατάσταση του σίγμα(σ) σε (ς) τελικό

[alex]

Καλησπέρα σε όλους τους φίλους.
Γνωρίζει κάποιος φίλος τι κώδικα θα χρησιμοποιήσω έτσι ώστε:
Όταν γράφω ένα κείμενο σε ένα Textbox και κάνω λάθος στο τέλος της λέξης αντί να βάλω το τελικό (ς) βάλω το σίγμα(σ) να μπορώ να το διορθώνω (αντικατάσταση) με το τελικό.
Σκέφτηκα πατώντας το κενό(Space) αν υπάρχει χαρακτήρας σε λέξη (εις) στο Textbox2 και βρίσκεται o χαρακτήρας στο τέλος της λέξης ή των λέξεων και είναι το σίγμα (σ) να αντικατασταθεί με το (ς) το τελικό .Στην ουσία να κάνει την διόρθωση.Ανεβάζω ένα δείγμα.

[γιώργοςΚ]

Καλημέρα Αλέξανδρε,

Το ίδιο ζήτημα κάποτε απασχόλησε και εμένα και το πρόβλημα λύθηκε με την βοήθεια φυσικά του φόρουμ.

Δές εδω

http://www.ms-office.gr/forum/access...o-pelaton.html

[alex]

Καλημέρα Γιώργο
Στο παράδειγμά σου αναφέρεται σε συγκεκριμένες λέξεις όνομα επίθετο που τραβά από πίνακα. Εδώ πρόκειτε για οποιαδήποτε λέξη ενός κειμένου που εάν υπάρχει λέξη που καταλήγει σε (σ) να αντικατασταθεί σε (ς) τελικό όχι με κουμπί (Convert)μετατροπέα αλλά με το (spase)κενό.Που ίσως είναι το πιο δύσκολο κομμάτι του κώδικα.

[kapetang]

Καλησπέρα

Αλέξανδρε, δες μια προσέγγιση στο συνημμένο.

1) Περιλαμβάνει τη συνάρτηση ReplaceEndSigma η οποία δέχεται ένα κείμενο και το επιστρέφει αλλάζοντας το τελικό [σ] σε [ς].

Το ερώτημα qryTest χρησιμοποιεί αυτή τη συνάρτηση.

2) Στη φόρμα F_text2 προστέθηκε κώδικας για το συμβάν AfterUpadate του πεδίου κειμένου.

Φιλικά/Γιώργος

[alex]

Καλησπέρα Γιώργο(Kapetang)

Τελικά με το κώδικα after update εκτός από το κενό όταν ακολουθεί τελεία ,κόμμα,άνω κάτω τελεία, ερωτηματικό κάνει την διόρθωση.Το μόνο που θα πρέπει να βάλω ένα κουμπί που να κάνει την ανανέωση.
Είναι σχεδόν αυτό που ήθελα και σε ευχαριστώ πολύ Γιώργο.

Εγώ είχα σκεφτεί ότι με το KeyDown ίσως θα γινόνταν
Για να επιτευχθεί κατευθείαν η αλλαγή με πάτημα το κενό και όχι με το after update ίσως με το KeyDown και προσθήκη τη συνάρτηση να το κάνει;
Θα κάνω δοκιμή και αυτή τη περίπτωση. Σ'ευχαριστώ πολύ φίλε kapetang για τη βοήθεια.

[Spirosgr]

Δεν έχω παρακολουθήσει με προσοχή το θέμα από την αρχή, αλλά με KeyDown - κενό τι θα γίνει στην τελευταία λέξη του κειμένου...
Αν υπάρχει σφάλμα θα παραμείνει, μιας και δεν θα έχουμε άλλο κενό διάστημα.

[alex]

Σπύρο καλημέρα, καλημέρα (Kapetang) και σε όλη τη παρέα

Έχεις δίκιο Σπύρο το δοκίμασα και υπάρχει σφάλμα .Το εφάρμοσα έτσι στη βάση μου έτσι όπως το σκέφτηκε ο Γιώργος(Kapetang) και δουλεύει καλά.
Να ρωτήσω κάτι άλλο.Θέλω στην ίδια βάση να γίνεται διόρθωση όταν μετά από τελεία (.) ξεκινά λέξη και το πρώτο γράμμα δεν είναι κεφαλαίο είναι το μικρό να γίνεται αντικατάσταση με το αντίστοιχο κεφαλαίο.
Θέλει πίνακα που να παίρνει τιμές από εκεί ή προγραμματιστικά. Ανεβάζω ένα παράδειγμα συνέχεια της προηγούμενης βάσης.Έχω προσθέσει ένα πίνακα με τα μικρά και μεγάλα γράμματα του αλφάβητου.

[kapetang]

Καλησπέρα

Αλέξανδρε, στη συνημμένη ΒΔ έχω προσθέσει τη συνάρτηση SmallToCapital, η οποία κάνει αυτό που ζητάς.

Δηλαδή μετατρέπει τον πρώτο χαρακτήρα, μετά από τελεία, σε κεφαλαίο.

Πρέπει όμως να σημειώσω ότι αυτό έχει και παρενέργειες.

Για παράδειγμα το [ κ.λ.π ] θα μετατραπεί σε [ κ. Λ. Π ], που μάλλον δεν θέλουμε.

Με άλλα λόγια η ζητούμενη αλλαγή διέπεται από πιο σύνθετο κανόνα από αυτόν που υπέδειξες.

Φιλικά/Γιώργος

[alex]

Καλησπέρα Γιώργο

Το πρόβλημα θα είναι στις εξής περιπτώσεις που πρέπει να πιάσουμε ότι θα πρέπει να ξεκινά
1) το πρώτο γράμμα της πρότασης με κεφαλαίο.

2)μετά απο {, [,<,#,@,%,&,$,€,( και καποια αλλα σημεία στίξεως.

Δεν την είδα τη βάση ακόμη σου το γράφω επειδή και εγώ το σκέφτηκα .Θα τη δω και θα επανέλθω.Πάντως την εφάρμοσα την προηγούμενη και μου δουλεύει άψογα.

[alex]

Καλησπέρα Γιώργο
Τελικά την εφάρμοσα στη δικιά μου βάση και δουλεύει πολύ καλά.Αναιρώ το προηγούμενο που έγραψα με το που ξεκινά η πρόταση το πρώτο γράμμα μετατρέπεται σε κεφαλαίο.Οπότε δεν χρειάζεται διόρθωση.
Από ότι βλέπω ούτε στα σημεία στίξεως χρειάζεται έλεγχο.
Μόνο στη περίπτωση που μου ανέφερες με το[κ.λ.π] σε [κ.Λ.Π] και στα Ονόματα και Επώνυμα.