Office: (Office 2016) Laufzeitfehler 3265

s.reiss · 11. Juli 2017

Hallo,

ich hätte da mal ein Problemchen, welches mich schon ein paar Tage aufhält...

Und ja, ich habe die Suchfunktion schon benutzt, bin aber nicht fündig geworden.

Hier mal Code:

Public Function Test()

Dim dummy As Object
Dim tabellenname(20) As String
Dim i As Integer

tabellenname(1) = "Test"
tabellenname(2) = "Test1"
On Error Resume Next
For i = 1 To 2
Set dummy = CurrentDb.TableDefs(tabellenname(i))
On Error GoTo 0
If dummy Is Nothing Then
MsgBox "Die Tabelle " & tabellenname(i) & " ist nicht vorhanden!", vbInformation, "Fehler"
Else
DoCmd.DeleteObject acTable, tabellenname(i)
End If
Next i
End Function

Es ist schon ein paar Jahre her, als ich das letzte mal VB programmiert habe...

Zum Fehler:
Beim ersten Durchlauf der Schleife klappt alles wunderbar.
Beim 2. Durchlauf kracht es in der Zeile (Set dummy = CurrentDb.TableDefs(tabellenname(i))) und bringt eben den Laufzeitfehler mit dem Text "Element in dieser Auflistung nicht gefunden."

Ich glaube ich muss vor dem nächsten Durchlauf die Variable dummy irgendwie zurücksetzen?!?

Ich hoffe mir kann jemand helfen...

Schon mal danke im Voraus.

:)

Beaker s.a. · 13. Juli 2017

Code:

Set dummy = CurrentDb.TableDefs("Test" & i)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Steffen0815 · 13. Juli 2017

Hallo,
versuche es so: Code:

Public Function Test()
Dim dummy As Object
Dim tabellenname(20) As String
Dim i As Integer

tabellenname(1) = "Test"
tabellenname(2) = "Test1"
On Error Resume Next
For i = 1 To 2
Set dummy = CurrentDb.TableDefs(tabellenname(i))
If dummy Is Nothing Then
MsgBox "Die Tabelle " & tabellenname(i) & " ist nicht vorhanden!", vbInformation, "Fehler"
Else
DoCmd.DeleteObject acTable, tabellenname(i)
End If
Next i
On Error GoTo 0
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Besser ist allerdings ohne LZF zu arbeiten: Code:

Public Function Test()
Dim dummy As Object
Dim tabellenname(20) As String
Dim i As Integer

tabellenname(1) = "Test"
tabellenname(2) = "Test1"
For i = 1 To 2
If fncTableExist(tabellenname(i)) Then
DoCmd.DeleteObject acTable, tabellenname(i)
Else
MsgBox "Die Tabelle " & tabellenname(i) & " ist nicht vorhanden!", vbInformation, "Fehler"
End If
Next i
End Function

Function fncTableExist(TabName) As Boolean
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
If tdf.Name = TabName Then
fncTableExist = True
Exit Function
End If
Next tdf
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beaker s.a. · 13. Juli 2017

Sorry, mal wieder nicht richtig gelesen *mad.gif*

s.reiss · 13. Juli 2017

Hat wunderbar geklappt...

Dankeschön!

Office: (Office 2016) Laufzeitfehler 3265

Laufzeitfehler 3265

Laufzeitfehler 3265

Laufzeitfehler 3265

Laufzeitfehler 3265 - Similar Threads - Laufzeitfehler 3265

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

Laufzeitfehler #3265 unter Access 2013

Arbeit mit Recordset: Laufzeitfehler 3265