[alex]

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

Private Sub Text2_AfterUpdate()
'Κώδικας για να κάνει ανανέωση το πλαίσιο κειμένου για την αντικατάσταση του (σ) σε (ς) τελικό
    Dim s As String, EndChars As Variant, i As Long, P As Variant
    If Nz(Me.Text2, "") <> "" Then
        s = Trim(Me.Text2) & ""
        'Χαρακτήρες μετά από μία λέξη
        EndChars = Array(",", ".", ";", ":", "·", " ")
        For i = 0 To UBound(EndChars)
            s = Replace(s, "σ" & EndChars(i), "s" & EndChars(i))
        Next
        Me.Text2 = s
    End If
   
    If Nz(Me.Text2, "") <> "" Then
        P = Split(Trim(Me.Text2), ".")
        For i = 0 To UBound(P)
            P(i) = Trim(P(i))
            If Len(P(i)) > 1 Then
                P(i) = UCase(Left(P(i), 1)) & Mid(P(i), 2)
            Else
                P(i) = UCase(P(i))
            End If
        Next
        Me.Text2 = Join(P, ". ")
        'SmallToCapital = Join(P, ". ")
        ''Replace(UCase([Textbox2]);"ς";"Σ")
    End If
End Sub

Στη παραπάνω συνάρτηση πως μπορεί να εφαρμοστεί(να ενσωματωθεί στη ρουτίνα και όχι στο ερώτημα) ο τύπος συνάρτησης του ερωτήματος ώστε να μετατρέπονται σε κεφαλαία.Ο τύπος συνάρτησης ήταν: AllCapital: Αντικατάσταση(UCase([Text2]);"ς";"Σ")