Hallo,
wie mache ich es nochmal wenn ein Textfeld sich automatisch vergrößern soll, wenn der Text nicht passt?
Access Datenbank 2003
Gruß
Erika
Hallo,
die Eigenschaften „Vergrößerbar“ und evtl. auch „Verkleinerbar“ auf Ja setzen…
Das wirkt sich aber nur bei Druckvorgängen aus…
Viele Grüße vom Bodensee
Franz , DF6GL
PS: Feedback erwünscht!
Das klappt ja leider nur beim Drucken.
Gibt es da keine andere Möglichkeit.
Gruß
Erika
Hallo,
Das klappt ja leider nur beim Drucken.
hab ich doch gesagt…
Gibt es da keine andere Möglichkeit.
Tja, vielleicht, wenn Du verrätst, WO und WANN Du das umsetzen willst…
Viele Grüße vom Bodensee
Franz , DF6GL
PS: Feedback erwünscht!
Also, ich habe in meinem Formular ein Textfeld „Buch“
Die Textfeldgröße möchte ich automatisch dem Text anpassen, damit ich auch den Text, der länger als das Feld ist, ansehen kann.
Hallo,
Also, ich habe in meinem Formular ein Textfeld „Buch“
Die Textfeldgröße möchte ich automatisch dem Text anpassen,
damit ich auch den Text, der länger als das Feld ist, ansehen
kann.
Wenn es sich um ein Endlosform handelt, geht es gar nicht.
Wenn es sich um ein Einzel-Form handelt, müßte anhand der Zeichzahl und unter Berücksichtigung von Zeilenschaltungen die voraussichtlichnötige Höhe des Textfeldes berechnet (Mach ich jetzt hier aber nicht) und eingestellt werden:
Sub Form_Current
Dim lngNeueHöhe As long
lngNeueHöhe =2000 ’ diesen Wert berechnen
Me!Textfeld.Height=lngNeueHöhe
End Sub.
Das GAnze wird aber kein befriedigendes und umfassend funktionierendes Ergebnis liefern.
Öffnen doch z. B. bei Doppelklick auf das Feld eine weiteres Form, das nur ein großes Textfeld besitzt und den Inhalt dann anzeigen kann. Oder öffne gleich die Zoombox mit
Viele Grüße vom Bodensee
Franz , DF6GL
PS: Feedback erwünscht!
DANKE DIR für deine Hilfe
Ich habs jetzt:
Test:
Private Sub Form_Current()
Forms!Formular1!Buch.SetFocus
Dim lngNeueHöhe As Long
Dim IngAlteHöhe As Long
If Me!Buch.SelLength > 10 Then
lngNeueHöhe = 2000 Me!Buch.Height = lngNeueHöhe
Else
lngAlteHöhe = 200 Me!Buch.Height = lngAlteHöhe
End If
Gruß aus Rheinbach
Erika