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
|