Terugzetten van instellingen

[linkav]

In een bestaande applicatie staat volgende code

 If gblLanUser <> "Admin" Then
    ChangeProperty "StartupShowDBWindow", dbBoolean, False
    ChangeProperty "AllowFullMenus", dbBoolean, False
    ChangeProperty "AllowBypassKey", dbBoolean, False
    ChangeProperty "AllowToolbarChanges", dbBoolean, False
    ChangeProperty "AllowSpecialKeys", dbBoolean, False
    ChangeProperty "AllowBreakIntoCode", dbBoolean, False
    ChangeProperty "AllowShortcutMenus", dbBoolean, False
    ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
    ChangeProperty "StartupShowStatusbar", dbBoolean, False
    Me.Command22.Visible = False
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.RunCommand acCmdWindowHide
Else
    ChangeProperty "StartupShowDBWindow", dbBoolean, True
    ChangeProperty "AllowFullMenus", dbBoolean, True
    ChangeProperty "AllowBypassKey", dbBoolean, True
    ChangeProperty "AllowToolbarChanges", dbBoolean, True
    ChangeProperty "AllowSpecialKeys", dbBoolean, True
    ChangeProperty "AllowBreakIntoCode", dbBoolean, True
    ChangeProperty "allowshortcutmenus", dbBoolean, True
    ChangeProperty "AllowBuiltInToolbars", dbBoolean, True
    ChangeProperty "StartupShowStatusbar", dbBoolean, True
    Me.Command22.Visible = True
    DoCmd.ShowToolbar "Ribbon", acToolbarYes
End if

gblLanUser wordt gevuld vanuit een inlogscherm. Ik weet geen wachtwoord van een "administrator". Als ik opstart krijg ik geen enkele werkbalk meer.. Hoe kanik deze toch terugkrijgen. Het gaat om een access 2003 toepassing met werkgroepen.

 

[OctaFish]

Je logt dus in, niet als Admin, met als gevolg dat je niks meer mag. Maar je kunt wél in de VBA wijzigen? In dat geval zou ik de If er (tijdelijk) even tussenuit slopen zodat je alle Admin instellingen kunt uitvoeren. Of een ElseIf toevoegen voor je eigen inlogaccount.

 

[linkav]

Hallo Octafish,

Neen ik kan niet in de vba-code (dan had ik de code zelf kunnen aanpassen). Dit is code die de vorige programmeur ook gebruikt heeft in andere applicaties vandaar dat ik weet over welke code het gaat.

Dus de vraag blijft hoe kan ik alle werkbalken en instellen uitschakelen?

Hopelijk vind/weet iemand een oplossing.

 

[OctaFish]

Is de <Shift> key ook uitgeschakeld? Zo nee, dan kun je de db opstarten met de <Shift> toets ingedrukt.

 

[linkav]

De Shift> key is inderdaad ook !!!

 

[OctaFish]

Volgens mij heb je de zin niet afgemaakt, want er ontbreekt minstens één woord achter 'ook'. Of mogen we dat zelf gokken?

 

[linkav]

Sorry "De <Shift> key is inderdaad ook uitgeschakeld!!!

 

[OctaFish]

Daar was ik al bang voor. Heb je al een nieuwe db gemaakt en daar de tabellen in geïmporteerd? Of lukt dat ook niet?

 

[linkav]

Dat kan ik nog eens proberen... merci voor de tip...