Detecting a Sub-Form event from the Main Form 2

[FelixS]

I have developed a way to enter the data from long medical document, using structure: Mainform (subform1,... subfromN). This is reflecting the logical model of data: Document(sectio n1,section2,... sectionN).

The MainForm has only one control, subfrom, in Detail which displays consecutively section1,...sec tionN. This is done by buttons "Next" and "Previous" located in MainForm's Footer.

I was quite happy with this design: subforms, which could be of hundreds' did not have class modules, thus saving memory and making design simpler.

Until data entering person claims, that it would be more comfortable if after one section is filled, the other is coming automatically, without pressing "Next".

So far I couldn't find a solution for this challenge, i.e. keeping subforms without class modules and fishing up "end of filling the subform" from the MainForm.

Any hints.

[ChipR]

What's the code in your "Next" button? Just to get an idea of what you're doing exactly.

[FelixS]

It is very simple there, in class module

Private Sub NextForm_Click( )
Call NextPriv(Me.Nam e, 1)
End Sub


NextPriv is determining which section is to include in subform.
For example, there is main form F02 and section forms F02001 - F02005
Next for F02005 is saving records and close F02. For all other the next Form is
determined as nextFrm and changes settings by statement

Forms(pubLFrmNa me).FormSec.Sou rceObject = nextFrm

This causes main form change the subform contents.

[ChipR]

In that case, why not have your subform after the last field is updated
Call NextPriv(Me.Par ent.Name, 1) <- Though I'm not sure what the 1 is for

[FelixS]

1. 1 means 1 next, 2 means previous.
2. The main question is how to do this without class module for subform. In other words, how to fish up the situation of focus on last control in the subform, from the main form. Once more, it is very straightforward to handle this event being in subform and using class module for this subform. However, the solution, being searched is how to do this without class modules for subforms.

[ChipR]

I don't see any way to get the focus out of the subform without calling a macro or some code.

[FishVal]

To the best of my knowledge there is no way to catch subform's components events unless form which is a SourceObject of subform control has module. It could be empty, but it has to exist.
IMHO, maximum you can do without the modules is continuous polling of subform's controls.

Regards,
Fish.

[FelixS]

I have found how to do this.

[ChipR]

Would you mind sharing?

[FelixS]

at the moment I have only tested part of code and general Idea.
It could be done using
Private Sub Form_Timer()
<procedure to run every ### milliseconds>
End Sub

Sub Form_Load()
Me.TimerInterva l = 1000
End Sub

and ActiveControl Property

Dim ctlCurrentContr ol As Control
Dim strControlName As String
Set ctlCurrentContr ol = Screen.ActiveCo ntrol
strControlName = ctlCurrentContr ol.Name
*************** ***************
In fact now I am trying to solve the last outstanding problem in my task:
to set focus on the first text box in subform after the form is loaded. The name of text box is stored in variable.
So far no any working solution