refer to a form control in vba - Access Developer Forum


	Back to Access Developer Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

refer to a form control in vba

Gary Becker

3 years ago

Is there a way to use the OnClick event of a control, to refer to it in VBA without using its name? I want to make a sub or function for the OnClick event. The user clicks on the control, VBA then sets the focus and copies the contents to the clipboard. So can I use something like Me!Currentcontrol.setfocus instead of using the control name like Me!CurrentAmount.setfocus?

	Gary Becker OP @Reply 3 years ago
I kept trying things. And I think I figured it out. Instead of saying Me!CurrentControl I need to use JUST ActiveControl. That seems to work.

Gary Becker OP @Reply

3 years ago

This is what my function turned out to be. I pasted this in the On Click event of a bunch of fields so it will copy the value to the clipboard to paste into my Excel worksheets

Private Function MyCopy()

    If IsNull(ActiveControl) Then Exit Function

    ActiveControl.SetFocus
    ActiveControl.SelStart = 0
    ActiveControl.SelLength = Len(ActiveControl.Text)
    DoCmd.RunCommand acCmdCopy

End Function

	Kevin Robertson @Reply 3 years ago
Add the function to a global module so the entire database can use it. `Public Function MyCopy() Dim Ctrl As Control Set Ctrl = Screen.ActiveForm.ActiveControl If IsNull(Ctrl) Then Exit Function Ctrl.SetFocus Ctrl.SelStart = 0 Ctrl.SelLength = Len(Ctrl.Text) DoCmd.RunCommand acCmdCopy Set Ctrl = Nothing End Function` See Event Handler

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Developer Forum.

Next Unseen

New Feature: Comment Live View