Zwischenablage in MS-Access nutzen

1 1 1 1 1 1 1 1 1 1 Rating 4.00 (2 Votes)

Details: Kategorie: Codeschnipsel Sonstiges; Geschrieben von TommyK; Zugriffe: 24153

Problemstellung:

Nur für 32Bit Office Versionen

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 MSForms.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.

Dann habt Ihr in der ganzen DB Zugriff.