Access Laufzeitfehler 3078
Jule
habe in Excel ein Programm zum Export von "Abfragen" in einzelne Excel Dateien geschrieben. Die Formel hat auch geklappt, bis die Datenbank aktualisiert wurde und ich in das Dokument den Code eingefügt habe. Seitdem kommt immer der Laufzeitfehler 3078 findet Eingangstabelle nicht. Diese Eingangstabelle wird auch genannt dabei handelt es sich aber um ein Formular und keine Abfrage.
Das Programm:
Private Sub 1_Click( )
Dim dbs As DAO.Database
Dim tdef As DAO.QueryDef
Dim tdefs As DAO.QueryDefs
Set dbs = CurrentDb()
Set tdefs = dbs.QueryDefs
For Each tdef In tdefs
If Left(tdef.Name, 2) = "AB" Or Left(tdef.Name, 2) = "Ab" Then
On Error Resume Next
Kill "C:\...\" & tdef.Name & ".xls"
On Error GoTo 0
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, tdef.Name, "C:\...\"
& tdef.Name & ".xls", True, "Tabelle1"
End If
Next tdef
MsgBox ("Die Abfragen wurden erfolgreich exportiert!")
End Sub
Hoffe mir kann jemand helfen denn ich habe keine Ahnung wieso dieser Fehler auf einmal auftritt.