How to copy a number to the clipboard--without hyphens?

[Nailati]

Greetings. Here's my situation: I have a library database containing hyphenated book numbers (TMINs). I often copy and paste these numbers into other programs. Some of these require the TMIN that I input to be hyphenated and some require it to be unhyphenated.



On my main publication info form, I have a button next to the TMIN that copies it (hyphens included) to the clipboard--works great. However, I would like a second button to copy it, but without the hyphens.

I know the hyphens can be removed with the Replace() function, but I'm not sure how to apply that to something that will not be displayed, only copied to the clipboard.

Here's the code for the button I have working (copies the TMIN as-is):

Private Sub BtnCopyTMIN_Click()
Me!FieldTMIN.SetFocus
DoCmd.RunCommand acCmdCopy
End Sub

Any ideas on how I can work the Replace() function in there, without changing my actual data? Thanks!

[orange]

I don't have acc2007, but I'd try

-adding a variable TMIN_NoHyphens
-TMIN_NoHyphens = Replace (Me.FieldTMIN,"-","")
and then copy that.

Just a guess/suggestion

[Nailati]

I don't have acc2007, but I'd try

-adding a variable TMIN_NoHyphens
-TMIN_NoHyphens = Replace (Me.FieldTMIN,"-","")
and then copy that.

Just a guess/suggestion

Thanks so much--that sent me down the right path. I found a (ugly but effective) solution to getting the variable onto the clipboard here. Basically I have to take the variable, stick it in a size 0 field on the form, set focus to that field, and then copy. This seems to work:

Private Sub BtnCopyTMIN2_Click()

Me!FieldTMIN.SetFocus
TMIN_NoHyphens = Replace(Me.FieldTMIN, "-", "")
Me.InvisibleBox = TMIN_NoHyphens
Me.InvisibleBox.SetFocus
DoCmd.RunCommand acCmdCopy

End Sub

Thanks again, I didn't even really know where to start.

[orange]

You are welcome. Glad you have it working.

[Nailati]

I just wanted to add something to this in case anyone has a similar situation.

The button wouldn't work if my cursor was already in the TMIN field. Or, if I'd highlighted some part of the TMIN, it would only copy that part.

I got around this by adding a line to the code telling it to focus on another field (at random) and then on the TMIN field. Ugly coding, I know! -- but at least it works.

Private Sub BtnCopyTMIN2_Click()

Me!FieldRev.SetFocus
Me!FieldTMIN.SetFocus
TMIN_NoHyphens = Replace(Me.FieldTMIN, "-", "")
Me.InvisibleBox = TMIN_NoHyphens
Me.InvisibleBox.SetFocus
DoCmd.RunCommand acCmdCopy

End Sub