Ich würde es nur über das Backend machen, z.B. so
Dim namen As Variant
namen = doc.Feld1
Forall n In namen
n = Korrektur (n)
End Forall
doc.Feld2 = namen
Ich habe es auch wieder auf das Backend im Querysave umgestellt
und gesehen, dass ich als Quellfeld ein Feld genommen habe welches auch
schon berechnet ist, darum musste ich immer zweimal speichern. grrr!
Mit Evaluate scheint es jetzt auch zu klappen, hatte noch etwas gehakt,
da mir nicht bewusst war, das Evaluate immer ein Array zurück gibt
und die String-Variabel das nicht gerne hat.
Und wieder bestätigt sich "Wer lesen kann........
'Auf Notes Namen prüfen - Im Frontend ohne CN=
If InStr(v,"/") > 0 Then
'vFullName = StrRight(StrLeft(v,"/"),"CN=")
vFullName = StrLeft(v,"/")
vFormula = {@NameLookup([NoUpdate];"} & v & {";"LastName")}
vLastName = Trim(Join(Evaluate(vFormula)," "))
vFormula = {@NameLookup([NoUpdate];"} & v & {";"FirstName")}
vFirstName = Trim(Join(Evaluate(vFormula)," "))
Else 'Bei manuell eingetragenen Namen ohne / auf Leerzeichen trennen
vFullName = v
vLastName = StrRight(vFullName," ")
vFirstName = StrLeft(vFullName," ")
End If 'If InStr(v,"/") > 0 Then
Da einzige was noch nicht geht ist der refresh über die Ansicht, aber wenn das nötig werden sollte
kann ich mir einen Agenten machen der das gleiche Script nutzt.
Und wie Peter schon angemerkt hat ist es keine 100% Lösung z.B.: wenn "Nachname Vorname" manuell eingegeben wird.
Ich mache mir in dieser DB Test Ansichten und wenn Sie produktiv genutzt wird, sehe
ich ja wie gut es klappt - oder auch nicht.
Danke Euch beiden, habt mir wieder mal auf die Sprünge geholfen.