Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
'       ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
'       ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
'       ?fSetAccessWindow(SW_HIDE)
'Normal window:
'       ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX  As Long
Dim loForm As Form
    On Error Resume Next
    Set loForm = Screen.ActiveForm
    If Err <> 0 Then 'no Activeform
      If nCmdShow = SW_HIDE Then
        MsgBox "Cannot hide Access unless " _
                    & "a form is on screen"
      Else
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
        Err.Clear
      End If
    Else
        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
    End If
    fSetAccessWindow = (loX <> 0)
End Function


Public Function HideNavPane() As Byte
    Select Case SauerUserStr
        Case "CENTENARY"
            DoCmd.SelectObject acTable, "MSysObjects", True
            DoCmd.RunCommand acCmdWindowHide
            
        Case "QUOTING"
            DoCmd.SelectObject acTable, "MSysObjects", True
            DoCmd.RunCommand acCmdWindowHide
            Form_Analysis.Modal = True
            
        Case "ENGINEERING"
            DoCmd.SelectObject acTable, "MSysObjects", True
            DoCmd.RunCommand acCmdWindowHide
            [Form_Part Detail].Modal = True
            
        Case Else
            DoCmd.SelectObject acTable, "MSysObjects", True
            DoCmd.RunCommand acCmdWindowHide
            [Form_Part Detail].Modal = True
            [Form_Analysis].Modal = True
    End Select
End Function



Public Sub ShowNavPane()
    Select Case SauerUserStr
        Case "CENTENARY"

        Case "QUOTING"
            DoCmd.SelectObject acTable, "MSysObjects", True
            DoCmd.RunCommand acCmdWindowUnhide
            Form_Analysis.Modal = False
            
        Case "ENGINEERING"
            DoCmd.SelectObject acTable, "MSysObjects", True
            DoCmd.RunCommand acCmdWindowUnhide
            [Form_Part Detail].Modal = False
            
        Case Else
            DoCmd.SelectObject acTable, "MSysObjects", True
            DoCmd.RunCommand acCmdWindowUnhide
            [Form_Part Detail].Modal = False
            [Form_Analysis].Modal = False
    End Select
End Sub



Public Sub HideRibbon()
    Select Case SauerUserStr
        Case "CENTENARY"
            DoCmd.ShowToolbar "Ribbon", acToolbarNo
            
        Case "QUOTING"
            DoCmd.ShowToolbar "Ribbon", acToolbarNo
            
        Case "ENGINEERING"
            DoCmd.ShowToolbar "Ribbon", acToolbarNo
            
        Case Else
            DoCmd.ShowToolbar "Ribbon", acToolbarNo
    End Select
End Sub



Public Sub ShowRibbon()
    Select Case SauerUserStr
        Case "CENTENARY"
            
        Case "QUOTING"
            DoCmd.ShowToolbar "Ribbon", acToolbarYes
            
        Case "ENGINEERING"
            DoCmd.ShowToolbar "Ribbon", acToolbarYes
            
        Case Else
            DoCmd.ShowToolbar "Ribbon", acToolbarYes
    End Select
End Sub