Copy Button (1 Viewer)

[kitty77]

I have a form and I would like to add a copy button. I would like to copy the contents of a field to the clipboard.
The field is called "Test"

Not sure how to do it...

Thanks.

 

[vba_php]

why can't the user just press "Ctrl+C" on the keyboard when the cursor's inside the field and the text is selected. they can also double click the text inside the field to highlight it, which paves the way for the keyboard shortcut.

 

[kitty77]

I'm trying to reduce the number of steps. So, a copy button would be perfect. Plus, I'm going to close the form after the copy button is pressed.
So, to answer you question, saving steps...

 

[pbaldy]

How about:

Send information to the Clipboard

Office VBA reference topic

docs.microsoft.com

 

[Gasman]

TBH, if all you are doing is copying one control value, just to put in the clipboad to paste elsewhere, Ctrl+C is as quick as anything I would have thought. I'm all for making things more efficient, but even I would use Ctrl+C, rathers than locate a button and press it.

Now, I have used a button in the past, but that was to copy a control value and paste it into another Access DB that we had to use to keep track of the cases we worked, so I completed most of the data in that other DB and the user just had to confirm.?

 

[sxschech]

This version has a few less lines of code.

Put this in the declarations section of the standard module where you will be placing the rest of the code. (After
Option Compare Database and Option Explicit but before any Function/Sub.

Const DATAOBJECT_BINDING As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"  'http://bytecomb.com/copy-and-paste-in-vba/

Then in the same module put the following (one is for copy and the other is for paste):

Public Sub CopyToClip(ByVal Expression As String)
'http://bytecomb.com/copy-and-paste-in-vba/
'Added doevents since sometimes it doesn't have the
'data to put in the clipboard, so hopefully a pause
'will solve that since when going into debug mode
'and clicking F5 code continues as if nothing was
'wrong
'20200106
    With CreateObject(DATAOBJECT_BINDING)
        .SetText Expression
        DoEvents
        .PutInClipboard
    End With
End Sub
 
Public Function PasteFromClip() As String
'http://bytecomb.com/copy-and-paste-in-vba/
    With CreateObject(DATAOBJECT_BINDING)
        .GetFromClipboard
        PasteFromClip = .GetText
    End With
End Function

In your form code something like this:

CopyToClip (Me.txtTest)

 

[Dreamweaver]

If you check out the link below I do that a lot on the style manager setup form
On my tab at moment but think its something like
Set focus to control to be copied
Docmd.runcommand accmdcopy
Check the link in my signature bottom link

Mick

 

[pbaldy]

That's what the code in the link I posted looks like.

 

[Dreamweaver]

That's what the code in the link I posted looks like.

Sorry didn't see your link

 

[sxschech]

Something to consider, depending on the application, the code in post #6 can be run without the need to set focus to the object being copied

 

[Dreamweaver]

Think I would always go with the simple sollution unless what I was doing needed a more complex sollution

mick