Office: (Office 365) Tabellen werden nicht eingetragen

hallo,

ich habe folgende Datenbank und möchte via VBA die Tabellennamen in die tblTabellen eintragen,

irgendwie funktioniert das aber nicht, kann mir jemensch sagen warum? Wo habe ich den Fehler gemacht?

Public Sub TabellenEintragen()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb

'Schleife über alle Tabellen
For Each tdf In db.TableDefs
'Prüfe wie der Name der Tabelle lautet
If Not tdf.Name Like "MSys*" And Not tdf.Name Like "~*" Then
On Error Resume Next
db.Execute "INSERT INTO tblTabellen(Tabelle) VALUES(''" & tdf.Name & "'')", dbFailOnError
Debug.Print tdf.Name
On Error GoTo 0
End If
Next tdf


End Sub

 

Hallo,

Warum hast Du ein On Error Resume Next im Code? Du weißt, was das bewirkt?

Versuche es mal mit diesem Code

Code:

Public Sub TabellenEintragen()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strSQL As String
    Set db = CurrentDb
   
    For Each tdf In db.TableDefs
        If Not tdf.Name Like "MSys*" And Not tdf.Name Like "~*" Then
            strSQL = "INSERT INTO tblTabellen(Tabelle) VALUES(''" & tdf.Name & "'')"
            Debug.Print strSQL
            db.Execute strSQL, dbFailOnError
            Debug.Print tdf.Name
            On Error GoTo 0
       End If
    Next tdf
    Set db = Nothing
End Sub

Ich habe den eigentlichen Fehler absichtlich drin gelassen, so müsstest Du selber drauf kommen.

Gruß
Doming

 

Hi Danke für den Ansatz, ich komme nicht drauf? bin Anfänger

 

OK, wie kommst Du auf den Code? Selbst erstellt?
Generell, was bewirkt denn "On Error Resume Next"?

 

Wenn ein Fehler auftritt, dann weiter, er unterdrückt die Fehlerbehandlung ich habe jetzt mal den On error und on error goto 0 auskommentiert, ich glaube ich habe den Fehler gefunden, war ein Hochkomma zu viel drin

 

Hi ja ich habe den Fehler gefunden, wie gesagt ein Hochkomma zu viel, eine Frage noch, wie müsste ich den Code erweitern, wenn er bei der if Bedingung prüfen soll ob die Tabelle schon eingetragen ist? und nur die neuen eintragen soll, wenn welche dazukommen, bzw. löschen, wenn eine Tabelle gelöscht wurde?

Wenn ich die Routine mehrfach ablaufen lassen trägt er nämlich dieöfters in die Tabelle ein und prüft nicht ob die schon drinsteht.

 

Wenn Du das Feld "Name" in deiner Tabelle als Index ohne Duplikate definierst, erzeugt der Versuch es doppelt einzutragen einen Fehler, den Du dann mit einer Routine "on Error goto Fehlerbehandlung" abfangen kannst.

Im übrigen solltest Du das Feld "Name" besser in "Tabname" oder ähnlich ändern, denn "Name" ist ein in VBA reserviertes Wort. Reservierte Wörter sollten nicht als Feld- oder Funktionsnamen verwendet werden. Das führt zu schwer nachzuvollziehenden Fehlern.