| Hallo zusammen
Ich habe eine in einem Endlosformular eine Tabelle eingerichtet und möchte nun mit Doppelklick in das Memofeld ein grösseres Fenster öffnen ähnlich wie acCmdZoomBox, jedoch sollte man den Text formatieren können!
Ich habe in meinem Beispiel zwei Tabellen (Kontakte und MemoText) sowie drei Formulare (Kontakte, Memo_Unterformular und Memo Zoom)! Im Formular Kontakte ist das Memo_Unterformular integriert! Wenn ich nun im "Memo_Unterformular" in das Memofeld klicke öffnet sich das "Memo Zoom" Fenster. Das ganze bewerkstellige ich mit dem Code:
Private Sub Memotext_DblClick(Cancel As Integer)
If IsNull(Me!Datum) Then
Me!Datum = Date
End If
DoCmd.OpenForm "Memo Zoom", , , "ID=" & Me!ID
End Sub
Leider funktioniert mein Zoomfenster nicht richtig! Egal in welches Fenster ich klicke, es wird immer nur der Inhalt des ersten Memofelds angezeigt!
Ich vermute, dass der Fehler bei "DoCmd.OpenForm "Memo Zoom", , , "ID=" & Me!ID" liegt ich müsste da noch einen zweiten Filter zugeben können, wie z.B. ""MemoNummer=" & Me!MemoNummer" aber das geht nicht (Syntaxfehler)
Wer kann mir helfen?
Anhänge ---------------- Kontakte-2007.zip (196KB - 1 downloads)
|