How to detect a Sub-Form event from the Main Form?

[billelev]

I have an Access form (MainForm) that has a SubForm. I would like to know if a MainForm event exists that detects a SubForm record change.

I can use the "On Current" event to detect when the MainForm record changes, but does an event such as "On SubForm On Current" exist?

Many thanks,

[Stewart Ross]

Hi. It is the subform's On Current event that fires for each record in the subform. The main form cannot receive or handle the subform's events. If you wish to use this event you have to place the code in the subform itself.

Whilst it may technically be possible to set up custom event handlers for your subform to which the main form could listen this is not a trivial task. I have not tried this with a main form / sub form combination so I cannot say for sure that it is even possible to use this approach. Custom event handlers can work well for independent forms.

If you wish to call subroutines or functions outside of the scope of your form's code modules (which are local in scope to the form concerned and not visible to any other form, even in mainform/subform combinations) you will need to place the code concerned in a public code module (i.e. one that is shown in the Modules tab of the database window). You can then call the code as necessary from the relevant On Current event handler.

-Stewart

[billelev]

Thanks for your help...In trying to implement a solution, I encountered a related problem, which will involve some more explanation...

MainForm has two sub-forms, SubForm1 and SubForm2.

When the record in SubForm1 changes, I want to display different records in SubForm2.

I can almost achieve this by using the following code in the Form_Current event of SubForm1

' === Code in SubForm1 ===

Private Sub Form_Current()

    If CurrentProject.AllForms("MainForm").IsLoaded Then
        If CurrentProject.AllForms("SubForm2").IsLoaded Then
            'If MainForm is loaded when SubForm1 record gets changed, change
            ' the filter in SubForm2
            Forms("MainForm").SubForm2.Form.Filter = "ChartId=" & Me.ChartID
        End If
    End If

End Sub

The problem here is that whilst the code recognizes that MainForm is open, the "IsLoaded" property does not get set to TRUE for sub-forms. Do you know of a way of determining whether or not a form is open as a sub-form?

[Stewart Ross]

Hmm, unless you have some form of automated selection of which subform is loaded as part of the main form, wouldn't it always be the case that the subform must be present if the main form is?

Anyway, there is no built-in function that checks for the subform being loaded, but the following simple custom function returns true if the named subform control is present on the main form and false otherwise. I really do think this is a redundant check, however.

Public Function fSubformLoaded (mainformname As String, subformname As String)
  Dim Result As Boolean
  On Error Resume Next
  Result = Not IsNull(Forms(mainformname).Controls(subformname).Form.Name)
  fSubformLoaded = Result
End Function

If the subform control does not exist on the main form an error will result, which is dealt with safely by the On Error Resume Next, resulting in return of the default value False for variable Result. If the control does exist then the subform's name property is non-null and the function will return True instead.

-Stewart

[billelev]

Hmm, unless you have some form of automated selection of which subform is loaded as part of the main form, wouldn't it always be the case that the subform must be present if the main form is?

Anyway, there is no built-in function that checks for the subform being loaded, but the following simple custom function returns true if the named subform control is present on the main form and false otherwise. I really do think this is a redundant check, however.

Public Function fSubformLoaded (mainformname As String, subformname As String)
  Dim Result As Boolean
  On Error Resume Next
  Result = Not IsNull(Forms(mainformname).Controls(subformname).Form.Name)
  fSubformLoaded = Result
End Function

If the subform control does not exist on the main form an error will result, which is dealt with safely by the On Error Resume Next, resulting in return of the default value False for variable Result. If the control does exist then the subform's name property is non-null and the function will return True instead.

-Stewart

You are correct in that the sub-forms are always present when the MainForm is loaded, with one key exception...Whe n MainForm is originally loading. This is causing the problem. That's why I wanted the code in SubForm1 to check to see if SubForm2 had loaded.

Once MainForm is loaded (and therefore the sub-forms) I don't need any checks, i.e. I can simply use:

Private Sub Form_Current()
            Forms("frmChartSeries").frmSeries.Form.Filter = "ChartId=" & Me.ChartID
End Sub

I did find a work around, which isn't particularly elegant, but it seems to do the trick...The Visible property is only visible after the form (and sub-forms) has fully loaded...I just won't apply the filter when the form loads (which doesn't matter, anyway).

Private Sub Form_Current()
    If CurrentProject.AllForms("MainForm").IsLoaded And Forms("MainForm").Visible Then
            Forms("MainForm").SubForm2.Form.Filter = "ChartId=" & Me.ChartID
    End If
End Sub

Your suggestions also works, so many thanks for you help!

[ADezii]

Thanks for your help...In trying to implement a solution, I encountered a related problem, which will involve some more explanation...

MainForm has two sub-forms, SubForm1 and SubForm2.

When the record in SubForm1 changes, I want to display different records in SubForm2.

I can almost achieve this by using the following code in the Form_Current event of SubForm1

' === Code in SubForm1 ===

Private Sub Form_Current()

    If CurrentProject.AllForms("MainForm").IsLoaded Then
        If CurrentProject.AllForms("SubForm2").IsLoaded Then
            'If MainForm is loaded when SubForm1 record gets changed, change
            ' the filter in SubForm2
            Forms("MainForm").SubForm2.Form.Filter = "ChartId=" & Me.ChartID
        End If
    End If

End Sub

The problem here is that whilst the code recognizes that MainForm is open, the "IsLoaded" property does not get set to TRUE for sub-forms. Do you know of a way of determining whether or not a form is open as a sub-form?

The method to check and see if a Form is Loaded as a Sub-Form is to check its Parent Property, as in:

Public Function fIsSubFormLoaded(frm As Form) As Boolean
'Is the form referenced in the Parameter currently loaded as a subform?
'We can check its Parent property to find out.
Dim strName As String

On Error Resume Next

strName = frm.Parent.Name
fIsSubFormLoaded = (Err.Number = 0)
Err.Clear
End Function

If fIsSubFormLoaded(Me) Then
  MsgBox "It is Loaded as a Sub-Form"
Else
  MsgBox "It is Loaded as a Stand Alone Form"
End If

[ADezii]

I'm a little rusty on this Topic but you should be able to detect Events in a Sub-Form from a Main Form by 'Hooking' to it:

1. In the Main Form's Declarations Section, Declare a WithEvents Reference to the Sub-Form:
   

   Private WithEvents frmSubForm As Form

2. In the Load() Event of the Main Form, 'Hook' it to the Sub-Form:
   

   Private Sub Form_Load()
   Set frmSubForm = Forms![frmSubFormDemo]![subfSubForm].Form
   
   frmSubForm.OnCurrent = "[Event Procedure]"
   End Sub

3. Haven't had time to play with it, but you should somehow be able to react to the Current() Event of the Sub-Form from the Main Form.

[missinglinq]

I'm confused by this statement!

You are correct in that the sub-forms are always present when the MainForm is loaded, with one key exception...Whe n MainForm is originally loading

The fact is by the time the MainForm is originally loading, the subforms are already loaded! Subforms always load before the main form loads, unless, of course, a tear has occurred in the time continuum of space.

Linq ;0)>

[FishVal]

I'm confused by this statement!

The fact is by the time the MainForm is originally loading, the subforms are already loaded! Subforms always load before the main form loads, unless, of course, a tear has occurred in the time continuum of space.

Linq ;0)>

Though it is certainly not the case, but I'd like to point out that is not true for main form being in datasheet view - subform will not be loadad until subdatasheet expanded.

@OP
A simple recursive procedure you could find here will help you to find a form opened in subform control.

@ADezii
Declaring form variable with events is certainly the best way to handle subform's events in main form module

Regards,
Fish.

[ADezii]

Though it is certainly not the case, but I'd like to point out that is not true for main form being in datasheet view - subform will not be loadad until subdatasheet expanded.

@OP
A simple recursive procedure you could find here will help you to find a form opened in subform control.

@ADezii
Declaring form variable with events is certainly the best way to handle subform's events in main form module

Regards,
Fish.

Hello FishVal. It appears as though you are very proficient in the OOP approach. If you have a few minutes, can you demo exactly how you would 'Hook' a Sub-Form's Current() Event and capture it within the context of a Main Form. I realize that I have the correct concept, but I am a little rusty with OOP, and I'm not sure about the implementation of this concept. I thank you for your time and consideration in this matter.

[FishVal]

Hello FishVal. It appears as though you are very proficient in the OOP approach. If you have a few minutes, can you demo exactly how you would 'Hook' a Sub-Form's Current() Event and capture it within the context of a Main Form. I realize that I have the correct concept, but I am a little rusty with OOP, and I'm not sure about the implementation of this concept. I thank you for your time and consideration in this matter.

Hello, ADezii.

Below is a code for subform Current event hooking.
It doesn't differ much from that you've already posted. ;)

[code=vb]
Option Compare Database
'declare global object variable with events
Private WithEvents frmSubform As Access.Form

Private Sub Form_Load()
'set reference to subform control form object
Set frmSubform = Me.sbf.Form
'set "OnCurrent" property so that a sub with special name -
'<object name>_<event name> will be called to handle event
frmSubform.OnCu rrent = "[Event Procedure]"
End Sub

'event handling code - sets value of main form unbound control
'to a value obtained from subform control
Private Sub frmSubform_Curr ent()
Me.txbSubformEv ent = Me.sbf.Form!txt
End Sub
[/code]

• Subform control form "HasModule" property has to be set to True
• As soon as subform "Current" event occurs before mainform "Load" event it will be not handled when form has been opened, so the first "Current" event should be handled in mainform "Load" event handler.

Regards,
Fish

[missinglinq]

that is not true for main form being in datasheet view - subform will not be loadad until subdatasheet expanded.

Thanks, Fish! Never knew that! Actually, never contemplated doing that or saw anyone else do it, but as always, it's better to know than not to know!

;0)>

[ADezii]

Hello, ADezii.

Below is a code for subform Current event hooking.
It doesn't differ much from that you've already posted. ;)

[code=vb]
Option Compare Database
'declare global object variable with events
Private WithEvents frmSubform As Access.Form

Private Sub Form_Load()
'set reference to subform control form object
Set frmSubform = Me.sbf.Form
'set "OnCurrent" property so that a sub with special name -
'<object name>_<event name> will be called to handle event
frmSubform.OnCu rrent = "[Event Procedure]"
End Sub

'event handling code - sets value of main form unbound control
'to a value obtained from subform control
Private Sub frmSubform_Curr ent()
Me.txbSubformEv ent = Me.sbf.Form!txt
End Sub
[/code]

• Subform control form "HasModule" property has to be set to True
• As soon as subform "Current" event occurs before mainform "Load" event it will be not handled when form has been opened, so the first "Current" event should be handled in mainform "Load" event handler.

Regards,
Fish

Thanks for taking the time and providing us with an explanation.

[ramkam]

Same but with sourceobject = Table.foobar

Hi there,
Thanks for the explanation

However, this doesnt seem to work when the subform objectsource points to a table (allocated on the go by the main form)

ex: same as above, but the subformcontrol. sourceobject = "Table.foob ar"

Would you know if there a trick or another way to detect oncurrent event, and even better, detect which field of the subform has focus ?

The idea is to display contextual information from many other tables, the model is fairly complex ... i'd need to show things when usefull.