Listening for events on subform nested in a tab control

[JIm Shaw]

I wish to synchronize a "MyPopUpForm" with custom events
generated in "MyMainForm" and "MySubForm".

MySubForm is nested on a page in a tab control
on "MyMainForm".

"MyPopUpForm" is opened via a control button on
MyMainForm, so I'm sure both MyMainForm and MySubForm are
loaded when MyPopUpForm fires its OnLoad event.

MyMainForm raises event "NewEmp(EmpID)" that MySubForm and
MyPopUpForm successfully handle.

So far, so good with my code. Now for what's not working..

MySubForm raises event CurRec(EffectiveDate).
MyPopUpForm should catch and handle the event by updating
a text box control with the EffectiveDate.

Problem: I keep getting messages at runtime that
MySubForm cannot be found.

Here's my code:
-----------------------------------------------------
On "MySubForm", I have declared a custom event in the
global area:

Public Event CurRec(EffectiveDate)

also I have:

Private Sub Form_Current()
RaiseEvent CurRec(EffectiveDate)
End Sub
--------------------------------------------
In the global area of "myPopUp" form I have:

Dim WithEvents subComp As Form_MySubForm

Then I coded:

Private Sub Form_Load()
Set subComp = Forms![frmEmpMaint]!MySubForm
End Sub
-------------------------------------------------

My problem is coding the proper syntax for the "Set
subComp" statement above. Various coding attempts have
all lead to runtime messages that generally say the
subform can't be found.

Does anyone you know know how to code this?

 

[Dan Artuso]

Hi,
The way to refer to a subform (which, by the way, is not a member of the open
forms collection) is:
Forms![frmEmpMaint].Form!NameOfSubformControl

 

[Jim Shaw]

Thanks for your response Dan, but that does not solve my
problem.

I tried your suggestion and at run time I get error
message # 2465 Can't find the field on the subform.

I'm not trying to reference a control on MySubForm, I'm
trying to reference the form its self to initalize subComp
which is of type "Form_MySubForm".

-Jim

-----Original Message-----
Hi,
The way to refer to a subform (which, by the way, is not a member of the open
forms collection) is:
Forms![frmEmpMaint].Form!NameOfSubformControl


--
HTH
Dan Artuso, Access MVP


"JIm Shaw" <[email protected]> wrote in

message news:[email protected]...

I wish to synchronize a "MyPopUpForm" with custom events
generated in "MyMainForm" and "MySubForm".

MySubForm is nested on a page in a tab control
on "MyMainForm".

"MyPopUpForm" is opened via a control button on
MyMainForm, so I'm sure both MyMainForm and MySubForm are
loaded when MyPopUpForm fires its OnLoad event.

MyMainForm raises event "NewEmp(EmpID)" that MySubForm and
MyPopUpForm successfully handle.

So far, so good with my code. Now for what's not working..

MySubForm raises event CurRec(EffectiveDate).
MyPopUpForm should catch and handle the event by updating
a text box control with the EffectiveDate.

Problem: I keep getting messages at runtime that
MySubForm cannot be found.

Here's my code:
-----------------------------------------------------
On "MySubForm", I have declared a custom event in the
global area:

Public Event CurRec(EffectiveDate)

also I have:

Private Sub Form_Current()
RaiseEvent CurRec(EffectiveDate)
End Sub
--------------------------------------------
In the global area of "myPopUp" form I have:

Dim WithEvents subComp As Form_MySubForm

Then I coded:

Private Sub Form_Load()
Set subComp = Forms![frmEmpMaint]!MySubForm
End Sub
-------------------------------------------------

My problem is coding the proper syntax for the "Set
subComp" statement above. Various coding attempts have
all lead to runtime messages that generally say the
subform can't be found.

Does anyone you know know how to code this?

.

 

[Dan Artuso]

Hi Jim,
Sorry, I was a dyslexic in my previous response.
It should be:
Forms![frmEmpMaint]!NameOfSubformControl.Form

NameOfSubformControl is the name of the container object on
your main form that 'contains' the subform. The container control has a Form property
that lets you get at the subform itself.

This is sometimes the same name as your subform but it depends on how
you let Access name it, or if you explicitly named it.

Also not sure about your dim statement. You could also try
Dim WithEvents subComp As Form


--
HTH
Dan Artuso, Access MVP

Thanks for your response Dan, but that does not solve my
problem.

I tried your suggestion and at run time I get error
message # 2465 Can't find the field on the subform.

I'm not trying to reference a control on MySubForm, I'm
trying to reference the form its self to initalize subComp
which is of type "Form_MySubForm".

-Jim

-----Original Message-----
Hi,
The way to refer to a subform (which, by the way, is not a member of the open
forms collection) is:
Forms![frmEmpMaint].Form!NameOfSubformControl


--
HTH
Dan Artuso, Access MVP


"JIm Shaw" <[email protected]> wrote in

message news:[email protected]...

I wish to synchronize a "MyPopUpForm" with custom events
generated in "MyMainForm" and "MySubForm".

MySubForm is nested on a page in a tab control
on "MyMainForm".

"MyPopUpForm" is opened via a control button on
MyMainForm, so I'm sure both MyMainForm and MySubForm are
loaded when MyPopUpForm fires its OnLoad event.

MyMainForm raises event "NewEmp(EmpID)" that MySubForm and
MyPopUpForm successfully handle.

So far, so good with my code. Now for what's not working..

MySubForm raises event CurRec(EffectiveDate).
MyPopUpForm should catch and handle the event by updating
a text box control with the EffectiveDate.

Problem: I keep getting messages at runtime that
MySubForm cannot be found.

Here's my code:
-----------------------------------------------------
On "MySubForm", I have declared a custom event in the
global area:

Public Event CurRec(EffectiveDate)

also I have:

Private Sub Form_Current()
RaiseEvent CurRec(EffectiveDate)
End Sub
--------------------------------------------
In the global area of "myPopUp" form I have:

Dim WithEvents subComp As Form_MySubForm

Then I coded:

Private Sub Form_Load()
Set subComp = Forms![frmEmpMaint]!MySubForm
End Sub
-------------------------------------------------

My problem is coding the proper syntax for the "Set
subComp" statement above. Various coding attempts have
all lead to runtime messages that generally say the
subform can't be found.

Does anyone you know know how to code this?

.

 

[JIm Shaw]

Thanks Dan, you were right on the money this time.
The DIM statement was OK
"NameOfSubformControl" was the problem. I was reading it
as "NameOfSubform.ControlName", leading to much
frustration. My code did not agree with how the
SubformControl was named. I was thinking it was the name
of the subform, not the name of a control on the main form
that contained my subform. I knew the control was there,
I just did not think it relevent to what I was trying to
accompish.
Once I started nosing around in the Object Brouser and saw
that my form name was not listed under my main form I got
suspicious and looked at the control properties in the
main form and found a completely different name (Much to
my surprise!)! When I used that name, everything worked
the way it should.

I really hate these "User Friendly" manuals that hide the
full story from the reader. ;-)

Many thanks
JIM

-----Original Message-----
Hi Jim,
Sorry, I was a dyslexic in my previous response.
It should be:
Forms![frmEmpMaint]!NameOfSubformControl.Form

NameOfSubformControl is the name of the container object on
your main form that 'contains' the subform. The container control has a Form property
that lets you get at the subform itself.

This is sometimes the same name as your subform but it depends on how
you let Access name it, or if you explicitly named it.

Also not sure about your dim statement. You could also try
Dim WithEvents subComp As Form


--
HTH
Dan Artuso, Access MVP


"Jim Shaw" <[email protected]> wrote in

message news:[email protected]...

Thanks for your response Dan, but that does not solve my
problem.

I tried your suggestion and at run time I get error
message # 2465 Can't find the field on the subform.

I'm not trying to reference a control on MySubForm, I'm
trying to reference the form its self to initalize subComp
which is of type "Form_MySubForm".

-Jim

-----Original Message-----
Hi,
The way to refer to a subform (which, by the way, is

not
a member of the open

forms collection) is:
Forms![frmEmpMaint].Form!NameOfSubformControl


--
HTH
Dan Artuso, Access MVP


"JIm Shaw" <[email protected]> wrote

in
message news:[email protected]...

I wish to synchronize a "MyPopUpForm" with custom events
generated in "MyMainForm" and "MySubForm".

MySubForm is nested on a page in a tab control
on "MyMainForm".

"MyPopUpForm" is opened via a control button on
MyMainForm, so I'm sure both MyMainForm and MySubForm are
loaded when MyPopUpForm fires its OnLoad event.

MyMainForm raises event "NewEmp(EmpID)" that

MySubForm
and

MyPopUpForm successfully handle.

So far, so good with my code. Now for what's not working..

MySubForm raises event CurRec(EffectiveDate).
MyPopUpForm should catch and handle the event by updating
a text box control with the EffectiveDate.

Problem: I keep getting messages at runtime that
MySubForm cannot be found.

Here's my code:
-----------------------------------------------------
On "MySubForm", I have declared a custom event in the
global area:

Public Event CurRec(EffectiveDate)

also I have:

Private Sub Form_Current()
RaiseEvent CurRec(EffectiveDate)
End Sub
--------------------------------------------
In the global area of "myPopUp" form I have:

Dim WithEvents subComp As Form_MySubForm

Then I coded:

Private Sub Form_Load()
Set subComp = Forms![frmEmpMaint]!MySubForm
End Sub
-------------------------------------------------

My problem is coding the proper syntax for the "Set
subComp" statement above. Various coding attempts have
all lead to runtime messages that generally say the
subform can't be found.

Does anyone you know know how to code this?


.

.