Function | BEN_Rechteschablone(ByVal lngNr As Long) As String |
---|---|
Rückgabewert: ACL der lngNr'ten Rechteschablone zur Basis 0 Public Function BEN_Rechteschablone(ByVal lngNr As Long) As String Dim rs As ADODB.Recordset Dim strBuffer As String Dim strText As String Dim i As Long Set rs = FF_CurrentUserRS strBuffer = m_oUtil.k(rs("Rechteschablonen").value) strText = "" If strBuffer <> "" Then For i = 1 To lngNr If strBuffer <> "" Then strText = m_oTools.StrList_DeleteFirst(strBuffer, vbCrLf) Else strText = "" End If Next End If If strText <> "" Then m_oTools.StrList_DeleteFirst strText, "|" End If BEN_Rechteschablone = strText End Function |