Hiding Access Window



Iam trying to display a form on its own without the access window
being visible, from previous posts I have got the following code,

Private Sub Form_Open(Cancel As Integer)
Me.Visible = True
fSetAccessWindow SW_HIDE
End Sub

Function fSetAccessWindow(SW_HIDE)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
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"
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
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"
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
fSetAccessWindow = (loX <> 0)
End Function

I have set the form to be both a popup and modal, however I get the
following error
cannot minimise access when form is on screen,

Any help would be appreciated,





I think you should look carefully at your code. It is calling for this error
message its self. Could you just create your own menu bar or do you REALLY
need to hide the access window? If you minimize the Access window then the
form (which is in the window) will be minimized too. I think the only way to
do this is to make the Access window the same size as the form and hide it
behind the form.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question