Sub オブジェクト参照TEST()
DoCmd.OpenForm "main1"
MsgBox Forms!main1.Name
MsgBox Forms![main1].Name
MsgBox Forms.main1.Name
MsgBox Forms("main1").Name
MsgBox Forms(0).Name
MsgBox Forms("main1")!btn1.Name
MsgBox Forms("main1")("btn1").Name
MsgBox Forms("main1")![btn1].Name
MsgBox Forms("main1").[btn1].Name MsgBox Forms("main1").btn1.Name
MsgBox Forms("main1").Controls("btn1").Name
MsgBox Forms("main1").Controls.Item("btn1").Name
'サブフォーム参照
MsgBox Forms("main1")!sub1.Form.Name
MsgBox Forms("main1")("sub1").Form.Name
MsgBox Forms("main1").sub1.Form.Name
MsgBox Forms("main1").Controls("sub1").Form.Name
MsgBox Forms("main1").Controls.Item("sub1").Form.Name
MsgBox Forms("main1")!sub1.Form!btn1.Name
MsgBox Forms("main1").sub1.Form("btn1").Name
MsgBox Forms("main1")("sub1").Form.btn1.Name
MsgBox Forms("main1").sub1.Form.Controls("btn1").Name
MsgBox Forms("main1").Controls("sub1").Form.Controls.Item("btn1").Name
End Sub
メインフォームからサブフォームの参照
Private Sub btn1_Click()
MsgBox Me.sub1.Form.btn1.Name
End Sub
サブフォームからメインフォームの参照
Private Sub btn1_Click()
MsgBox Me.Parent.btn1.Name
End Sub
