Höher der Zoombox einstellen

[tismo]

Hallo zusammen,

ich arbeite an einem neuen Projekt und habe in einem Unterformular ein Endlosformula mit Memofeld gesetzt. Soweit ich weiß sind Memofelder unendlich große Textfelder. In diesem Memofeld werden Positionsbeschreibungen erfasst, die teilweise etliche Zeilen groß sein können. Leider kann das Memofeld seine Größe im Endlosformular nicht anpassen. Ich habe auch schon den Link http://www.lebans.com/autosize_textbox.htm ausprobiert. Funktioniert zwar, allerdings werden dann alle Memofelder im Endlosformular gleich vergrößert. Das macht keinen Sinn, wenn die meisten Positionen nur weinige Zeilen groß sind und eine Position über 20 Zeilen groß ist.

Die zweite Idee war die Zoombox, die durch einen Doppelklick im Memofeld erscheint in der Höhe zu verändern.
Hat dazu jemand einen Idee wo ich die Höhe verändern kann ?

Die Dritte Idee ist, dass ich neben dem Endlosformular ein ungebundenes Textfeld mit maximaler Höhe als Monitor einsetze. Wenn ich also auf das Memofeld gehe, sollte der gesamte Text im 'Monitor' erscheinen. Hat jemand hierzu eine Idee, wie ich diesen 'Monitor' als vba erstelle?

Gruß,
Lars

[Beaker s.a.]

Hallo Lars,
Luftcode:

Code [Auswählen] Erweitern

Private Sub DeinMemoFeld_GotFocus()
    Me.DeinMonitorFeld.Visible = True
    Me.DeinMonitorFeld.Value = Me.DeinMemoFeld
End Sub
Private Sub DeinMemoFeld_LostFocus()
    Me.DeinMonitorFeld.Visible = False
End Sub
gruss ekkehard

[tismo]

Hallo Ekkehard,

Danke für die Hilfe, leider funktioniert es nicht, wahrscheinlich, weil der Monitor im Formular Erfassung und der Positionstext im Unterformular Positionen ist. Kannst du mir noch mal mit den Formularen helfen ?

[Beaker s.a.]

Code [Auswählen] Erweitern

Me.DeinMonitorFeld.Value = Me.DeinUfoControl.Form.DeinMemoFeld
Lese wegen dem Bezug zum Ufo vielleicht auch mal dies
http://www.donkarl.com?FAQ4.2

[Lachtaube]

Schau Dir A better ZoomBox von Tom van Stiphout an.