Help Please - Problem with Function that opens DB

[mosh]

Hey All,

I have an autoexec macro that runs function Start() and SizeStart(), Actioned Failed "Autoexec", Condition True, Arguments SizeStart(). Below is the code for SizeStart().

Help appreciated.

Thanks.

Function SizeStart() As Boolean
Dim AccessHandle, X_TL, Y_TL, Width, Height As Long

On Error GoTo Err_fnSizeAccess
'Echo False
RunCommand acCmdAppMaximize
AccessHandle = Application.hWndAccessApp
SetWindowPos AccessHandle, 0, 1024, 768, 0, 0, &H4
CurrentDb.Properties("StartupShowStatusBar") = False
'Echo True
Exit Function
Err_fnSizeAccess:
MsgBox Err.Description
End Function
________
Portable vaporizors

 

[mosh]

anyone?
________
California Dispensary