Excel nach Access ...

[Montafon]

genau dieses Problem - schreibgeschützt

nun ist guter Rat teuer

mein Code

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("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("Felddatentyp", dbText, rs.Fields(2))
End If
rs.MoveNext
Loop

rs.Close
Set db = Nothing

End Sub


die 2. Schleife kann ich mir sparen denn ab der 1. Schleife das neue Feld einen Schreibschutz