Αφαίρεση τελευταίου χαρακτήρα

[stavros2244]

Δεν ξέρω γιατί αλλά δεν δουλεύει. Μήπως πρέπει να συμπεριλάβω κάποια συνάρτηση?Η να ενεργοποιήσω κάτι?

Ευχαριστώ.

[Tasos]

Καλημέρα Σταύρο!

Δεν ξέρω τι κάνεις γιατί δε βλέπω τη βάση σου.

Δες αν θέλεις ένα παράδειγμα στο συνημμένο παρακάτω.

Παράλληλα, αν έχεις χρόνο μελέτησε το συνημμένο: http://www.ms-office.gr/forum/access....html#post2608

Φιλικά

Τάσος

[stavros2244]

Μάλλον κατάλαβα τι φταίει. Η φόρμα μου είναι συνεχής. Το δοκίμασα με κανονικό text box και δουλεύει μια χαρά.

Με συνεχή φόρμα όμως δεν δουλεύει γιατί τραβάει τα ονόματα από έναν πίνακα. Μήπως θα μπορούσε να γίνει κάτι για να φεύγει για παράδειγμα ο τελευταίος χαρακτήρας από τον πίνακα κατευθείαν?

[Tasos]

Σταύρο, η φόρμα του παραδείγματος μου είναι συνεχής και το πεδίο txt1 είναι συνδεδεμένο με το αντίστοιχο πεδίο στον πίνακα οπότε:

Ότι συμβαίνει στο πεδίο της φόρμας, συμβαίνει και στο πεδίο του πίνακα.

Αν έχεις χρησιμοποιήσει το συμβάν Current(), δεν θα λειτουργήσει αφού η εγγραφή προς διόρθωση έχει ήδη προσπεραστεί.

Φιλικά

Τάσος

[stavros2244]

ΟΚ! Βρήκα τι έφταιγε..Δούλευε αλλά μόνο για τον πεζό χαρακτήρα
Ο δεκαδικός του Σ είναι το 931 ενώ του ς είναι το 962 που είναι και στο sample code.
Τώρα δουλεύει μια χαρά!

Ευχαριστώ πολύ για την βοήθεια

[stavros2244]

Έχω μία τελευταία ερώτηση..
Η φόρμα μου είναι συνεχής και διαβάζει τα ονόματα από έναν πίνακα με την φόρτωση αυτής. Πώς μπορώ με την φόρτωση να περνάει όλες τις εγγραφές της συνεχούς φόρμας και να αφαιρεί τον χαρακτήρα? Το afterupdate δεν λειτουργεί αλλά το onClick λειτουργεί. Που θα μπορούσα να βάλω το
Dim txt$
If Len(Nz(Me.Lastname, vbNullString)) Then
txt = Me.Lastname
If AscW(Right$(txt, 1)) = 931 Then Me.Lastname = Left$(txt, Len(txt) - 1)
End If

ώστε να λειτουργεί σε όλες τις εγγραφές της συνεχούς φόρμας χωρίς να κλικάρω σε κάθε πεδίο της εγγραφής για να αφαιρεθεί ο χαρακτήρας?

Ευχαριστώ

[Tasos]

Καλησπέρα!
Σταύρο, εξηγησε μου, είναι συνδεμένα τα πεδία σου με πεδία του πίνακα;

Τάσος

[stavros2244]

Το πεδίο Lastname της συνεχούς φόρμας είναι ουσιαστικά το πεδίο ενός πίνακα tblEmpl έτσι ώστε η συνεχής φόρμα εμφανίζει όλες τις καταχωρήσεις του πίνακα (μόνο το πεδίο Επώνυμο)

[Tasos]

Καλησπέρα!
Με την παρακάτω συνάρτηση μπορείς να αφαιρέσεις τα τελικά Σίγμα από το πεδίο
"Lastname" του πίνακα "tblEmpl":

Function RemoveAscW_962()
    Dim strSQL$
    strSQL = "Update [tblEmpl]  SET [Lastname ] = IIf(AscW(Right$([Lastname ], 1)) = 962," & _
             "Left$([Lastname ], Len([Lastname ]) - 1),[Lastname ])  WHERE [Lastname ] <> Null"
    CurrentDb.Execute strSQL
End Function

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

Φιλικά

Τάσος

[stavros2244]

Ευχαριστώ πολύ!Έβαλα την συνάρτηση στο onLoad της φόρμας μου και δουλεύει μια χαρά!

Ευχαριστώ πολύ!