Hallo zusammen,
ich würde gerne eine Datenbank per Button aus einem Formular heraus öffnen, bekomme es aber irgendwie nicht geregelt.
Private Sub Befehl0_Click()
Dim strPath As String
Dim oAcsApp As Access.Application
On Error Resume Next
strPath$ = CurrentProject.Path
Set oAcsApp = CreateObject("Access.Application") 'Access starten
oAcsApp.Visible = True
oAcsApp.OpenCurrentDatabase strPath$ & "\Monitoring AI _ NEU - FrontEnd v1.19.accdb", True
oAcsApp.DoCmd.OpenForm "Start"
Set oAcsApp = Nothing
On Error GoTo 0
End Sub
Habe den beigefügten Code im Internet gefunden, welcher funktionieren soll. Bei mir tut er es aber nicht.
Es zuckt kurz was auf und dann stehe ich im gleichen Formular wie vorher auch schon.
Hat jemand eine Idee/Lösung ?
Vorab schon einmal vielen Dank
Hallo,
dein Code öffnet keine Datenbank, sondern eine Access Anwendung.
Das ist nicht das Gleiche.
Die "On Error Resume Next" führt dazu, dass Access dich nicht informiert, falls deine verwendeten Konstanten nicht korrekt sind.
Nimm sie also raus.
Das ist grober Unfug.
Aber im Prinzip können nur zwei Dinge falsch sein.
Der Pfad, oder das Formular existiert nicht - hast du beides geprüft?
Deine Objektvariable ist in der Sub deklariert. Wenn die Sub nach Durchlauf endet: Was glaubst Du passiert da damit?