title image


Smiley Re: Tabellendefinitionen aus Excel importieren
Wenn Du die Excel-Tabelle nach Access importierst oder verknüpfst,

so daß sie drei Spalten hat (erste Spalte enthält Feldnamen, mittlere Spalte egal, dritte die Beschreibung)

und diese Tabelle dann z.B. "TabelleMitFelddefinitionen" heißt,

so legt Dir die Routine unten die Tabelle "DieTabelle" an.

Jedes Feld wird dabei der Einfachheit halber als Textfeld angelegt, die paar, die keine Textfelder sind, mußt Du halt händisch anpassen.



Gruß

Robert



Dim db As DAO.Database

Dim tbl As DAO.TableDef

Dim fld As DAO.Field

Dim rs As DAO.Recordset



Set db = CurrentDb



Set rs = db.OpenRecordset("TabelleMitFelddefinitionen", dbOpenDynaset)



Set tbl = db.CreateTableDef("DieTabelle")



Do Until rs.EOF

Set fld = tbl.CreateField(rs.Fields(0), dbText, 255)



tbl.Fields.Append fld

rs.MoveNext

Loop

db.TableDefs.Append tbl

rs.MoveFirst

Set tbl = db.TableDefs("DieTabelle")

Do Until rs.EOF

Set fld = tbl.Fields(rs.AbsolutePosition)

If Not IsNull(rs.Fields(2)) Then

fld.Properties.Append fld.CreateProperty("Description", dbText, rs.Fields(2))

End If

rs.MoveNext

Loop

rs.Close

Set db = Nothing

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: