[AccessD] Getting rid of the Access Background

Also Rocky, in Access 97, you only need the forms to have the Popup property
set to True.  In A2k and up, you need to set the Modal property to true
also, unless you use slightly different code.

Drew

-----Original Message-----
From: Rocky Smolin - Beach Access Software [mailto:bchacc at san.rr.com]
Sent: Sunday, July 17, 2005 9:33 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Getting rid of the Access Background


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 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com