Mehrere Datenbankfelder zu einem kopieren

[tylix]

Hallo ich hab mal wieder in kleines problem.

ich habe z.B. die Felder Anrede, Titel, Vorname, Nachname in verscheidenen Datenbankfeldern.

Nun möchte im Feld Nameges alle 4 Felder zusammenfügen,
dass z.B. steht "Herrn Dr. Max Mustermann", je nach Feldinhalt.

Nur habe ich ein Problem, wenn das Feld Titel z. B. leer ist, stürzt mein Programm ab.

Könnt Ihr mir kurzfristig helfen. Ich steh grad da wie eine katze vor dem Berg.

mir raucht schon der Kopf.

Dank euch!

[eddy]

Hallo tylix,

ich habe z.B. die Felder Anrede, Titel, Vorname, Nachname in verscheidenen Datenbankfeldern.

Nun möchte im Feld Nameges alle 4 Felder zusammenfügen,
dass z.B. steht "Herrn Dr. Max Mustermann", je nach Feldinhalt.

Code:

....
anr := trim(Tab.FieldByName('Anrede').AsString);
tit  := trim(Tab.FieldByName('Titel').AsString);
vna := trim(Tab.FieldByName('Vorname').AsString);  
nna := trim(Tab.FieldByName('Nachname').AsString);

nges := '';
if anr <> '' then nges := anr + ' ';
if tit <> '' then nges := nges + tit + ' ';
if vna <> '' then nges := nges + vna + ' ';
if nna <> '' then nges := nges + nna;

Tab.Edit;
Tab.FieldByName('Nameges').AsString := trim(nges);
Tab.Post;

oder so ähnlich.

mfg
eddy

[Sharky]

Hai tylix,

wenn Du mit SQL-Abfragen arbeitest könnte es auch so gehen:

SELECT LTRIM ((anrede + ' ' + titel + ' ' + vorname + ' ' + nachname) AS ngsmt)

[tylix]

hallo eddi,

danke supi hat geklappt.

ich hab bisweilen immer mit anr:= dm.tbl_fieldbyname('Anrede').value gearbeitet.

Aber deine lösung hat auch gefunzt.

Dankschee