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)
' 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
Hier mal noch die entsprechende Fehlermeldung.
(http://unbenannt)
[Anhang gelöscht durch Administrator]
Entschuldigt bitte, der Fehler lag an einem falschen Verweis auf eine Programmbibliothek.
Gut's Nächtle
Frank