MS Access data into Clipboard

Question

Hi there,

I'm, using MS Access 2003 SP3 with winXP and i want to put some data into the clipboard using VB.

I have tried this:

Option Compare Database

Option Explicit

Dim MyData As DataObject

Private Sub CmdBoka_Click()

Set MyData = New DataObject

Dim Str As String, i As Integer

For i = 0 To Me.ValAnstNr.ListCount - 1

      If Me.ValAnstNr.Selected(i) = True Then

         Str = Str & Me.ValAnstNr.ItemData(i) & vbNewLine

      End If

    Next i

    MyData.SetText Str

    MyData.PutInClipboard ......

without success, Please help whats wrong?

Answer 1

You've got the wrong kind of DataObject - the one that belongs to XDocument instead of MSForms. Change the declaration

Dim MyData As DataObject

to

Dim MyData As MSForms.DataObject

and also use

Set MyData = New MSForms.DataObject

Answer 2

Perhaps a part of the problem i solved...

Now it's stuck on row "MyData.SetTextStr Str"

Error msg: Compile error - Method or data member not found

Answer 3

Does it work if you use

Set MyData = New MSForms.DataObject

Answer 4

Yes, I already have made that reference.

The error I get is : Compile error  - Invalid use of New keyword

Answer 5

It works when I try it. Have you set a reference to the Microsoft Forms 2.0 Object Library in Tools | References? You have to browse to find the DLL, it's C:\Windows\System32\FM20.dll.