loop through dataset and add values to clipboard

[eatraas]

Hi,

i'm having difficulty with this. Messages often mention copying data from a form but does not work.

Looping through the recordset is not the problem , i want to copy the contents of a certain field to the clipboard and paste them somewhere else ( another application ).

dim rcs as recordset
set rcs = currentdb.openrecordset("pmo")

do untill rcs.eof

 ... put a field in te cliboard rcs!pmo

rcs.movenext
loop

I also need a way to empty the clipboard.

Thanks in advance

Erwin

 

[Cronk]

The only way to post from Access to the clipboard that I know, is using several API functions.

You can see some sample code here
http://web.sisgarbe.pt/sispub/WebShared/EXCEL/ClipboardFuncs/SampleExcelClipboardFunctions.zip

If it's for your use, and not automated user operation, an easy option is to debug.print to the immediate window and use copy/paste. Use debug.print null string in a loop to clear the immediate window.

 

[eatraas]

hi this is not working in Access, the vbaClipboard object is not known. I've copied all the code.

 

[Cronk]

You may need to modify if using 64 bit processor. I've not had occasion to use this functionality so can't help further.

 

[sxschech]

Here are some other clipboard examples, not sure if they will work for your situation...
From http://bytecomb.com/copy-and-paste-in-vba/

Public Sub CopyToClip(ByVal Expression As String)
'http://bytecomb.com/copy-and-paste-in-vba/
With CreateObject(DATAOBJECT_BINDING)
.SetText Expression
.PutInClipboard
End With
End Sub

Public Function PasteFromClip() As String
'http://bytecomb.com/copy-and-paste-in-vba/
With CreateObject(DATAOBJECT_BINDING)
.GetFromClipboard
Paste = .GetText
End With
End Function

Also there is this...

http://winbatch.hpdd.de/

And then look at the section on clipboard functions, there is one about emptying the clipboard.