VBA Code zum Schließen einer Access-Datenbank Ohne eine Shell von der Anwendung geöffnet

Ich bin derzeit mit Application.Quit bleibt eine shell mit der MS-Access-Anwendung öffnen.

Nach der Verarbeitung der aufrufenden Funktion gegen die Zielanwendung, ich bin Links mit jeder Instanz der Anwendung geöffnet bleibt immer noch; obwohl die spezifischen Datenbank-Instanz geschlossen ist.

Wie kann ich die Datenbank 'shell' - Anwendung Fenster schließen programmgesteuert mithilfe von VBA?

Hier ist ein Beispiel, wie die variable erstellt wird und wie ich am Schluss es:

Dim appAccess As New Access.Application

' Do stuff here...

appAccess.CloseCurrentDatabase
  • Wie sind Sie mit der Berufung auf diese 50 Muscheln? Hast du Sie öffnen jedes dieser manuell, oder wurden Sie eröffnet durch code?
  • Eröffnet von code.
InformationsquelleAutor | 2012-09-17
  1. 4

    Müssen Sie zum ausführen der Anwendung.Beenden Sie für die Instanz-variable.

    Beispielsweise

    Dim appAccess As New Access.Application

' Do stuff here...

appAccess.Application.Quit
    InformationsquelleAutor Curtis Inderwiesche
  2. 9

    Gemäß der Dokumentation: - Anwendung.Beenden macht das gleiche wie DoCmd.Beenden. Nämlich

    Die Quit-Methode beendet Microsoft Access. Sie können wählen Sie eine von mehreren
    Optionen für das speichern einer Datenbank-Objekt vor dem beenden.

    Können Sie versuchen den Aufruf mit dem parameter acQuitSaveNone oder 2, die "Microsoft Access Beendet, ohne zu speichern alle Objekte". Nach einer erneuten überprüfung verwenden Application.Quit als DoCmd.Quit war Hinzugefügt, um die Abwärtskompatibilität für Access 95 (Siehe Bemerkungen für die Quit-Methode, bezieht sich auf die DoCmd-Objekts.) Tun, entweder von diesen, sollte noch eine automatische komprimieren auf schließen, wenn Sie die Berechtigungen haben, die verursachen können Sie Muscheln.

    Wenn das nicht funktioniert, für Sie, hier ist ein etwas extremer Vorschlag. Speichern Sie diese als eine vbscript-Datei und rufen Sie es einmal, Sie sind wirklich fertig mit Access. Dieser beendet alle MSAccess Prozesse auf Ihrem windows-pc ohne zu komprimieren und reparieren.

    strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_Process WHERE Name = 'msaccess.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next

    Rufen Sie das Skript einbauen [vbspath] durch den tatsächlichen Pfad. Wenn der Pfad Leerzeichen enthält, stellen Sie sicher, dass doppelte Anführungszeichen verwenden, und setzen Sie es in Anführungszeichen:

    shell "cscript [vbspath]"
    InformationsquelleAutor Daniel
  3. 5

    Ich benutze immer DoCmd.Quit acQuitSaveAll.

    Dies funktioniert zumindest in Access 2000, 2003 und 2010 (das ist, wo ich gesehen es funktioniert).

    InformationsquelleAutor Christian Specht
  4. 4

    Access.Quit für mich funktioniert. Vielleicht versuchen Sie, die statt Application.Quit?

    Wenn das nicht zu lösen, kann das problem woanders sein, in dem Fall bitte erzählen Sie uns mehr über dieses Projekt.

    InformationsquelleAutor PowerUser
  5. 2

    DoCmd.Beenden Sie acQuitSaveAll, Arbeitete lange dauern. Ich habe versucht, alle anderen Optionen vor und eine shell hängen noch zurück.

    InformationsquelleAutor JAcob
  6. 1

    Wechseln Sie das Formular in Entwurfsansicht.
    Set form BorderStyle Eigenschaft None.
    Auf der Ansicht - Menü, klicken Sie auf Formularansicht. Beachten Sie, dass die form der Titelleiste wird vollständig entfernt.

    InformationsquelleAutor Adam Arian
  7. 0

    Meinst du es verlässt cmd.exe shell-Fenster öffnen nach dem scheinbar schlichten, und einen MSACCESS.EXE Prozess läuft im hintergrund in der TaskList? Und die shell aufgerufen wird, ist im hintergrund?

    InformationsquelleAutor dmc2005
Schreibe einen Kommentar