Global Error

[Thompyt]

I get an immediate Global error. What have I forgotten? I got this from the net for minimizing the Main access window.

Function fSetAccessWindow(nCmdShow As Long)
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then 'no Activeform
If nCmdShow = SW_HIDE Then
MsgBox "Cannot hide Access unless " _
& "a form is on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If


fSetAccessWindow = (loX <> 0)
End Function

[Perceptus]

on what line does the error occur. If you dont get a line, it could be the API lines. But really no way to tell with the information you have provided.

[Thompyt]

I figured out part. Global must be removed in the script.

[Missinglinq]

The term 'global' is how most developers describe this kind of object, in whatever language they're working in, but in Access VBA the proper term is 'Public.' In fact, if you have a line like

Global Const SW_HIDE = 0

and place the cursor into the Global, then press <F1> Access Help will take you the Public Statement!

Linq ;0)>

[ssanfu]

You should really note where you got the code.
The original code (AFAICT -> As Far As I Can Tell) was written by Dev Ashish and is posted at http://access.mvps.org/access/api/api0019.htm. (Note the copyright notice)

Note this code is for A2000 - 2003 and has not been tested with A2007 - 2013 in Win 8 (AFAICT).

Also see discussion at http://www.utteraccess.com/forum/lof.../t1966467.html (May 3 2011)
And http://www.access-programmers.co.uk/...d.php?t=238389