Formularfeld mit abgeschnittenen Text füllen

[Datenman]

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

[DF6GL]

allo,

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

Code [Auswählen] Erweitern

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

Code [Auswählen] Erweitern

IF  Len(Me![titel]) > 30 Then
NewTitel =  Left(Me![titel], 30)
Else
NewTitel =  Me![titel]
End If

[Datenman]

Na wunderbar, also bei dem oberen bekomm ich immer noch nen Schreibfehlererror, der untere geht


vielen Dank

[database]

Hallo,

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