[AccessD] Getting rid of the Access Background

Rocky Smolin - Beach Access Software bchacc at san.rr.com
Sun Jul 17 09:32:34 CDT 2005


Gustav:

This:

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

is going to be a deal breaker, I think.  I suppose I could "reappear" it for 
the reports, but I wonder if that will look awkward.  I'll test and see.


Thanks and regards,

Rocky

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Sunday, July 17, 2005 3:28 AM
Subject: Re: [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
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com 




More information about the AccessD mailing list