Hi I have a form with two textboxes and a button that I want to use to paste
into the textboxes for another source, I have tried to use gotfocus with the
textbox but I can't get it to work can someone please show how I can do this
thanks.
TIA
Charles

vqthomf:

try ?

r = Len(TextBox1.Text)
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = r
TextBox1.Paste

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"vqthomf" wrote:

Hi I have a form with two textboxes and a button that I want to use to paste
into the textboxes for another source, I have tried to use gotfocus with the
textbox but I can't get it to work can someone please show how I can do this
thanks.
TIA
Charles

Try this:

Private Sub CommandButton1_Click()
MsgBox Me.ActiveControl.Name
End Sub

so ActiveControl returns a reference to the selected control (textbox).
However, you must change the TakeFocusOnClick property of the commandbutton
to False otherwise ActionControl will refer to the commandbutton itself.

--
Regards,
Tom Ogilvy


"vqthomf" wrote in message
...
Hi I have a form with two textboxes and a button that I want to use to
paste
into the textboxes for another source, I have tried to use gotfocus with
the
textbox but I can't get it to work can someone please show how I can do
this
thanks.
TIA
Charles