![]() |
FlowFact - Entwicklungstools |
![]() |
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 |