Accesss Tabelle anlegen ID-Feld mit Primärschlüssel versehen

Sub CreateTableInAccess()

    Dim aktuelle_Zeile As Integer

    Dim aktuelle_Spalte As Integer

    

    Dim TabellenName As String

    Dim Feldname As String

    Dim Feldtyp As String

    

    aktuelle_Zeile = 5

    aktuelle_Spalte = ActiveCell.Column()



    TabellenName = Range(Cells(aktuelle_Zeile, aktuelle_Spalte), Cells(aktuelle_Zeile, aktuelle_Spalte))



    ' Überprüfen, ob es die richtigen Spalten sind

    If InStr(1, TabellenName, "_") = 0 Then

    

        MsgBox "Leider haben Sie die falsche Spalte ausgewählt. Gültige Spalten haben in der Zeile 5 einen Unterstrich."

        

        Exit Sub

    

    End If



    Dim db As DAO.Database

    Dim tdf As DAO.TableDef

    Dim fld As DAO.Field



    ' Pfad zur Access-Datenbank

    Dim dbPath As String

    dbPath = "d:\Modellbahnsammlung\Datenbank\Testdatenbank.accdb" ' Ändere den Pfad entsprechend



    ' Öffne die Datenbank

    Set db = DBEngine.OpenDatabase(dbPath)



    ' Erstelle eine neue Tabelle

    Set tdf = db.CreateTableDef(TabellenName) ' Name der neuen Tabelle

    

 

    For Zeile = 7 To 200

        

        ' Wenn es keine Zeile mit Inhalt gibt, dann Schleife verlassen

        If Range(Cells(Zeile, aktuelle_Spalte), Cells(Zeile, aktuelle_Spalte)) = "" Then

        

            Exit For

        

        End If



        ' Jetzt werden die Tabellenfelder in die neue Tabellee erstellt

        Feldname = Range(Cells(Zeile, aktuelle_Spalte), Cells(Zeile, aktuelle_Spalte))

        Feldtyp = Range(Cells(Zeile, aktuelle_Spalte + 1), Cells(Zeile, aktuelle_Spalte + 1))

    

        Select Case LCase(Feldtyp)

        Case "a"

        

            ' Füge Felder zur Tabelle hinzu

            Set fld = tdf.CreateField(Feldname, dbLong)

            fld.Attributes = dbAutoIncrField ' Auto-Increment für ID-Feld

            tdf.Fields.Append fld



        Case "t"

            Set fld = tdf.CreateField(Feldname, dbText, 255) ' Textfeld mit max. 255 Zeichen

            tdf.Fields.Append fld

    

        Case "v"

            Set fld = tdf.CreateField(Feldname, dbLong)

            tdf.Fields.Append fld

            

        Case "z"

            Set fld = tdf.CreateField(Feldname, dbDouble)

            tdf.Fields.Append fld

            

        Case "d"

            Set fld = tdf.CreateField(Feldname, dbDate)

            tdf.Fields.Append fld

        

        Case "j"

            Set fld = tdf.CreateField(Feldname, dbBoolean)

            tdf.Fields.Append fld

                

        Case "m"

            Set fld = tdf.CreateField(Feldname, dbMemo)

            tdf.Fields.Append fld

        

        End Select

        

    Next Zeile



    ' Füge die Tabelle zur Datenbank hinzu

    db.TableDefs.Append tdf



    ' Schließe die Datenbank

    db.Close



    MsgBox "Tabelle erfolgreich erstellt!"



    Range(Cells(5, aktuelle_Spalte + 3), Cells(5, aktuelle_Spalte + 3)).Select

    

End Sub