Office: (Office 2013) Laufzeitfehler #3265 unter Access 2013

RookieOne · 30. August 2014

Hallo in die Runde,

aus einer Access 2003-Datenbank habe ich in eine neue Access 2013-Datenbank das nachfolgende Modul übernommen:

Es übernimmt im Prinzip aus zwei externen Datenbanken Daten in eine gemeinsame Tabelle tblDatenpool.

Dabei wird insb. bei einer der Vor-Datenbanken (VWneu97.mdb) geprüft, ob sie in Verwendung - also gesperrt - ist.

Ist das der Fall, wird mit der bestehenden Datenpool-Tabelle gearbeitet. Ist die VW-Datenbank nicht gesperrt, wird die Datenpool-Tabelle per DROP TABLE gelöscht, neu angelegt, indiziert und befüllt.

Das klappt unter Access 2003 auch alles reibungslos. Nur unter Access 2013 kommt es zum Laufzeitfehler 3265 (Element in dieser Auflistung nicht gefunden).

Leider zeigt der VBA-Editor nicht, an welcher Stelle nun der Fehler im Code auftritt und verlässt die Funktion (Exit Function am Ende des Codes).

Vielleicht hat jemand von euch eine Idee, wie ich hier weiter vorgehen muss.

Gruß, Daniel

Code:

Option Compare Database
Option Explicit

Public Function DatenIntegration()

Dim db As Database
On Error GoTo DatenIntegration_Error

Set db = CurrentDb

' Eieruhr an
DoCmd.Hourglass True

' Prüfung, ob ldb der VW-Quelltabelle vorhanden ist
If LdbExists("K:\VW\VWDB\VWneu97.mdb") = True Then
MsgBox "Quell-DB 'K:\VW\VWDB\VWneu97.mdb' ist gesperrt", vbCritical
MsgBox "Quelltabelle gesperrt. Datenzugriff nur auf Daten vom " & db.TableDefs("tblDatenpool").LastUpdated & "!", vbExclamation
ElseIf LdbExists("K:\VW\VWDB\VWneu97.mdb") = False Then
MsgBox "Daten werden eingelesen", vbInformation

If MsgBox("Es stehen Daten vom " & db.TableDefs("tblDatenpool").LastUpdated & " bereit." & Chr$(10) & Chr$(13) & "Soll versucht werden, neue Daten einzulesen?" & Chr$(10) & Chr$(13) & "(Lange Ladezeit möglich!)", vbYesNo + vbQuestion, "Datenbestand aktualisieren") = vbNo Then Exit Function

' Prüfung, ob Tabelle tblDatenpool bereits vorhanden ist
If TableExists("tblDatenpool") = True Then

' Löschen der Tabelle tblDatenpool
db.Execute "DROP TABLE tblDatenpool", dbFailOnError

' Erstellen der Tabelle tblDatenpool
db.Execute "CREATE TABLE tblDatenpool(" & _
"ID COUNTER, " & _
"FK_VN INTEGER, " & _
"FK_ZN INTEGER, " & _
"Datum DATETIME, AktenNr TEXT (255), Einrichtung TEXT (255), FK_Einr INTEGER, Institut TEXT (255), " & _
"Antragsteller TEXT (255), Vorhaben LONGTEXT, Beschreibung LONGTEXT, Gesamtkosten CURRENCY, ZuwBetrag CURRENCY, " & _
"Programm TEXT (255), MCode TEXT (255), DFG INTEGER, NUTS TEXT (255), Mittelherkunft TEXT (255))", dbFailOnError

' Indizierung der Tabelle tblDatenpool
db.Execute "CREATE INDEX idxDatum ON tblDatenpool(Datum)", dbFailOnError
db.Execute "CREATE INDEX idxEinr ON tblDatenpool(FK_Einr) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxAntragsteller ON tblDatenpool(Antragsteller) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxBezeichnung ON tblDatenpool(Vorhaben, Beschreibung) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxFProg ON tblDatenpool(Programm) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxMCode ON tblDatenpool(MCode) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxDFG ON tblDatenpool(DFG) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxNUTS ON tblDatenpool(NUTS) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxMHerk ON tblDatenpool(Mittelherkunft) WITH IGNORE NULL", dbFailOnError

' Anfügen der Daten aus TGrp. 71 und 74
db.Execute "INSERT INTO tblDatenpool (FK_VN, FK_ZN, Datum, AktenNr, Einrichtung, FK_Einr, Institut, Antragsteller, Vorhaben, Beschreibung, Gesamtkosten, ZuwBetrag, Programm, MCode, DFG, NUTS, Mittelherkunft) " & vbCrLf & _
"SELECT tblWF_Vorm.PK_VN, tblWF_Zuw.PK_ZN, tblWF_Zuw.ZuwDat, tblWF_Zuw.AzZuw, tblWF_Zuw.EinrZuw, tblWF_Zuw.FK_Einr, tblWF_Zuw.OE_Zuw, Trim(([tblWF_Zuw].[AkadTitelZuw]+"" "") & ([tblWF_Zuw].[VornameZuw]) & ("" ""+[tblWF_Zuw].[ZusatzZuw]) & ("" ""+[tblWF_Zuw].[ZunameZuw])) AS Antragsteller, tblWF_Zuw.KurzBezZuw, tblWF_Vorm.LangBez, tblWF_Vorm.GesKosten, tblWF_Zuw.ZuwBetrag, tblFProg.Programm, tblWF_Vorm.MCode, tblWF_Vorm.DFG, tblWF_Vorm.NUTS, Right([tblWF_Zuw].[HSt],2) AS MHerkunft " & vbCrLf & _
"FROM tblWF_Vorm INNER JOIN (tblWF_Zuw LEFT JOIN tblFProg ON tblWF_Zuw.FProgZuw = tblFProg.PID) ON tblWF_Vorm.PK_VN = tblWF_Zuw.FK_VN;", dbFailOnError

' Anfügen der Daten aus VW VORAB
db.Execute "INSERT INTO tblDatenpool (FK_VN, FK_ZN, Datum, AktenNr, Einrichtung, FK_Einr, Institut, Antragsteller, Vorhaben, Beschreibung, Gesamtkosten, ZuwBetrag, Programm, MCode, DFG, NUTS, Mittelherkunft) " & vbCrLf & _
"SELECT tblVW_Vorm.Vormerknummer, tbl_VWZuw.Zuweisungsnummer, tbl_VWZuw.[Datum Erlaß], tbl_VWZuw.Aktenzeichen, tbl_VWZuw.Hochschule, tbl_VWZuw.PK_Einr, tblVW_Vorm.Institut, tbl_VWZuw.Professor, tbl_VWZuw.[Gegenstand Erlaß], tblVW_Vorm.Maßnahme, tblVW_Vorm.[Gesamtkosten EURO], tbl_VWZuw.[Zuweisungsbetrag EURO], tblVW_Vorm.Strukturlinie, tblVW_Vorm.MCode, tblVW_Vorm.[DFG Syst], tbl_VWZuw.NUTS, tblVW_Vorm.FK " & vbCrLf & _
"FROM tblVW_Vorm RIGHT JOIN tbl_VWZuw ON tblVW_Vorm.Vormerknummer = tbl_VWZuw.Vormerknummer;", dbFailOnError

MsgBox "Datenintegration abgeschlossen", vbInformation

' Falls die Tabelle tblDatenpool fehlt ...
ElseIf TableExists("tblDatenpool") = False Then

' Erstellen der Tabelle tblDatenpool
db.Execute "CREATE TABLE tblDatenpool(" & _
"ID COUNTER, " & _
"FK_VN INTEGER, " & _
"FK_ZN INTEGER, " & _
"Datum DATETIME, AktenNr TEXT (255), Einrichtung TEXT (255), FK_Einr INTEGER, Institut TEXT (255), " & _
"Antragsteller TEXT (255), Vorhaben LONGTEXT, Beschreibung LONGTEXT, Gesamtkosten CURRENCY, ZuwBetrag CURRENCY, " & _
"Programm TEXT (255), MCode TEXT (255), DFG INTEGER, NUTS TEXT (255), Mittelherkunft TEXT (255))", dbFailOnError

' Indizierung der neuen Tabelle tblDatenpool
db.Execute "CREATE INDEX idxDatum ON tblDatenpool(Datum)", dbFailOnError
db.Execute "CREATE INDEX idxEinr ON tblDatenpool(FK_Einr) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxAntragsteller ON tblDatenpool(Antragsteller) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxBezeichnung ON tblDatenpool(Vorhaben, Beschreibung) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxFProg ON tblDatenpool(Programm) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxMCode ON tblDatenpool(MCode) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxDFG ON tblDatenpool(DFG) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxNUTS ON tblDatenpool(NUTS) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxMHerk ON tblDatenpool(Mittelherkunft) WITH IGNORE NULL", dbFailOnError

' Anfügen der Daten aus TGrp. 71 und 74
db.Execute "INSERT INTO tblDatenpool (FK_VN, FK_ZN, Datum, AktenNr, Einrichtung, FK_Einr, Institut, Antragsteller, Vorhaben, Beschreibung, Gesamtkosten, ZuwBetrag, Programm, MCode, DFG, NUTS, Mittelherkunft) " & vbCrLf & _
"SELECT tblWF_Vorm.PK_VN, tblWF_Zuw.PK_ZN, tblWF_Zuw.ZuwDat, tblWF_Zuw.AzZuw, tblWF_Zuw.EinrZuw, tblWF_Zuw.FK_Einr, tblWF_Zuw.OE_Zuw, Trim(([tblWF_Zuw].[AkadTitelZuw]+"" "") & ([tblWF_Zuw].[VornameZuw]) & ("" ""+[tblWF_Zuw].[ZusatzZuw]) & ("" ""+[tblWF_Zuw].[ZunameZuw])) AS Antragsteller, tblWF_Zuw.KurzBezZuw, tblWF_Vorm.LangBez, tblWF_Vorm.GesKosten, tblWF_Zuw.ZuwBetrag, tblFProg.Programm, tblWF_Vorm.MCode, tblWF_Vorm.DFG, tblWF_Vorm.NUTS, Right([tblWF_Zuw].[HSt],2) AS MHerkunft " & vbCrLf & _
"FROM tblWF_Vorm INNER JOIN (tblWF_Zuw LEFT JOIN tblFProg ON tblWF_Zuw.FProgZuw = tblFProg.PID) ON tblWF_Vorm.PK_VN = tblWF_Zuw.FK_VN;", dbFailOnError

' Anfügen der Daten aus VW VORAB
db.Execute "INSERT INTO tblDatenpool (FK_VN, FK_ZN, Datum, AktenNr, Einrichtung, FK_Einr, Institut, Antragsteller, Vorhaben, Beschreibung, Gesamtkosten, ZuwBetrag, Programm, MCode, DFG, NUTS, Mittelherkunft) " & vbCrLf & _
"SELECT tblVW_Vorm.Vormerknummer, tbl_VWZuw.Zuweisungsnummer, tbl_VWZuw.[Datum Erlaß], tbl_VWZuw.Aktenzeichen, tbl_VWZuw.Hochschule, tbl_VWZuw.PK_Einr, tblVW_Vorm.Institut, tbl_VWZuw.Professor, tbl_VWZuw.[Gegenstand Erlaß], tblVW_Vorm.Maßnahme, tblVW_Vorm.[Gesamtkosten EURO], tbl_VWZuw.[Zuweisungsbetrag EURO], tblVW_Vorm.Strukturlinie, tblVW_Vorm.MCode, tblVW_Vorm.[DFG Syst], tbl_VWZuw.NUTS, tblVW_Vorm.FK " & vbCrLf & _
"FROM tblVW_Vorm RIGHT JOIN tbl_VWZuw ON tblVW_Vorm.Vormerknummer = tbl_VWZuw.Vormerknummer;", dbFailOnError

MsgBox "Datenintegration abgeschlossen", vbInformation

End If
End If

' Eieruhr aus
DoCmd.Hourglass False

On Error GoTo 0
Exit Function

DatenIntegration_Error:
MsgBox "Fehler " & Err.Number & " (" & Err.Description & ") in Prozedur DatenIntegration von Modul mdlDatenIntegration"

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

fraeser · 31. August 2014

Nimm zunächst mal das "On Error..." raus, um zu sehen, wo der Fehler auftritt...

ebs17 · 31. August 2014

Leider zeigt der VBA-Editor nicht, an welcher Stelle nun der Fehler im Code auftritt und verlässt die Funktion (Exit Function am Ende des Codes).
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn Du Deine Fehlerbehandlung zwischenzeitlich deaktivierst, könnte der Debugger ursprünglich arbeiten und dann auch die Fehlerzeile markieren.

Weitere Hinweise:
Code:

If LdbExists( ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Existieren einer LDB zu einer MDB bedeuted noch keine Sperrung der MDB (abgesehen von einem exklusiven Zugriff), sondern nur deren Verwendung, also z.B. auch lesende Zugriffe.

Mit einer besseren Codeformatierung (=> SmartIdenter) könnte man besser der Logik (verschachtelte If) folgen.

Indizes beschleunigen das Lesen von Daten, bremsen aber beim Schreiben. Daher würde ich bei der Neuerstellung der Tabelle erst die Daten anfügen und danach die Indizes setzen.

RookieOne · 1. September 2014

Hallo, Jan,
hallo, Eberhard,

die Fehlerbehandlung habe ich herausgenommen und konnte die Ursache beheben: Ich hatte die Datenpool-Tabelle in tblDatenpool_ umbenannt *redface ... nun funktioniert es.

Bzw. auch nicht.

Denn wenn nun das CREATE TABLE-SQL-Statement ausgeführt werden soll, meldet Access, das die Tabelle tblDatenpool bereits besteht.

Code:

db.Execute "CREATE TABLE tblDatenpool(" & _
"ID COUNTER, " & _
"FK_VN INTEGER, " & _
"FK_ZN INTEGER, " & _
"Datum DATETIME, AktenNr TEXT (255), Einrichtung TEXT (255), FK_Einr INTEGER, Institut TEXT (255), " & _
"Antragsteller TEXT (255), Vorhaben LONGTEXT, Beschreibung LONGTEXT, Gesamtkosten CURRENCY, ZuwBetrag CURRENCY, " & _
"Programm TEXT (255), MCode TEXT (255), DFG INTEGER, NUTS TEXT (255), Mittelherkunft TEXT (255))", dbFailOnError
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dbFailOnError gibt dabei den Wert 128 zurück.

Gruß, Daniel

ebs17 · 1. September 2014

Wenn Du zuvor die richtige Tabelle gelöscht hast, musst Du vielleicht noch die Tabellenauflistung aktualisieren.
Code:

db.TableDefs.Refresh
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anne Berg · 1. September 2014

Hallo,

wozu das (ständige) Neuanlegen der Tabelle? Das sollte eine einmalige Aktion sein. Wenn sie existiert kannst du die alten Datensätze löschen vor dem Einfügen der neuen.

Des weiteren sollte es genügen, das Vorhandensein der ldb-Datei einmal zu prüfen. Wenn sie nicht existiert ist sie nicht vorhanden, es genügt also ein einfaches ELSE.

RookieOne · 2. September 2014

Hallo, Eberhard,

Code:

db.TableDefs.Refresh
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

brachte keine Änderung. Access haut mich im inneren ELSE IF-Abschnitt beim CREATE TABLE wieder heraus.

Anbei noch einmal der Code, diesmal mit Smart Indenter eingerückt und nach deinen Empfehlungen umgestellt:

Code:

Option Compare Database
Option Explicit

Public Function DatenIntegration()

Dim db As Database
Dim vw_path As String
'On Error GoTo DatenIntegration_Error

Set db = CurrentDb
'vw_path = "K:\VW\VWDB\VWneu97.mdb"
vw_path = "C:\Users\Daniel Schunk\Documents\VWDB\VWneu97.mdb"

' Eieruhr an
DoCmd.Hourglass True

' Prüfung, ob ldb der VW-Quelltabelle vorhanden ist
If LdbExists(vw_path) = True Then
MsgBox "Quell-DB " & vw_path & " ist gesperrt", vbCritical
MsgBox "Quelltabelle gesperrt. Datenzugriff nur auf Daten vom " & db.TableDefs("tblDatenpool").LastUpdated & "!", vbExclamation
Else
MsgBox "Daten werden eingelesen", vbInformation

If MsgBox("Es stehen Daten vom " & db.TableDefs("tblDatenpool").LastUpdated & " bereit." & Chr$(10) & Chr$(13) & "Soll versucht werden, neue Daten einzulesen?" & Chr$(10) & Chr$(13) & "(Lange Ladezeit möglich!)", vbYesNo + vbQuestion, "Datenbestand aktualisieren") = vbNo Then Exit Function

' Prüfung, ob Tabelle tblDatenpool bereits vorhanden ist
If TableExists("tblDatenpool") = True Then

' Löschen der Tabelle tblDatenpool
db.Execute "DROP TABLE tblDatenpool", dbFailOnError

db.TableDefs.Refresh

' Erstellen der Tabelle tblDatenpool
db.Execute "CREATE TABLE tblDatenpool(" & _
"ID COUNTER, " & _
"FK_VN INTEGER, " & _
"FK_ZN INTEGER, " & _
"Datum DATETIME, AktenNr TEXT (255), Einrichtung TEXT (255), FK_Einr INTEGER, Institut TEXT (255), " & _
"Antragsteller TEXT (255), Vorhaben LONGTEXT, Beschreibung LONGTEXT, Gesamtkosten CURRENCY, ZuwBetrag CURRENCY, " & _
"Programm TEXT (255), MCode TEXT (255), DFG INTEGER, NUTS TEXT (255), Mittelherkunft TEXT (255))", dbFailOnError

' Anfügen der Daten aus TGrp. 71 und 74
db.Execute "INSERT INTO tblDatenpool (FK_VN, FK_ZN, Datum, AktenNr, Einrichtung, FK_Einr, Institut, Antragsteller, Vorhaben, Beschreibung, Gesamtkosten, ZuwBetrag, Programm, MCode, DFG, NUTS, Mittelherkunft) " & vbCrLf & _
"SELECT tblWF_Vorm.PK_VN, tblWF_Zuw.PK_ZN, tblWF_Zuw.ZuwDat, tblWF_Zuw.AzZuw, tblWF_Zuw.EinrZuw, tblWF_Zuw.FK_Einr, tblWF_Zuw.OE_Zuw, Trim(([tblWF_Zuw].[AkadTitelZuw]+"" "") & ([tblWF_Zuw].[VornameZuw]) & ("" ""+[tblWF_Zuw].[ZusatzZuw]) & ("" ""+[tblWF_Zuw].[ZunameZuw])) AS Antragsteller, tblWF_Zuw.KurzBezZuw, tblWF_Vorm.LangBez, tblWF_Vorm.GesKosten, tblWF_Zuw.ZuwBetrag, tblFProg.Programm, tblWF_Vorm.MCode, tblWF_Vorm.DFG, tblWF_Vorm.NUTS, Right([tblWF_Zuw].[HSt],2) AS MHerkunft " & vbCrLf & _
"FROM tblWF_Vorm INNER JOIN (tblWF_Zuw LEFT JOIN tblFProg ON tblWF_Zuw.FProgZuw = tblFProg.PID) ON tblWF_Vorm.PK_VN = tblWF_Zuw.FK_VN;", dbFailOnError

' Anfügen der Daten aus VW VORAB
db.Execute "INSERT INTO tblDatenpool (FK_VN, FK_ZN, Datum, AktenNr, Einrichtung, FK_Einr, Institut, Antragsteller, Vorhaben, Beschreibung, Gesamtkosten, ZuwBetrag, Programm, MCode, DFG, NUTS, Mittelherkunft) " & vbCrLf & _
"SELECT tblVW_Vorm.Vormerknummer, tbl_VWZuw.Zuweisungsnummer, tbl_VWZuw.[Datum Erlaß], tbl_VWZuw.Aktenzeichen, tbl_VWZuw.Hochschule, tbl_VWZuw.PK_Einr, tblVW_Vorm.Institut, tbl_VWZuw.Professor, tbl_VWZuw.[Gegenstand Erlaß], tblVW_Vorm.Maßnahme, tblVW_Vorm.[Gesamtkosten EURO], tbl_VWZuw.[Zuweisungsbetrag EURO], tblVW_Vorm.Strukturlinie, tblVW_Vorm.MCode, tblVW_Vorm.[DFG Syst], tbl_VWZuw.NUTS, tblVW_Vorm.FK " & vbCrLf & _
"FROM tblVW_Vorm RIGHT JOIN tbl_VWZuw ON tblVW_Vorm.Vormerknummer = tbl_VWZuw.Vormerknummer;", dbFailOnError

' Indizierung der Tabelle tblDatenpool
db.Execute "CREATE INDEX idxDatum ON tblDatenpool(Datum)", dbFailOnError
db.Execute "CREATE INDEX idxEinr ON tblDatenpool(FK_Einr) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxAntragsteller ON tblDatenpool(Antragsteller) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxBezeichnung ON tblDatenpool(Vorhaben, Beschreibung) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxFProg ON tblDatenpool(Programm) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxMCode ON tblDatenpool(MCode) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxDFG ON tblDatenpool(DFG) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxNUTS ON tblDatenpool(NUTS) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxMHerk ON tblDatenpool(Mittelherkunft) WITH IGNORE NULL", dbFailOnError

MsgBox "Datenintegration abgeschlossen", vbInformation

' Falls die Tabelle tblDatenpool fehlt ...
ElseIf TableExists("tblDatenpool") = False Then

db.TableDefs.Refresh

' Erstellen der Tabelle tblDatenpool
db.Execute "CREATE TABLE tblDatenpool(" & _
"ID COUNTER, " & _
"FK_VN INTEGER, " & _
"FK_ZN INTEGER, " & _
"Datum DATETIME, AktenNr TEXT (255), Einrichtung TEXT (255), FK_Einr INTEGER, Institut TEXT (255), " & _
"Antragsteller TEXT (255), Vorhaben LONGTEXT, Beschreibung LONGTEXT, Gesamtkosten CURRENCY, ZuwBetrag CURRENCY, " & _
"Programm TEXT (255), MCode TEXT (255), DFG INTEGER, NUTS TEXT (255), Mittelherkunft TEXT (255))", dbFailOnError

' Anfügen der Daten aus TGrp. 71 und 74
db.Execute "INSERT INTO tblDatenpool (FK_VN, FK_ZN, Datum, AktenNr, Einrichtung, FK_Einr, Institut, Antragsteller, Vorhaben, Beschreibung, Gesamtkosten, ZuwBetrag, Programm, MCode, DFG, NUTS, Mittelherkunft) " & vbCrLf & _
"SELECT tblWF_Vorm.PK_VN, tblWF_Zuw.PK_ZN, tblWF_Zuw.ZuwDat, tblWF_Zuw.AzZuw, tblWF_Zuw.EinrZuw, tblWF_Zuw.FK_Einr, tblWF_Zuw.OE_Zuw, Trim(([tblWF_Zuw].[AkadTitelZuw]+"" "") & ([tblWF_Zuw].[VornameZuw]) & ("" ""+[tblWF_Zuw].[ZusatzZuw]) & ("" ""+[tblWF_Zuw].[ZunameZuw])) AS Antragsteller, tblWF_Zuw.KurzBezZuw, tblWF_Vorm.LangBez, tblWF_Vorm.GesKosten, tblWF_Zuw.ZuwBetrag, tblFProg.Programm, tblWF_Vorm.MCode, tblWF_Vorm.DFG, tblWF_Vorm.NUTS, Right([tblWF_Zuw].[HSt],2) AS MHerkunft " & vbCrLf & _
"FROM tblWF_Vorm INNER JOIN (tblWF_Zuw LEFT JOIN tblFProg ON tblWF_Zuw.FProgZuw = tblFProg.PID) ON tblWF_Vorm.PK_VN = tblWF_Zuw.FK_VN;", dbFailOnError

' Anfügen der Daten aus VW VORAB
db.Execute "INSERT INTO tblDatenpool (FK_VN, FK_ZN, Datum, AktenNr, Einrichtung, FK_Einr, Institut, Antragsteller, Vorhaben, Beschreibung, Gesamtkosten, ZuwBetrag, Programm, MCode, DFG, NUTS, Mittelherkunft) " & vbCrLf & _
"SELECT tblVW_Vorm.Vormerknummer, tbl_VWZuw.Zuweisungsnummer, tbl_VWZuw.[Datum Erlaß], tbl_VWZuw.Aktenzeichen, tbl_VWZuw.Hochschule, tbl_VWZuw.PK_Einr, tblVW_Vorm.Institut, tbl_VWZuw.Professor, tbl_VWZuw.[Gegenstand Erlaß], tblVW_Vorm.Maßnahme, tblVW_Vorm.[Gesamtkosten EURO], tbl_VWZuw.[Zuweisungsbetrag EURO], tblVW_Vorm.Strukturlinie, tblVW_Vorm.MCode, tblVW_Vorm.[DFG Syst], tbl_VWZuw.NUTS, tblVW_Vorm.FK " & vbCrLf & _
"FROM tblVW_Vorm RIGHT JOIN tbl_VWZuw ON tblVW_Vorm.Vormerknummer = tbl_VWZuw.Vormerknummer;", dbFailOnError

' Indizierung der neuen Tabelle tblDatenpool
db.Execute "CREATE INDEX idxDatum ON tblDatenpool(Datum)", dbFailOnError
db.Execute "CREATE INDEX idxEinr ON tblDatenpool(FK_Einr) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxAntragsteller ON tblDatenpool(Antragsteller) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxBezeichnung ON tblDatenpool(Vorhaben, Beschreibung) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxFProg ON tblDatenpool(Programm) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxMCode ON tblDatenpool(MCode) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxDFG ON tblDatenpool(DFG) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxNUTS ON tblDatenpool(NUTS) WITH IGNORE NULL", dbFailOnError
db.Execute "CREATE INDEX idxMHerk ON tblDatenpool(Mittelherkunft) WITH IGNORE NULL", dbFailOnError

MsgBox "Datenintegration abgeschlossen", vbInformation

End If
End If

' Eieruhr aus
DoCmd.Hourglass False

'DatenIntegration_Error:
' MsgBox "Fehler " & Err.Number & " (" & Err.Description & ") in Prozedur DatenIntegration von Modul mdlDatenIntegration"
' Resume Next

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 2. September 2014

Vielleicht wäre erst einmal zu ermitteln, wo denn die Tabelle liegt. Im Frontend?

Bei Deinem ursprünglichen Verfahren (erst indizieren, dann füllen) wäre es gleichwertig, wenn statt Löschen der Tabelle und Neuanlegen schlicht die Tabelle geleert wird (Löschabfrage). Abläufe drumherum sind also nicht ganz uninteressant.

RookieOne · 2. September 2014

Hallo, Eberhard,

ja, die Tabelle tblDatenpool liegt im Frontend. Das ist in der accdb auch die einzige lokale Tabelle. Alle übrigen Tabellen liegen im Frontend als Verknüpfung vor.

Ein DELETE auf die Tabelle? Das probiere ich mal aus und gebe an dieser Stelle Auskunft.

Gruß, Daniel

RookieOne · 4. September 2014

Hallo zusammen,

ich denke, ich habe die Lösung gefunden. Ich habe den Code Schritt für Schritt durchlaufen.

Sobald der Code an die Stelle

Code:

If TableExists("tblDatenpool")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kommt, wird das folgende Modul angesprochen:

Code:

Option Compare Database
Option Explicit

Public Function TableExists(strTableName As String) As Boolean

' -----------------------------------------------------------
' Funktion die überprüft ob auf eine Tabelle zugegriffen
' werden kann oder nicht.
' Die Funktion gibt True zurück wenn die Tabelle da ist oder
' False wenn sie fehlt.
' -----------------------------------------------------------

On Error GoTo fehler

Dim db As DAO.Database
Dim RS As DAO.Recordset

Set db = CurrentDb()
Set RS = db.OpenRecordset(strTableName)

If RS.RecordCount >= 0 Then TableExists = True
RS.Close
db.Close

Ende:
Exit Function

fehler:
MsgBox "Fehler " & Err.Number & " (" & Err.Description & ") in Prozedur DatenIntegration von Modul mdlDatenIntegration"
TableExists = False
Resume Ende

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier lieferte RS.RecordCount immer einen Laufzeitfehler #13 wg. Typunverträglichkeit.

Ich habe daraufhin hier im MOF gesucht und habe die Dimensionierung von db bzw. RS angepasst:

Code:

Dim db As DAO.Database
Dim RS As DAO.Recordset
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zuvor hatte ich hier nur

Code:

Dim db As Database
Dim RS As Recordset
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

stehen.

Mit dem Bezug auf die DAO-Varianten funktioniert nun alles :-)

Gruß, Daniel

ebs17 · 4. September 2014

Von einer Funktion, die TableExists heißt, würde ich erwarten, dass sie nur auf Existenz der Tabelle prüft.

Der Ansatz, eine Tabelle existiert nur, wenn sie Datensätze enthält, ist dagegen systematisch falsch, das Laden einer ganzen Tabelle (womöglich sehr groß) in ein Recordset dabei zumindest ungeschickt.

Code:

Dim tdf AS DAO.TableDef
For Each tdf in dbTableDefs
If tdf.Name = strTableName Then
TableExists = True
Exit For
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier wird einfach in der Tabellenauflistung nachgesehen, ob es die angegebene Tabelle gibt.

Arne Dieckmann · 4. September 2014

\@Eberhard: dein Einwand "Der Ansatz, eine Tabelle existiert nur, wenn sie Datensätze enthält, ist dagegen systematisch falsch" passt nicht ganz, denn:
Code:

If RS.RecordCount >= 0 Then TableExists = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

prüft ja quasi nur, ob RecordCount funktioniert, danach wird im weiteren Verlauf True ausgespuckt. False wird ja nur im Fehlerfall ausgegeben.

ebs17 · 4. September 2014

Danke. Da wird der systematische Fehler zurückgenommen.

Office: (Office 2013) Laufzeitfehler #3265 unter Access 2013

Laufzeitfehler #3265 unter Access 2013

Laufzeitfehler #3265 unter Access 2013

Laufzeitfehler #3265 unter Access 2013

Laufzeitfehler #3265 unter Access 2013

Laufzeitfehler #3265 unter Access 2013

Laufzeitfehler #3265 unter Access 2013 - Similar Threads - Laufzeitfehler #3265 Access

Sql-Abfrage, Laufzeitfehler 3075, Syntaxfehler (fehlender Operator)

Bei Prüfung einer Anmeldefunktion erhalte ich Laufzeitfehler 3075

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 3265

Arbeit mit Recordset: Laufzeitfehler 3265