Danke eknori!
Jetzt wird die Access - Datenbank in Access geöffnet.
Aber leider nur ganz kurz, genauer gesagt nur solange, bis die Funktion verlassen wird.
Hier ist ein Auszug aus meinem bisherigen Code, wobei alle Anwendungen (bis auf Access) nach Verlassen der Funktion auch geöffnet bleiben. Woran könnte denn das noch liegen?
...
Select Case fileExt
Case Is = "doc"
Set Word = CreateObject( "Word.Application")
Word.Visible = True
Word.documents.Open path & fileName
Case Is = "dot"
Set Word = CreateObject( "Word.Application")
Word.Visible = True
Word.documents.Open path & fileName
Case Is = "xls"
Set Excel = CreateObject( "Excel.Application")
Excel.Visible = True
Excel.Workbooks.Open path & fileName
Case Is = "ppt"
Set Pwrpoint = CreateObject( "Powerpoint.Application")
Pwrpoint.Visible = True
Pwrpoint.Presentations.Open path & fileName
Case Is = "mdb"
Set Acess = CreateObject( "Access.Application")
Acess.Visible = True
Acess.OpenCurrentDatabase (path & fileName)
Case Else
Messagebox "Unerlaubter Dateityp"
End Select
...