collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 60
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 0

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 14032
  • stats Beiträge insgesamt: 67182
  • stats Themen insgesamt: 9062
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Memo-Feld Zeichenzahl limitieren  (Gelesen 751 mal)

Offline Carl

  • Access-Profi
  • **
  • Beiträge: 369
Memo-Feld Zeichenzahl limitieren
« am: Dezember 11, 2017, 21:48:09 »
Ich würde aus verschiedenen Gründen gern mit Memofeldern arbeiten, die Zeichenzahl aber auf ca. 500 begrenzen.

Ich habe Funktionen für das Formular gefunden, hätte aber gern eine tabellenseitige Begrenzung, Geht sowas?

Und wenn nein, wie macht man das Eurer Meinung nach am Elegantesten mit VBA für das Feld [Memobeispiel]?

Carl
« Letzte Änderung: Dezember 11, 2017, 22:42:33 von MzKlMu »
 

Offline MzKlMu

  • Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 7370
Re: Memo-Feld Zeichenzahl limitieren
« Antwort #1 am: Dezember 11, 2017, 22:06:46 »
Hallo,
siehe Bild.
« Letzte Änderung: Dezember 11, 2017, 22:42:46 von MzKlMu »
Gruß
Klaus
 
Folgende Mitglieder bedankten sich: Carl

Offline Carl

  • Access-Profi
  • **
  • Beiträge: 369
Re: Memo-Feld Zeichenzahl limitieren
« Antwort #2 am: Dezember 12, 2017, 13:13:42 »
Ah, vielen Dank.

Wann bzw. für welche Zwecke würdet Ihr denn die Option in diesem Fall auf Rich Text setzen?
 

Offline Carl

  • Access-Profi
  • **
  • Beiträge: 369
Re: Memo-Feld Zeichenzahl limitieren
« Antwort #3 am: Dezember 12, 2017, 13:51:11 »
Länge([Memofeld])< 501 funktioniert auf Tabellenebene,.

Nun möchte ich im Formular den Hintergrund bedingt rot formatieren, wenn BEI DER EINGABE die Zeichenzahl von 500 überschritten wird. im Netz habe ich nur eine Lösung für Excel gefunden, die eine Meldung ausgibt. Kann man da irgendwie eine bedingte Formatierung für den Hintergrund des Feldes im Formular draus machen?


Private Sub TextBox1_Change()
 If Len(TextBox1.Value) > 500 Then
 Range("A1") = Len(TextBox1.Value)
 Else
 Range("A1") = "Es reicht!! " & Len(TextBox1.Value)
 End If
 End Sub
« Letzte Änderung: Dezember 12, 2017, 15:36:58 von Carl »
 

Offline MzKlMu

  • Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 7370
Re: Memo-Feld Zeichenzahl limitieren
« Antwort #4 am: Dezember 12, 2017, 16:22:46 »
Hallo,
bedingte Formatierung müsste man probieren.
Aber Du kannst den Text begrenzen.
Z.B. so:
Private Sub Memofeld_Change()
   If Len(Me.Memofeld.Text) > 500 Then
        Me.Memofeld = Left(Memofeld.Text, 500)
        MsgBox "Habe fertig"
   End If
End Sub
Das .Text ist wichtig.
« Letzte Änderung: Dezember 12, 2017, 16:38:39 von MzKlMu »
Gruß
Klaus
 
Folgende Mitglieder bedankten sich: Carl

Offline Carl

  • Access-Profi
  • **
  • Beiträge: 369
Re: Memo-Feld Zeichenzahl limitieren
« Antwort #5 am: Dezember 12, 2017, 19:53:30 »
Hat auf Anhieb geklappt. Danke