|
Hallo Markus,
ganz so einfach ist es nicht. Das DoCmd Objekt kann man für so etwas verwenden, aber das geht natürlich nur, wenn das entsprechende Steuerelement den Fokus hat und der Text selektiert ist. Das ist für so eine Problemstellung nicht wirklich hilfreich.
Hier mal ein Workaround für den Zugriff auf die Zwischenablage:
In ein Modul:
Private Const DATAOBJECT_BINDING As String = _
"new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
Public Sub Copy(ByVal Expression As String)
With CreateObject(DATAOBJECT_BINDING)
.SetText Expression
.PutInClipboard
End With
End Sub
Public Function Paste() As String
With CreateObject(DATAOBJECT_BINDING)
.GetFromClipboard
Paste = .GetText
End With
End Function
Dann in deinem Formular die Funktion, welche beim Klick aufgerufen werden soll:
Public Function CopyToClipboard() As Variant
Copy Screen.ActiveControl.Value
End Function
und zuletzt der Aufruf in den Eigenschaften/Ereignisse der Textbox "Beim Klicken;"
[code]=CopyToClipboard()[/code]
eintragen.
Der Workaround funktoniert nicht immer unter allen Umständen, aber für den Anfang sollte das reichen. In einem Produktivsystem würde man auf eine API-Lösung zurückgreifen, was für einen Anfänger sicherlich nicht mehr nachvollziehbar ist.
|