ページ 11

別のフォームを開けない

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

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

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

Re: 別のフォームを開けない

Posted: 6月 11, 2018, 2:47 pm
by Kankun
Sub Form1Open()
Dim oDoc As Object

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

End Sub
これでどうかな?