![]() |
FlowFact - Entwicklungstools |
![]() |
Function | MKM_Create(Optional ByVal strMerkmalName As String = "", _ |
strMerkmalName: Name/Bezeichnung des Merkmals strSortierung: Eingabefeld; siehe FlowFact-Hilfe strNotiz: Inhalt des Notizfeldes strTableCommaList: Alle Tabellen für die das Merkmal verwendet werden soll z.B. "Ad,Anf,Obj,Akt,Details,Verträge,Projekte,Gantt," strGruppen: Baumhierarchie durch Gruppenbezeichnung (Pfadangabe) z.B. Eins\Zwei\Drei Rückgabewert: Datensatznummer (DSN) oder 'LEER' Public Function MKM_Create(Optional ByVal strMerkmalName As String = "", _ Optional ByVal strSortierung As String = "", _ Optional ByVal strNotiz As String = "", _ Optional ByVal strTableCommaList As String = "", _ Optional ByVal strGruppe As String = "") As String Dim rsMKM As ADODB.Recordset Dim strBuffer As String Dim strDsn As String Dim strItem As String Set rsMKM = MKM_New() rsMKM("Merkmal").value = Mid(strMerkmalName, 1, 20) rsMKM("Sortierung").value = Mid(strSortierung, 1, 10) rsMKM("Notiz").value = strNotiz rsMKM("Gruppe").value = Mid(strGruppe, 1, 254) rsMKM("BackColor").value = vbWhite rsMKM("FontColor").value = vbBlack strBuffer = strTableCommaList While strBuffer <> "" strItem = LCase(Trim(m_oTools.StrList_DeleteFirst(strBuffer, ","))) rsMKM(strItem).value = 1 Wend strDsn = rsMKM("DSN").value MKM_Update rsMKM MKM_Create = strDsn End Function |