如何返回当前表单的祖父母姓名（即 me.parent.parent.name）

Question

我想作为参数传递三个参数（用户语言、父表单的名称和祖父表单的名称） 前者我能做到，但后者不行。

我尝试使用 Me.Parent.name 返回父表单的名称，但如果它没有附加到控件，它就不起作用-

这是一个示例：

Private Sub btnNoInterruptRational_Click()

    Dim grandParentName As String
    grandParentName = Me.Parent.name


    If (Me.OpenArgs = "English") Then

         DoCmd.OpenForm "frmP2CQ", acNormal, , , acEdit, _
         , "English|" & grandParentName
    End If

    If (Me.OpenArgs = "French") Then

         DoCmd.OpenForm "frmP2CQ", acNormal, , , acEdit, _
         , "French|" & grandParentName
    End If

End Sub

Answer 1

我有一个名为 frmGrandparent 的表单。它包含一个名为 frmParent 的子表单。 frmParent 包含一个名为 fsubColortable 的子表单。

我在fsubColortable的Form Open事件中设置了一个断点。然后在立即窗口中，检查Parent.Name 和Parent.Parent.Name 属性...

? Me.Name
fsubColortable
? Me.Parent.Name
frmParent
? Me.Parent.Parent.Name
frmGrandparent

所以Me.Parent.Parent.Name可以给你顶级（祖父）表单的名称。我不明白为什么你的尝试失败了。我建议您测试您的程序的简化版本，它只关注Parent.Parent.Name ...暂时忽略所有其他内容。

如果您仍然无法从 Me.Parent.Parent.Name 在那个简单的版本中得到您想要的，请提供详细信息（例如错误消息），以便我们找出失败的原因。

如果简单版本可以正常工作，那么问题在于您如何在原始版本中使用Me.Parent.Parent.Name。有关问题性质的更具体细节应该会有所帮助。

Answer 2

您似乎需要关闭该 OpenArgs。例如：

     DoCmd.OpenForm "frmP2CQ", acNormal, , , acEdit, _
     , "French|" & grandParentName

应该是

     DoCmd.OpenForm "frmP2CQ", acNormal, , , acEdit, _
     , "French|" & grandParentName & ""