Sub Test()
    Dim MyForm As Form

    DoCmd.OpenForm "フォーム名"
    Set MyForm = Forms("フォーム名")

(処理)

    Set MyForm = Nothing

End Sub


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



Microsoft Office ブログランキングへ