[AccessD] Getting rid of the Access Background

Never mind.  Changed it to apiShowWindwo and it worked.

Rocky

----- Original Message ----- 
From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Tuesday, July 19, 2005 7:43 AM
Subject: Re: [AccessD] Getting rid of the Access Background


> Gustav:
>
> There a line of code in there:
> "lngReturn = ShowWindow(Application.hWndAccessApp, lngState)"
>
> but ShowWindow is undefined.  Is there a snip missing?
>
> 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
>