Status Bar

[KenHigg]

Does anyone know how turn the status bar off with code. I need to turn it off when the main form opens. Then when it closes I need it to come back on...

Thanks,
Ken

 

[___]

You could try playing with this....

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

To view...

    ChangeProperty "StartupShowStatusBar", DB_BOOLEAN, True

and to switch off...

    ChangeProperty "StartupShowStatusBar", DB_BOOLEAN, False

HTH

 

[KenHigg]

Wow. Thanks. I'll give it a whirl!


Ken

 

[ghudson]

'enable status bar

Application.SetOption "Show Status Bar", True

'hide status bar

Application.SetOption "Show Status Bar", False

'Use this if you want to display a custom message in the status bar...

Dim RetVal As Variant
Application.SetOption "Show Status Bar", True 'only if it is was hidden
RetVal = SysCmd(acSysCmdSetStatus, "Testing... 1, 2, 3")

'This will clear the status bar...

RetVal = SysCmd(acSysCmdClearStatus)

 

[KenHigg]

Application.SetOption "Show Status Bar", False

Perfect - Cool. Thanks

(I was having a time trying to figure out what the other code was doing )


Ken

 

[ghudson]

I only use the ChangeProperty to create or modify the StartUp options.