Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Αφαίρεση τελευταίου χαρακτήρα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/546-afairesi-teleytaioy-xaraktira.html)

Jim 14-04-10 12:05

Αφαίρεση τελευταίου χαρακτήρα
 
Καλησπέρα σε όλους
Θα ήθελα την βοήθειά σας. Έχω δύο φόρμες στην μία περνώ τα στοιχεία των υπαλλήλων όπου ένα από αυτά είναι το πεδίο [fldFullName] Το οποίο περιέχει επώνυμα που καταλήγουν σε ( ς ) π.χ. Καραμανωλάκης , Ζαγωράκης πώς γίνεται Στην δεύτερη φόρμα πού ζητώ κάποιο από αυτά τα ονόματα να καταχωρείται στο αντίστοιχο πεδίο της δεύτερης φόρμας αλλά χωρίς το τελευταίο γράμμα το ς
Φιλικά Δημήτρης

mdragon 14-04-10 12:42

Καλησπέρα,

μπορείς να δοκιμάσεις αυτό:
Left([ΟνομαΠεδίου];InStr([ΟνομαΠεδίου];"ς")-1)


Μάρω

editolis 14-04-10 15:07

Δοκιμασε στο OnCurrent της 2ης Φορμας
να βαλεις αυτον τον κωδικα...

Οπου LResult το πεδιο σου

'========================================

LResult = Replace ([fldFullName], "ς", "")

'=======================================

Jim 15-04-10 09:47

Καλημέρα σε όλους
 
Σε ευχαριστώ για την απάντηση πέζει μόνο όταν στο πεδίο υπάρχει το ΄ς ΄ όταν δενΥπάρχει Βγαίνει Invalid procedure or argument. Υπάρχει λύση?? Όσο για την απάντηση του Τόλι ΝΑΙ έπαιξε και στις δύο περιπτώσεις χωρίς το Dim LResult As String τι δηλώνουμε με την προηγούμενη πρόταση Τόλι??? Εγώ πάντως οφείλω ένα μεγάλο ευχαριστώ και στους δύο… Όντος αν δεν ρωτούσα δεν θα μαθαίναμε…..Φιλικότατα Δημήτρης :drinks:

editolis 15-04-10 10:04

Χαιρομαι που ελυσες το προβλημα σου.

Το "Dim LResult As String" το εβαλα για να σου δειξω
πως θα το οριζες εαν εφτιαχνες δικο σου κωδικα.

stavros2244 01-05-10 18:17

Ωραίο θέμα αυτό.Μου χρειάστηκε και εμένα στη βάση μου. Τα ονόματα που καταχωρώ όμως είναι σε κεφαλαία.

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

Ευχαριστώ

Jim 01-05-10 19:16

Η απάντηση είναι
 
Στο μετά από ενημέρωση του πεδίου
a1 = Replace([a1], "Σ", " ")

Όπου [a1] είναι το πεδίο που καταχωρείς το Όνομα
Φιλικά Δημήτρης

stavros2244 01-05-10 20:44

Εάν το βάλω στην ιδιότητα της φόρμας onCurrent δουλεύει μια χαρά. Το πρόβλημα είναι ότι κόβονται και τα υπόλοιπα Σ που μπορεί να υπάρχουν στο όνομα. Πώς θα μπορούσα να το αποφύγω αυτό?

mdragon 01-05-10 23:13

Δοκιμάστε τον τύπο που έχω δώσει παραπάνω.
Δουλέυει και στα κεφαλαία και στα μικρά



Φιλικά,
Μάρω

Tasos 03-05-10 17:26

Καλησπέρα σε όλους!

Για την αφαίρεση του τελικού Σίγμα, σε κάθε περίπτωση θα δουλέψει ο παρακάτω κώδικας:

Κώδικας:

Private Sub Text1_AfterUpdate()
Dim txt$
    If Len(Nz(Me.Text1, vbNullString)) Then
        txt = Me.Text1
        If AscW(Right$(txt, 1)) = 962 Then Me.Text1 = Left$(txt, Len(txt) - 1)
    End If
End Sub

Φιλικά

Τάσος


Η ώρα είναι 18:56.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2