[AccessD] Getting rid of the Access Background

Hi Rocky

I've had better luck with the code from Drew - that from Dev always
complained that either a form was missing or was too much - quite
confusing.
Drew's code doesn't have those limitations and works nicely. 
I modified it slightly:

Option Compare Database
Option Explicit

Const SW_HIDE           As Long = 0
Const SW_SHOWNORMAL     As Long = 1
Const SW_SHOWMINIMIZED  As Long = 2
Const SW_SHOWMAXIMIZED  As Long = 3

Private Declare Function IsWindowVisible Lib "user32" ( _
  ByVal hwnd As Long) _
  As Long

Private Declare Function ShowWindow Lib "user32" ( _
  ByVal hwnd As Long, _
  ByVal nCmdShow As Long) _
  As Long

Public Function fAccessWindow( _
  Optional Procedure As String, _
  Optional SwitchStatus As Boolean, _
  Optional StatusCheck As Boolean) _
  As Boolean

  Dim lngState    As Long
  Dim lngReturn   As Long
  Dim booVisible  As Boolean
  
  MsgBox Application.hWndAccessApp

  If SwitchStatus = False Then
    Select Case Procedure
      Case "Hide"
        lngState = SW_HIDE
      Case "Show", "Normal"
        lngState = SW_SHOWNORMAL
      Case "Minimize"
        lngState = SW_SHOWMINIMIZED
      Case "Maximize"
        lngState = SW_SHOWMAXIMIZED
      Case Else
        lngState = -1
    End Select
  Else
    If IsWindowVisible(hWndAccessApp) = 1 Then
      lngState = SW_HIDE
    Else
      lngState = SW_SHOWNORMAL
    End If
  End If
  
  If lngState >= 0 Then
    lngReturn = ShowWindow(Application.hWndAccessApp, lngState)
  End If

  If StatusCheck = True Then
    If IsWindowVisible(hWndAccessApp) = 1 Then
      booVisible = True
    End If
  End If
  
  fAccessWindow = booVisible

End Function

Have in mind that reports cannot be previewed with the MDI hidden.

/gustav

>>> bchacc at san.rr.com 07/17 1:45 am >>>
Dear List:

I have an app which is an mde and I'd like the forms to appear without
the standard access background frame.  Sort of float over the desktop as
it were.  The forms have no max, min, and close buttons and no menu or
tool bars and border style of dialog.  Any way to do this?

MTIA,

Rocky Smolin
Beach Access Software
http://www.e-z-mrp.com 
858-259-4334