[alex]

Καλησπέρα σε όλους τους φίλους
θέλω να κάνω μια αντικατάσταση αριθμών σε πλαίσιο κειμένου με ορισμένες προυποθέσεις:
Είτε με after update είτε με κουμπί εντολής
1)Όταν μετά από τελεία ή κενό υπάρχει ο αριθμός 0 να γίνεται αντικατάσταση σε αριθμό 8
2) όταν πριν από τελεία .κόμμα, κενό ,θαυμαστικό ,ανω κατω τελεία , ερωτηματικό υπάρχει ο αριθμός 0 να γίνεται αντικατάσταση σε αριθμό 8.
εχω κάνει με την συνάρτηση trim αλλά μου xχτυπάει

Dim s As String, EndChars As Variant, i As Long
    's = 0
    If Nz(Me.TextBox2, "") <> "" Then
        s = Trim(Me.TextBox2) & " "
        'Χαρακτήρες μετά από μία λέξη
        EndChars = Array(",", ".", ";", ":", "•", " ")
        For i = 0 To UBound(EndChars)
            s = Replace(s, "8" & EndChars(i), "0" & EndChars(i))
        Next
        Me.TextBox2 = s
    End If

End Sub