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
 

　↓　facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ