FlowFact - Entwicklungstools

zurück

Sub - AD_SetName
Namen setzen

Das Feld 'Name' wird aus Titel, Vorname und Nachname zusammengesezt.
Hinweis: Der Nachname kann intern mit '#' oder 'Leerzeichen' abgegrenzt werden.
  Sub AD_SetName(ByVal rsAd As ADODB.Recordset, ByVal strTitle As String, ByVal strFirstName As String, ByVal strFamilyName As String)  
 


rsAD: Recordset der von AD_New oder AD_Find_XXX zurückgegeben wurde. Auch ein 'm_oBase.FF_GetRecordset("SELECT * FROM AD ...")' ist möglich.
strTitle: Titel
strFirstName: Vorname
strFamilyName: Nachname


Public Sub AD_SetName(ByVal rsAd As ADODB.Recordset, ByVal strTitle As String, ByVal strFirstName As String, ByVal strFamilyName As String)
    rsAd("NAME").value = Mid(Trim(strTitle & " " & strFirstName) & " #" & strFamilyName, 1, 100)
End Sub