Office: Leerzeichen abschließend im String

Hallo,
ich habe hier eine DB, in der sich viele Leute textlich verwirklichen können. Teilweise mit unangenehmen Flüchtigkeitsfehlern (Montuer statt Monteur z.B.).
Nun möchte ich, dass die schlimmsten Wortschöpfungen durch eine Funktion korrigiert werden.
Ich schicke im Ereignis „nach Aktualisierung” das soeben beschriebene Textfeld durch eine Korrekturfunktion.
Die Funktion bekommt Ihre Suchbegriffe durch eine eigene Tabelle. Allerdings habe ich es noch nicht hinbekommen, die Zeichenfolge „( ” (KlammerAuf & Leerzeichen) als Suchwort einzubauen, im Feld wird das Leerzeichen verschluckt.
Gebt Ihr mir da mal ein paar Tipps?
Gruß
Doming

 

Hallo Doming,

na, da hast Du Dir ja was vorgenommen......
Reicht die Standardprüfung da nicht? Soweit ich weiß kann man da auch eigene Begriffe zufügen.
Überprüfen auf Rechtschreibfehler in Access - Microsoft-Support

Kleine Ergänzung

Code:

Me!Textfeldname.SpellCheck = True

 

Jo, an die MS-Autokorrektur habe ich auch schon gedacht. Aber dann darf ich erstmal die ganzen Fachbegriffe eingeben, sonst killen mich die User, weil sie dann ihre eigenen Texte nicht mehr lesen können.
Für mein Problem mit dem Leerzeichen hast Du also keine Idee?

 

...Der Code ist bei mir im Einsatz:

Code:

Private Sub TippTextDeutsch_Exit(Cancel As Integer)

        With Me.TippTextDeutsch
            .SetFocus
            If Len(.Value) > 0 Then
              .SelStart = 1
              .SelLength = Len(.Value)
              DoCmd.RunCommand acCmdSpelling
              .SelLength = 0
            End If
        End With
End Sub

 

Ich meine nicht die Autokorrektur.... Das ist die Office Rechtschreibprüfung.

Mit dem Leerzeichen müsste man sich das mal sehen. Zusätzlich in Hochkomme einschließen oder als Chr-Zeichen explizit übergeben.

p.s. zu dem anderen Thread habe ich im Moment auch keine weitere Idee....

 

ich habe das Problem umgangen.
Statt des „( ” schreibe ich jetzt in die Korrekturtabelle „(ööö” und in der Korrekturfunktion ersetze ich vor dem Textvergleich das ööö durch ein Leerzeichen

Code:

Public Function Korrigieren(Quelle As Object)
 Dim Txt As String, Vergleich As String, RSKorr As DAO.Recordset
    If IsNull(Quelle.Value) Then Exit Function
    Txt = Quelle.Value
    Set RSKorr = CurrentDb.OpenRecordset("SELECT * FROM Replatz")
    Do Until RSKorr.EOF
        If InStr(RSKorr!Quelle, "ööö") Then
            Vergleich = Replace(RSKorr!Quelle, "ööö", " ", 1)
        Else
            Vergleich = RSKorr!Quelle
        End If
        If InStr(Txt, Vergleich) Then
            Txt = Replace(Txt, Vergleich, RSKorr!Korrekt, 1)
        End If
        RSKorr.MoveNext
    Loop
    RSKorr.Close
    Set RSKorr = Nothing
    Quelle.Value = Txt
End Function

Danke für das Gedankenmachen