switchboard question

[jhahes]

Is there anyway to only have the switchboard screen on the screen

my switchboard screen pops up over the other main screen, is there anyway to minimize my other screen so only the switchboard screen is there, I don't want the switchboard screen to be maximized if can be avoided


thanks for any help



Josh

 

[gemma-the-husky]

one of the startup options is hide database window - i think that's what you mean (tools/startup)

 

[jhahes]

thank you, 1 more question

It worked, is there anyway to have the database window minimized at the bottom and the switchboard the active form?


thanks Josh

 

[jfgambit]

I believe this is what you are looking for. Add the following function to your database

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm

If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
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"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function

Then call it from the Load Event of your switchboard

Private Sub Form_Load()
On Error GoTo Err_Form_Load
    'Set Access Window to Application Mode
    
    Call fSetAccessWindow(0)
    
Exit_Form_Load:
    Exit Sub

Err_Form_Load:
    MsgBox Err.Description
    Resume Exit_Form_Load
    
End Sub