Access starten aus Excel per VBA
25.01.2016 11:41:01
Roman
Zielsetzung: Es soll aus Excel eine Access Datenbank geöffnet, ein Datensatz aktualisiert und die Datenbank dann wieder geschlossen werden. Das funktioniert soweit auch ganz gut, der Datensatz wird aktualisiert und Access geschlossen. Allerdings kann ich, zumindest solange Excel noch geöffnet ist, die Datenbank nicht mehr wie gewohnt per Doppelklick starten, es wird dann zwar eine .laccdb Datei angezeigt, aber Access bleibt unsichtbar. Dieses Verhalten kann ich mir nicht erklären, es scheint als würde Excel im Hintergrund trotzdem eine Verbindung zu Access aufrechterhalten bzw. Access blockieren.
Hier der Code:
Option Explicit
Sub test2()
Dim wb As DAO.Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Path As String
Path = "C:\Users\fcfriro\Desktop\Audit_Status_Monitor.accdb"
Set wb = DBEngine(0)
Set db = wb.OpenDatabase(Path)
Set rs = db.OpenRecordset("Test")
rs.Edit
rs!Status = "Test"
rs.Update
rs.Close
db.Close
wb.Close
Set rs = Nothing
Set db = Nothing
Set wb = Nothing
End Sub
Object Library, MS Access 14.0 Object Library und MS DAO 3.6 Object Library
Bin dankbar für jede Hilfe! Grüße Roman