別のフォームを開けない

[tamiv510]

別のフォームを開くマクロを検索してコピペしたんですが、実行すると
「BASICランタイムエラー．オブジェクト変数は設定できていません。」
とエラーになります　下記のマクロだけでは駄目なんでしょうか？

Sub Form1Open()
ThisDatabaseDocument.FormDocuments.getByName("フォーム１").open()
End Sub

参考ページ
http://rasuka.webcrow.jp/@factory/tips_ ... index.html

[Kankun]

Sub Form1Open()
Dim oDoc As Object

oDoc = ThisDatabaseDocument.FormDocuments.getByName("フォーム１")
oDoc.open()

End Sub
これでどうかな？