1. neues Feld anlegen (irgendein Name) mit der neuen Feldlänge
   
2. Tabelle durchlaufen und Feldinhalte in das neue Feld schreiben
   
3. altes Feld löschen
   
4. neues Feld in alted Feld umbenennen
   
5. OrdinalPosition entsprechend zurücksetzen
   

' Feldgröße nachträglich ändern
Public Sub dbField_ChangeSize(Db As Database, _
  ByVal sTable As String, ByVal sField As String, _
  ByVal iNewSize As Integer)
 
  Dim oField As New Field
  Dim Rs As Recordset
  Dim iPosition As Integer
 
  With Db.TableDefs(sTable)
    <font color=green>' temporäres Feld erstellen</font>
    oField.Name = sField + "_tmp"
    oField.Type = dbText
    oField.AllowZeroLength = True
    oField.Size = iNewSize
    .Fields.Append oField
 
    <font color=green>' Tabelle öffnen und alten Feldinhalt ins</font>
    <font color=green>' neue temporäre Feld speichern</font>
    Set Rs = Db.OpenRecordset("SELECT " + sField + ", " + _
      sField + "_tmp FROM " + sTable)
    If Rs.RecordCount > 0 Then
      Do Until Rs.EOF
        Rs.Edit
        Rs(1) = Rs(0)
        Rs.Update
        Rs.MoveNext
      Loop
    End If
    Rs.Close
    Set Rs = Nothing
 
    <font color=green>' OrdinalPosition merken</font>
    iPosition = .Fields(sField).OrdinalPosition
 
    <font color=green>' altes Feld löschen</font>
    .Fields.Delete sField
 
    <font color=green>' neues temporäre Feld umbenennen</font>
    .Fields(sField + "_tmp").Name = sField
 
    <font color=green>' Ordinalposition wiederherstellen</font>
    .Fields(sField).OrdinalPosition = iPosition
  End With
End Sub