TKSoft-Online

Problemstellung:

MS hat es immer wieder versäumt eine Möglichkeit in Access zu schaffen
das man vernünftig mit der Zwischenablage arbeiten kann.
Im Notfall könnte man ja mit SendKeys arbeiten (pfui).

Es geht auch anders.

1. Im VBA-Editor im Menü -> Extras -> Verweise auf "Durchsuchen" klicken.
2. Dann im WinSystem-Verzeichnis die FM20.dll suchen und auswählen.

3. Verweisfenster mit OK schliessen.

4. Code

Im Formularkopf diesen Code einfügen

Option Compare Database
Option Explicit

Dim clp As New DataObject

Jetzt nur ein einfaches Bsp.
Das Formular hat 2 Textfelder (Text0 und Text2) sowie
2 Buttons (cmd_Copy und cmd_Paste)

Im Formular soll der Text das Feld Text0 ind das Feld Text2 kopiert werden.

Private Sub cmd_Copy_Click()
    Dim sData As String
    sData = Me.Text0
    With clp
        .SetText sData
        .PutInClipboard
    End With
End Sub

Private Sub cmd_Paste_Click()
    Dim sData As String
    With clp
        .GetFromClipboard
        sData = .GetText
        Me.Text2 = sData
    End With
End Sub

So das wars auch schon.
Wie gesagt das ist nur ein einfaches Bsp.
Richtig Sinn macht es erst wenn die Zwischenablage in der ganzen DB zur Verfügung steht.

Dann solltet Ihr ein neues Modul erstellen und in den Kopf schreiben:

Option Compare Database
Option Explicit

Public clp As New DataObject

Dann habt Ihr in der ganzen DB Zugriff.