Hallo,
bei Überarbeitung eines Kundengebotes lösche ich den Feldinhalt eines Memo-Feldes: Me!Bemerkung = Null.
Neue Textbausteine setze ich wie folgt:
If Nz(Me!AngebBemerkung, "") = "" Then
Me!AngebBemerkung = "Wegen der Überarbeitung Ihrer Druckvorlage fallen Grafikkosten an."
Else
Me!AngebBemerkung = Me![AngebBemerkung] & vbCrLf & "Wegen der Überarbeitung Ihrer Druckvorlage fallen Grafikkosten an."
End If
Der erste neue Textbaustein wird jedoch nicht an den Anfang des Feldes, sondern in die 2. Zeile gesetzt.
Könnt Ihr mir bitte sagen wie ich den ersten Textbaustein in die erste Zeile bekomme.
Hallo,
mhmm, durchblicke jetzt nicht die Situation und die Logik...
Egal, ob das Memofeld anfänglich auf Null gesetzt wird oder nicht, bräuchte der gesamte Code auch nur so aussehen, wenn bei vorausgegangenen Zuweisungen an das Memofeld auch immer ein vbCrLf angehängt wird:
Me!AngebBemerkung = Null
Me!AngebBemerkung ="Das ist die erste Zeile" & vbCrLf
Me!AngebBemerkung = Me![AngebBemerkung] & "2. Zeile: Wegen der Überarbeitung Ihrer Druckvorlage fallen Grafikkosten an." & vbCrLf
Me!AngebBemerkung = Me![AngebBemerkung] & "Das ist die 3. Zeile." & vbCrLf
Hallo Franz,
danke für die einfache und problemlos laufende Variante.
Ich wünsche Dir noch einen angenehmen 2. Feiertag und einen guten Rutsch in das kommende neue Jahr.