Access-o-Mania

Access-Forum (Deutsch/German) => Formular => Thema gestartet von: Datenman am Dezember 20, 2011, 15:22:51

Titel: Formularfeld mit abgeschnittenen Text füllen
Beitrag von: Datenman am Dezember 20, 2011, 15:22:51
Hallöle liebe Gemeinde,

wisst ihr warum ich hier nen Fehler erhalte?
Es soll aus einem Feld namentlich [titel) ein Text ausgelesen werden. Wenn der Text jedoch länger wie 30 Zeichen hat soll er abgeschnitten werden. Wenn ich das "If" nicht reinnehme und der Text kürzer wie 30 Zeichen ist erhalte ich leider eine Fehlermeldung  :(


NewTitel = If (Len([titel]) > 29 then Left([titel], 30) else [titel]



weihnachtliche Grüße und vielen lieben Dank
Titel: Re: Formularfeld mit abgeschnittenen Text füllen
Beitrag von: DF6GL am Dezember 20, 2011, 16:12:32
allo,

wenn das ein Stück VBA-Code sein soll, dann sollte der so lauten:


NewTitel = IIF ( Len(Me![titel]) > 30 , Left(Me![titel], 30) , Me![titel])
oder

IF  Len(Me![titel]) > 30 Then
NewTitel =  Left(Me![titel], 30)
Else
NewTitel =  Me![titel]
End If
Titel: Re: Formularfeld mit abgeschnittenen Text füllen
Beitrag von: Datenman am Dezember 20, 2011, 16:40:22
Na wunderbar, also bei dem oberen bekomm ich immer noch nen Schreibfehlererror, der untere geht :)


vielen Dank
Titel: Re: Formularfeld mit abgeschnittenen Text füllen
Beitrag von: database am Dezember 21, 2011, 21:18:32
Hallo,

dann kopier den Code von Franz - nicht abschreiben, wahrscheinlich hast du eine der Klammern/Klammerpaare nicht oder nicht richtig gesetzt.

;)