Probleme beim Starten von Access aus Excel
10.02.2004 14:44:51
Milan
Private Sub accessoeffnenbutton_Click()
Dim accApp As Object
Dim sfile As String
'Microsoft Access wird hier geöffnet
sfile = Range("A1").Value
If Dir("C:\Windows\Desktop\Dat\Kapaz04prakti.mdb") = "" Then
Beep
MsgBox "Datenbank nicht vorhanden"
Else
Set accApp = CreateObject("Access.Application")
accApp.OpenCurrentDatabase sfile
accApp.Run "Meldung"
accApp.Close CurrentDatabase
Set accApp = Nothing
End If
End Sub
Das ist das Makro und wenn ich in meinem Formular dann auf den Button klick kommt ein Laufzeitfehler '7886'. Ich weiss das ich Hilfe von Microsoft bekommen kann in dem ich in die Hilfe gucke, aber das versteht doch keine Sau ?**=??!"§$$§&&/(%$%=#) ??
Also kann mir jemand sagen wie ich den Fehler beheben kann???
Danke schon mal im Voraus, mfg milan