VBからaccess UserControl

vb.netから
【VB】--------------------------------------------
Sub AccOpen()
Dim AccApp As Access.Application
Dim MyPath As String
MyPath = "○○.accdb"
AccApp = CreateObject("Access.Application")
AccApp.OpenCurrentDatabase(MyPath)
AccApp.Visible = True
AccApp.UserControl = True
End Sub
--------------------------------------------------
でアクセスのファイルを開いているのですが、
アクセスの標準モジュールで
【access】--------------------------------------------
Sub test()
MsgBox "The user started Access: " & Application.UserControl
End Sub
----------------------------------------------------
を実行すると、Trueが返ってくるのですが、正しくはFalseなのではないでしょうか？

アクセスのヘルプをみると、
・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　
True
現在のアプリケーションはユーザーによって起動されました。
False
現在のアプリケーションは、オートメーションを使って他のアプリケーションによって起動されました。
と書かれています。
・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　・　

AccOpenはvbで実行しているので、
「オートメーションを使って他のアプリケーションによって起動されました。」
に該当するのではないでしょうか？

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2012/12/17 23:51

>AccApp.UserControl = True

で変更してますからね。

この回答へのお礼

そうでしたかｗうっかりしてました。ありがとうございました。

お礼日時：2012/12/22 14:54