Hiding the Access 2013 Application during database use...

[sooli]

how in the world do i hide the database window? The thing takes up the whole screen, all my users need are the forms I created... used to be a check box that would let you not display the application... that feature seems to be gone in 2013 =/

[sooli]

well, the sql option is not really an option - I have the file on the server it resides locked down so no one on the outside can get in, but what I am having issues with now is the pesky navigation screen giving access to all the tables if a user happens to figure out how to bring it back. All the linked tables are accessible if the navigation pane is unlocked, which is easy to do, just hold shift while opening the front end. I only have 2 groups of folks, Admins and the users... and I have that separated by a password. I discovered I could hide the linked tables from view if the navigation pain happens to be unlocked... just wasn't sure if it would cause any issues. Being that I work 3rd shift, and the only other person I can use as a guinea pig is a "user" I didn't want to go that route to verify it would still provide access to input like it is supposed to. It looks like it works... so I guess I'll just give it a run for a little while and see how it goes.

In order for my users to be able to input data, they have to have read write access to the folder the database is in right? And even if I could modify that, I don't think it has any bearings on their ability to open the "linked" tables in the application.

Thanks everyone for your input and suggestions... IF anyone figures out a work around for the AERO PEEK issue... please let me know.

[twinnyfo]

Try this:

Public Sub DisableByPass()
    ChangeProperty "AllowBypassKey", dbBoolean, False
End Sub
Private Function ChangeProperty(strPropertyName As String, _
    varPropertyType As Variant, varPropertyValue As Variant) As Integer
On Error GoTo Err_ChangeProperty
    Dim dbACC As DAO.Database
    Dim prpProperty As Property
 
    Set dbACC = CurrentDb()
 
    'Property exists, so set its Value
    dbACC.Properties(strPropertyName) = varPropertyValue
    ChangeProperty = True
 
Exit_ChangeProperty:
    Set dbACC = Nothing
    Exit Function
 
Err_ChangeProperty:
    If Err.Number = 3270 Then       'Property not found
        'Since the Property isn't found, create it!
        Set prpProperty = _
            dbACC.CreateProperty(strPropertyName, varPropertyType, varPropertyValue)
        dbACC.Properties.Append prpProperty
        Resume Next
    Else
        'Unknown Error
        ChangeProperty = False
        Resume Exit_ChangeProperty
    End If
End Function

This will disable the Shift-Key workaround.

[Rabbit]

Because of the nature of Access, anything that you do can be undone by a user. Even disabling the shift key bypass.

Because of this drawback to Access, it is highly recommended not to use Access if there is a real need for security.

[NeoPa]

Making the Database Window hidden via code can be done by first selecting something in the window, then hiding that window. Here's some code for that :

Call Application.Echo(EchoOn:=False)
Call DoCmd.SelectObject(ObjectType:=acForm, InDatabaseWindow:=True)
Call DoCmd.RunCommand(Command:=acCmdWindowHide)
Call Application.Echo(EchoOn:=True)

This uses calls to Application.Ech o() because when this code is run when the window is already hidden it can cause a flicker.