Openen enkel en alleen op het zoekformulier.

[danbec]

Hallo,

sinds kort werk ik met access 2007 en heb volgend probleem.
Mijn databank is volledig af en klaar voor gebruik.
Aangezien deze databank gebruikt zal worden door de bezoekers in onze leeszaal had ik graag gehad dat men deze enkel kon openen op het zoekformulier en niet dat men tabellen, queries enz enz kan zien of aanpassen.
Kan iemand mij zeggen hoe ik dit kan instellen in access 2007 zodoende dat men enkel het zoekformulier ziet en kan gebruiken.

Met dank bij voorbaat en vriendelijke groeten,

danbec.

 

[Guus2005]

ik heb te weinig ervaring met 2007 om je precies te vertellen waar alles zich bevindt. maar ik kan je vertellen hoe het gedaan zou worden in 2003:

Je moet de applicatie dicht timmeren. Verberg alle balken en het database window. zorg dat alle shortcuts niet te gebruiken zijn. F11 bijvoorbeeld geeft je toegang tot het database window. Zorg ervoor dat opstarten van de database met de shift toets ingedrukt geen effect heeft op de werking

Hieronder de code voor 2003. 1 keer runnen om je database in te stellen, de volgende keer dat je de database opstart staan je instelingen goed.

'------------------------------------------------------
'OPTIONAL FUNCTIONS TO DISABLE BYPASS KEY AND TOOLBARS
'------------------------------------------------------
Public Sub SetAdmin(Optional blnIsAdmin As Boolean = True)
    'Admin user gives access to all functionality.
    Const DB_Text As Long = 10
    Const DB_Boolean As Long = 1
'    ChangeProperty "StartupForm", DB_Text, "Customers"
    ChangeProperty "StartupShowDBWindow", DB_Boolean, blnIsAdmin
'    ChangeProperty "StartupShowStatusBar", DB_Boolean, blnIsAdmin
    ChangeProperty "AllowBuiltInToolbars", DB_Boolean, blnIsAdmin
    ChangeProperty "AllowFullMenus", DB_Boolean, blnIsAdmin
    ChangeProperty "AllowBreakIntoCode", DB_Boolean, blnIsAdmin
    ChangeProperty "AllowSpecialKeys", DB_Boolean, blnIsAdmin
    ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub

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

HTH