'Hallo Meister der Eigenschaften,
'heute möchte ich aus einer importierten Tabelle die Feldgrößeneigenschaft verändern.
'der FeldTyp ist Text die Feldgröße z.Zt.: 3
'wie kann ich die Feldgröße vonn 3 auf z.B. 200 erhöhen?
'die unten abgebildete Prozedure gibt den Fehler nach .FieldSize aus
Sub ChangeField()
Dim dbs As Database
Dim tdfList As TableDefs
Dim tdf As TableDef
Dim fld As Field
Set dbs = OpenDatabase(„D:\Norbert\TextFeldÄndern.mdb“)
Set tdfList = dbs.TableDefs
For Each tdf In tdfList
If tdf.NAME = „tblaaa“ Then
Debug.Print tdf.NAME
For Each fld In tdf.Fields
Debug.Print fld.NAME
If fld.NAME = „TextField“ Then
Debug.Print "Datenbank : " & dbs.NAME & " Tabelle: " & tdf.NAME & " / TabellenFeld: " & fld.NAME & " / Feldgröße : " & fld.Size
With fld
’ .FieldSize = 200 'Zuweisung an Schreibgeschütze Eigenschaft nicht möglich
End With
End If
Next fld
End If
Next tdf
End Sub
'hat vieleicht jemand eine vieleicht sogar ganz andere Lösung über SQL o.ä ?
'Danke im vorraus
'Norbert Laas