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 · ベストアンサー

>AccApp.UserControl = True
で変更してますからね。

お礼

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