Return Name Of Subform Control

[Melissa]

I have forty-two small subforms on a form. I need help with the code that
will return the name of the subform control when I click on any subform
control. I know how to select all the subform controls at once and then
enter =MyFunction in the Enter event; I need the code for MyFunction.

Thanks,

Melissa

[Dirk Goldgar]

"Melissa" <ms****@notmyemail.com> wrote in message
news:RW*****************@newsread3.news.pas.earthl ink.net

I have forty-two small subforms on a form. I need help with the code
that will return the name of the subform control when I click on any
subform control. I know how to select all the subform controls at
once and then enter =MyFunction in the Enter event; I need the code
for MyFunction.

I believe that in the subform control's Enter event,

Me.ActiveControl.Name

will give you the name of the subform control.

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)

[Rich P]

It is not clear what you are trying to do. But if you want to set the
name of a subform to a variable when you enter that subform - just do
this: Create a module level variable in the main form

-----------------------------------------
Dim subFrmName As String

Private Sub Form3_Enter()
subFrmName = Form3
End Sub
==========================================

or if you want to pass the actual subform to a function when you enter
the subform, do this:

==========================================
Private Sub Form3_Enter()
Me.Form3!Text0 = "testingjhgkjhg"
End Sub
------------------------------------------

where Text0 is a textbox in Form3. What does MyFunction do? What kind
of data does it return?
Rich

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Mike Watson]

Ciao Melissa,

Following what Dick Goldbar wrote, I would add the following:

Where will MyFunction() be?

1. If it is in the form's module then MyFunction() could be:

Public Function MyFunction()

MsgBox "I'm in subform: " & Me.ActiveControl.Name
' your code etc.

End Function

The 'On enter' event property for each subform control should be:
=MyFunction()

2. If it is in a global module then MyFunction() should be:

Public Function MyFunction(rfrm As Form)

MsgBox "I'm in subform: " & rfrm.ActiveControl.Name
' your code etc.

End Function

The 'On enter' event property for each subform control should be:
=MyFunction([Form])

Cheers,

Mike Watson
Connecting Software
via Lodovico il Moro 87
20143 Milano, Italy