passing subform argument to function

[sofakingfree]

I keep getting an invalid property assignment error when tring to
reference a subform.

All I am trying to do is substitute this:

Forms![frm_ActionItems]![frm_ActionItems_Sub].SetFocus

for this:

FormAndSubForm.SetFocus

Unforturnately no luck thus far. I can't even get this to compile:

Dim strSubForm as string
frmSubForm as form
frmSubForm = Forms(strSubForm)

Is there something wrong with my references? I have had to shift the
priority of the reference Microsoft Visual Basic for Applications
Exstensibility up and down to get other things to work properly. So
I'm wondering if that may be the cause because I see lot's of the above
code referenced in the forum. But I can't get it to compile. What's
up with that? All this headache is just for exporting subform
datasheet to excel. I am using a function posted as "XLPaste" and it
works fine in the form's code but I would like to make a more robust
function out of it by passing the name of the datasheet. If anyone
already has the snippet for this or can point me in the right direction
that would be great. Thanks.

[Steve Jorgensen]

There are 3 problems.

First, a subform control isn't a form, it's a control that contains a form.
It's correct to invoke .SetFocus on a subform control, but if you needed to
reference a control on the form within the subform control, you'd need to say
<control>.Form!<controlname>. Dimensioning frmSubForm as Form type is
thus,incorrect. It should be Dim frmSubForm As Subform.

Second, you can't assign a reference to an object by just using <variable> =
<instance>. You have to use the Set keyword: Set <variable> = <instance>

Third, subforms are not in the Access Forms collection, so you can't get a
reference to a subform using Forms(strSubForm).
On 31 Mar 2005 07:29:52 -0800, so**********@netzero.net wrote:

I keep getting an invalid property assignment error when tring to
reference a subform.

All I am trying to do is substitute this:

Forms![frm_ActionItems]![frm_ActionItems_Sub].SetFocus

for this:

FormAndSubForm.SetFocus

Unforturnately no luck thus far. I can't even get this to compile:

Dim strSubForm as string
frmSubForm as form
frmSubForm = Forms(strSubForm)

Is there something wrong with my references? I have had to shift the
priority of the reference Microsoft Visual Basic for Applications
Exstensibility up and down to get other things to work properly. So
I'm wondering if that may be the cause because I see lot's of the above
code referenced in the forum. But I can't get it to compile. What's
up with that? All this headache is just for exporting subform
datasheet to excel. I am using a function posted as "XLPaste" and it
works fine in the form's code but I would like to make a more robust
function out of it by passing the name of the datasheet. If anyone
already has the snippet for this or can point me in the right direction
that would be great. Thanks.