so nun hats geklappt
für die's interessiert
Private Sub StartImport(FileName As String)
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
Dim rs As DAO.Recordset
Dim Format As Byte
Set db = CurrentDb
Set rs = db.OpenRecordset("Felder für RC-Plant", dbOpenDynaset)
'zuerst die neuen Felder inkl. Beschreibung nach Access importieren - Felder für RC-Plant
Set tbl = db.CreateTableDef("neue Felder für RC-Plant")
'in der Datenbank sind die neuen Feldnamen inkl. Beschreibungen enthalten und können dann
'mittels kopieren einfügen direkt in die Tabelle Element übernommen werden
Do Until rs.EOF
Select Case rs.Fields(2)
Case "Text"
Format = 10
Case "Zahl"
Format = 3
Case "Ja/Nein"
Format = 1
Case Else
Format = 10
End Select
Set fld = tbl.CreateField(rs.Fields(0), Format)
tbl.Fields.Append fld
rs.MoveNext
Loop
db.TableDefs.Append tbl
rs.MoveFirst
Set tbl = db.TableDefs("neue Felder")
Do Until rs.EOF
Set fld = tbl.Fields(rs.AbsolutePosition)
If Not IsNull(rs.Fields(1)) Then
fld.Properties.Append fld.CreateProperty("Description", dbText, rs.Fields(1))
End If
rs.MoveNext
Loop
'Do Until rs.EOF
' Set fld = tbl.Fields(rs.AbsolutePosition)
' If Not IsNull(rs.Fields(1)) Then
' fld.Properties.Append fld.CreateProperty("Format", dbText, rs.Fields(2))
' End If
'rs.MoveNext
'Loop
rs.Close
Set db = Nothing
MsgBox ("Fertig!")
End Sub
und anschließend kopieren und einfügen im Entwurfsmodus
vielleicht nicht elegant aber es löst mein Problem
Danke
|