Shift+Open virker ikke

Er du sikker på, at du trykker SHIFT lang tid nok til at db er åbnet?
Jeg var ude for det iaftres, hvor en langsom db skulle have SHIFT påvirket indtil jeg så selve databasevinduet.

Se i menuen Vindue, hvis den er der, om du kan se databasevinduet på listen.

Se i menuen funktionen, hvis den er der, om du kan se punktet Start


Læs her hvordan man styrer om SHift+open kan virke: http://www.mvps.org/access/general/gen0040.htm

Det vil muligvis være muligt at åbne databasen via noget vbscript, jeg kan muligvis finde noget til dig i morgen.

Hej Idanielsen,- det lyder godt om du kunne hæjlpe mig!

Jeg har noget kode på jobbet, så måske på mandag

Gem dette i en fil med extention vbs. dobbeltklik på den.

Husk at arbejde på en kopi





option explicit

Dim strDatabasePath

call RunIt

Sub RunIt

    strDatabasePath = OpenFile("Access Database (*.mdb)|*.mdb", "", "Hvor er DB'en?")
    if strDatabasePath = vbNullString then
        MsgBox("Du skal vælge en fil")
        Exit Sub
    else
        call UnlockIt (strDatabasePath)
        MsgBox("Færdig!")
    end if
End Sub


Sub UnlockIt (strDatabasepath)

    Dim objAccess
   
    Set objAccess = CreateObject("Access.Application.11")
   
    objAccess.OpenCurrentDatabase strDatabasepath

    objAccess.CurrentDb.Properties.Delete("AllowBypassKey")
    Dim prp
    Set prp = objAccess.CurrentDb.CreateProperty("AllowBypassKey", 1, True)
    objAccess.CurrentDb.Properties.Append prp
   
    objAccess.CurrentDb.Properties("StartUpShowDBWindow") = True
    objAccess.CurrentDb.Properties("AllowShortcutMenus") = True
    objAccess.CurrentDb.Properties("AllowFullMenus") = True
    objAccess.CurrentDb.Properties("AllowBuiltInToolBars") = True
    objAccess.CurrentDb.Properties("AllowSpecialKeys") = True
   
    objAccess.CloseCurrentDatabase
   
    Set objAccess = Nothing
   
end sub



Function OpenFile(strFilter, strDirectory, strTitle)
    Const cdlOFNExplorer = &H80000
    Const cdlOFNFileMustExist = &H1000
    Const cdlOFNHideReadOnly = &H4
    Const cdlOFNPathMustExist = &H800

    Dim objCD

    Set objCD = CreateObject("MSComDlg.CommonDialog")

    With objCD
        .MaxFileSize = 260
        .Flags = cdlOFNExplorer AND cdlOFNFileMustExist AND cdlOFNHideReadOnly AND cdlOFNPathMustExist

        .DialogTitle = strTitle
        .InitDir = strDirectory
        .Filter = strFilter

        .ShowOpen

        OpenFile = .FileName
    End With

    Set objCD = nothing 

End Function

Det vil straks blive prøvet. Tak for hjælp

Idanielsen: Spørgsmål:
1) Kopieres koden ind i notepad og gemmes med extension vbs (eks AccessDB.vbs)?
2) Flg linie:
  strDatabasePath = OpenFile("Access Database (*.mdb)|*.mdb", "", "Hvor er DB'en?")
  Vil den korrekt se sådan ud,- om min DB ligger på C:\
  strDatabasePath = OpenFile("AccessDB (*.mdb)|*.mdb", "", "C:\")

1) Ja
2) Du skal ikke rette i koden. Nævnte linie vil åbne i en Open File-dialog, hvor du kan vælge databasen. "Hvor er DB'en?" er bare den tekst der kommer til at stå i titellinien