Thema Datum  Von Nutzer Rating
Antwort
Rot Textboxen (Inhalt) in Formular bearbeiten
09.08.2018 16:45:50 Gast89670
NotSolved
11.08.2018 16:40:59 Gast60903
NotSolved
11.08.2018 17:32:24 Gast85608
NotSolved
13.08.2018 08:25:27 Gast53951
NotSolved
13.08.2018 08:27:44 Gast16349
NotSolved

Ansicht des Beitrags:
Von:
Gast89670
Datum:
09.08.2018 16:45:50
Views:
102
Rating: Antwort:
  Ja
Thema:
Textboxen (Inhalt) in Formular bearbeiten

Hallo,

ich habe in einer Word-*.dotm ein selbstgebautes Formular, das Benutzereingaben abfragt und diese dann in das Dokument überträgt. Klappt auch super.

Jetzt wollte ich aber eine automatische Fehlerkorrektur einbauen; viele User (DAUs...) schaffen es immer wieder, unnötige Leerzeichen und Absätze im Eingabeformular unerzubringen. Diese verunstalten dann das Dokument. Leider funktioniert es nicht... - aber warum? Hier der entsprechende Codeschnipsel:

      Dim Eingabefeld As Control
    
      For Each Eingabefeld In Controls
        If Eingabefeld.Name Like "txt*" Or Eingabefeld.Name Like "cbo*" Then
            Eingabefeld.Text = Trim(Eingabefeld.Text)   ' Leerzeichen vor/nach Text weg.
            If Len(Eingabefeld.Text) > 0 Then           ' Leere Felder ausschließen.
                Do While Left(Eingabefeld.Text, 1) = vbNewLine  ' Absatzmarke vor Text.
                    Eingabefeld.Text = Right(Eingabefeld.Text, Len(Eingabefeld.Text - 1))
                Loop
            End If
            If Len(Eingabefeld.Text) > 0 Then   ' Es könnte *jetzt* ja leer sein...
                Do While Right(Eingabefeld.Text, 1) = vbNewLine ' Absatzmarke nach Text.
                    Eingabefeld.Text = Left(Eingabefeld.Text, Len(Eingabefeld.Text - 1))
                Loop
            End If
        End If
    Next

Text- und Comboboxen haben selbstverständlich Namen, die mit txt oder cbo beginnen.

Weder werden Leerzeichen entfernt noch Absatzmarken.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Textboxen (Inhalt) in Formular bearbeiten
09.08.2018 16:45:50 Gast89670
NotSolved
11.08.2018 16:40:59 Gast60903
NotSolved
11.08.2018 17:32:24 Gast85608
NotSolved
13.08.2018 08:25:27 Gast53951
NotSolved
13.08.2018 08:27:44 Gast16349
NotSolved