Subform Tricks

[Lou_Reed]

I believe that there is a command in MS Access 2013 that allows one to determine from a subform who its parent is. Since, I have inherited this project, I have a lot of subforms and
I would just like to know if that command is available in MS Access 2010?

If it is then what is it and how do I use it?

Any help appreciated. Thanks in advance.



Respectfully,

Lou Reed

[CJ_London]

it's not a command.

in the subform form in vba to return the name of the parent form you use.

me.parent.name

where to use it is up to you, depends on why and when you want to know it

e.g. in the form open event you might put

me.txtParentname=me.parent.name

where me.txtParentname is the name of a textbox control on your form.

it's been available since subforms were invented

NOTE: if you run this code when you have opened the subform as a form in its own right, you will get an error because there is no parent.

[Lou_Reed]

I understand your point, but my point is should I do something different because my db may have subforms?

I have not created a great part of this db so, it is possible that in some form (which I did not create) using this option would affect that when it open , etc.

Any help appreciated. Thanks in advance.

[CJ_London]

my point is should I do something different because my db may have subforms

no reason I can think of

[Micron]

There's probably more elegant examples than what I just came up with, but how about

Public Sub WhoYerDaddy()

Dim ctl As Control
Dim strName As String, strPrint As String
Dim obj As AccessObject

On Error GoTo errHandler

For Each obj In Application.CurrentProject.AllForms
  strName = obj.Name
  DoCmd.OpenForm strName, acDesign 'open in design view to enumerate controls & prevent running code
    For Each ctl In Forms(strName).Controls
    'if type is subform control, build print statement with attributes
      If ctl.ControlType = acSubform Then
         strPrint = "Form Name: " & strName & "; Subform Control Name: " & ctl.Name
         strPrint = strPrint & "; Source Object: " & ctl.Form.Name
         Debug.Print strPrint
      End If
SkipPrint:
   Next
  DoCmd.Close acForm, strName
Next

Exit Sub

errHandler:
If Err.Number = 2467 Then 'trying to get an attribute that doesn't exist (source object)
   Debug.Print "Subform control [" & ctl.Name & "] on form [" & strName & "] appears to have no source object."
   Resume SkipPrint
Else
   MsgBox Err.Number & ": " & Err.Description
End If

End Sub