In Memofeldern möchten Sie in einigen Fällen die Anzahl der eingegebenen Zeichen überwachen und damit sicherstellen, dass beispielsweise nicht mehr als 4.000 Zeichen erfasst werden. Der Informationsdienst Access_aktuell hat hier einen guten Tipp für Sie: Eine solche Überwachung lässt sich per VBA wie folgt realisieren:

1. Stellen Sie die Eigenschaft „Bei Taste“ des Memofeldes auf den Eintrag „[Ereignisprozedur]“ und klicken Sie auf die Schaltfläche mit den drei Punkten, um den VBA-Editor zu öffnen. Geben Sie die folgenden Anweisungen ein:
   
   Private Sub Texte_KeyPress(KeyAscii As Integer)
   If KeyAscii = 8 Then Exit Sub
   ElseIf Len(Me.Texte.Text) > 200 Then Beep
   MsgBox "Maximal 200 Zeichen möglich!"
   KeyAscii = 0
   End If
   End Sub
   
   Den Feldnamen „Texte“ ersetzen Sie dabei durch den Namen des in Ihrem Formular verwendeten Memofeldes und die Zahl „200“ durch die Anzahl der in Ihrem Memofeld erlaubten Zeichen.
   
   
2. Stellen Sie die Eigenschaft „Nach Aktualisierung“ des Memofeldes auf den Eintrag „[Ereignisprozedur]“, klicken Sie auf die Schaltfläche mit den drei Punkten, um den VBA-Editor zu öffnen, und geben Sie die folgenden Anweisungen ein:
   
   Private Sub Texte_AfterUpdate()
   If Len(Me.Texte.Text) > 200 Then Beep
   MsgBox "Maximal 200 Zeichen möglich!"
   Me.Texte = Left$(Me.Texte.Text, 200)
   End If
   End Sub
   
   Den Feldnamen „Texte“ ersetzen Sie dabei wieder durch den Namen des in Ihrem Formular verwendeten Memofeldes und die Zahl „200“ durch die Anzahl der in Ihrem Memofeld erlaubten Zeichen.
   
   Diese Anweisungen sorgen bei jedem Tastendruck bzw. beim Aktualisieren des Feldes für eine Überprüfung der Länge, zeigen gegebenenfalls eine Meldung an und eliminieren entweder einen Tastendruck durch die Zuweisung von „KeyAscii = 0“ oder kürzen den Text über „Me.Texte = Left$(Me.Texte.Text, 200)“ auf die gewünschte Anzahl Zeichen.