access全画面表示されない

質問

ＶＢからacesssを開くと全画面表示されません。

しかし、フォルダをダブルクリックして開いたり、
空のaccessアプリケーションを立ち上げて、「ファイルを開く」で開くと、全画面表示されます。

【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】----------------------------------------
Private Sub Form_Load()
DoCmd.RunCommand acCmdAppMaximize 'アプリケーションのサイズを最大化する Vbから開くと最大化されない。
End Sub
--------------------------------------------------
としています。

アクセス２００７、VB2010です。
ＶＢからだと DoCmd.RunCommand acCmdAppMaximizeが無視される理由を教えてください。

回答No.3

samtomsan · ベストアンサー

> access側で
Access側で設定してもできないと思います。
試してみましたが下記で問題なく全画面表示できました。
VBは2010、Accessは2002です。
Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
AccOpen()
End Sub

Sub AccOpen()
Const acCmdAppMaximize = 10
Dim AccApp As Object

AccApp = CreateObject("Access.Application")
AccApp.Visible = True
AccApp.RunCommand(acCmdAppMaximize)
AccApp.UserControl = True

End Sub
End Class

お礼

ご回答ありがとうございました。

回答No.2

n-jun

勘違いならごめんなさい。

AccApp = CreateObject("Access.Application")
AccApp.Visible = True
AccApp.OpenCurrentDatabase(MyPath)
AccApp.UserControl = True

アプリケーションを可視化してから最大化してみるとか？

お礼

ご回答ありがとうございました。

回答No.1

samtomsan

エラーにならないのでしょうか。
acCmdAppMaximizeの定義はしてありますか。
Const acCmdAppMaximize = 10
ちなみに
Const acCmdAppRestore = 9
Const acCmdAppMaximize = 10
Const acCmdAppMinimize = 11
Const acCmdDocRestore = 14
Const acCmdDocMaximize = 15
Const acCmdDocMinimize = 60
など。

お礼

早速のご回答ありがとうございます。

エラーにはなりません。

access側で
Const acCmdAppMaximize = 10
Private Sub Form_Load()
DoCmd.RunCommand acCmdAppMaximize
End Sub

にしてみましたが、やはりダブルクリックで開く分には全画面表示されますが、
VBから開くと、全画面表示されませんでした。