Feld.Size wird ab Access 2007 nicht mehr unterstützt?

[Mykis]

Hallo Access- Freunde,

der nachfolgende Code (Access 2000) wird ab Access 2007 nicht mehr combiliert. Es wird "Feld.Size" markiert! Weiß jemand warum?

(Objektvariable = Dim Feld As Field)

Code [Auswählen] Erweitern

' 5. Einstellen der Control-Breite - Annahme: String-Felder und das Kombifeld: 7 cm; alle anderen: 2cm
      If (feldType = dbText Or feldType = dbMemo Or feldindex = KombiFeldNummer) Then
         If feldindex = 0 Then
            ' für die Breite der Schlüssel-Textfelder ist, falls die Überschrift nicht breiter ist, die deklarierte Feldlänge entscheidend
            If CtrlLen < (Feld.Size / Zeichen_je_cm) Then
               CtrlLen = (Feld.Size / Zeichen_je_cm)
            End If
         Else
            ' für ein Nichtschlüssel-Textfeld gilt - falls diese breiter, die Breite der Überschrift - ansonsten die Standardbreite
            If CtrlLen <= TextFeldLaenge Then
               CtrlLen = TextFeldLaenge
            End If
         End If
         Me(FeldControlName).Width = CtrlLen * MSTwip  'minimale Textfeldlänge ist 7 cm
         Me(FeldControlName).TextAlign = linksbuendig
      Else
         ' Schlüssel- und numerische Felder sind grundsätzlich 2 cm breit
         If CtrlLen <= NumFeldLaenge Then CtrlLen = NumFeldLaenge
         Me(FeldControlName).Width = NumFeldLaenge * MSTwip
         Me(FeldControlName).TextAlign = rechtsbuendig
      End If
     
      ' das Feld der Langbezeichnung wird bei ausreichendem Platz (abh. von Feldanzahl) und entsprechendem Bedarf (abh. vom Datentyp) vergrößert
      If feldindex = 1 And aktTable.Fields.Count = 2 Then
         If (Feld.Size / Zeichen_je_cm) > CtrlLen Then
            CtrlLen = Feld.Size / Zeichen_je_cm
            Me(FeldControlName).Width = CtrlLen * MSTwip  'minimale Textfeldlänge ist 7 cm
         End If
      End If
      ' Titellänge ist immer abhängig von Titeleintrag
      Me(TitelFeldName).Width = CtrlLen * MSTwip


Beste Grüße
Frank

[Mykis]

Hier mal noch die entsprechende Fehlermeldung.



[Anhang gelöscht durch Administrator]

[Mykis]

Entschuldigt bitte, der Fehler lag an einem falschen Verweis auf eine Programmbibliothek.

Gut's Nächtle
Frank