Rückgabewert: Datensatznummern (DSN's) der Standardmerkmale durch Kommata getrennt oder 'LEER'


Public Function BEN_VorlageDsnCommaList() As String
    Dim strResult As String
    Dim strItem As String
    Dim rs As ADODB.Recordset
    Dim i As Long

    Set rs = FF_CurrentUserRS

    strResult = ""
    For i = 1 To 5
        strItem = m_oUtil.k(rs("VOR_MKM" & CStr(i)).value)
        If strItem <> "" Then
            strResult = strResult & strItem & ","
        End If
    Next

    '-- letztes Komma entfernen
    If strResult <> "" Then
        strResult = Mid(strResult, 1, Len(strResult) - 1)
    End If

    BEN_VorlageDsnCommaList = strResult
End Function