Menus/toolbars

[Tomm]

Hi all.

I created a db for someone in work, so closed it down so they couldn't edit it.

Evidently, they have googled how to open it holding down shift.

They have changed something and now I can't get the File/Edit/Tools menu back.

I need to change the form that is loaded on startup.

How do I get this menu back?

Cheers

 

[ezfriend]

Public Sub ResetDatabase()

    Dim acApp As Access.Application
    Dim i As Long
    
    Set acApp = New Access.Application
   
    acApp.OpenCurrentDatabase "c:\temp\mydb.mdb"
    acApp.Visible = true
    
    'show database windows
    acApp.DoCmd.SelectObject acTable, , True

    'show all the tool bar menu
    acApp.DoCmd.ShowToolbar "Menu Bar", acToolbarYes
    acApp.CurrentDb.Properties("AllowFullMenus") = True

    For i = 1 To acApp.CommandBars.Count
        acApp.CommandBars(i).Enabled = True
    Next i
    
    Set acApp = Nothing
    
    MsgBox "Database has been reset", vbInformation
    
End Sub

 

[Singh400]

Open it using shift method. Change what you want in Tools > StartUp

 

[irish634]

Evidently, they have googled how to open it holding down shift.

In my previous job, once one person figure out the bypass key, it wasn't very long until EVERYONE knew about it, so I learned to disable it rather quickly. They were bypassing everything in all the databases we had. Needless to say it became a data integrity nightmare. I understand what you're going through.

Once disabled, I had to enter a password in order to enable it again. To make sure I disabled it again, I only allowed 1 instance of opening and then disabled it again.

Good Luck