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

[Jim]

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

[mdragon]

Καλησπέρα,

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


Μάρω

[editolis]

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

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

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



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



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

[Jim]

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

[editolis]

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

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

[stavros2244]

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

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

Ευχαριστώ

[Jim]

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

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

[stavros2244]

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

[mdragon]

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



Φιλικά,
Μάρω

[Tasos]

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

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

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

Φιλικά

Τάσος