Open Access object on full screen

[iren]

I am new in this stuff.
When I open Access from VB like Object VB, I can not open
Access object on full screen. How I can do it.?
Tanks for any help.

 

[shmiller]

As far as I know, the only option is to use the Windows API
Put this in your declarations:

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SW_MAXIMIZE = 3
Private Const SW_NORMAL = 1

Then do something like this:
Sub OpenReport
dim hWnd as long
Set objAccess = CreateObject("Access.Application&quot
objAccess.OpenCurrentDatabase ("C:\...&quot
hWnd = FindWindow("OMain", "Microsoft Access&quot
If hWnd <> 0 Then
ShowWindow hWnd, SW_NORMAL
ShowWindow hWnd, SW_MAXIMIZE
End If
objAccess.DoCmd.OpenReport &quot;rptMonthlyConsumptions&quot;, acViewPreview
objAccess.DoCmd.Maximize


I did have some problems setting some properties after using the ShowWindow function, so if you need to set any other properties, you may want to do that before calling the api functions.

Shanti Miller