![]() |
FlowFact - Entwicklungstools |
![]() |
Function | AKT_New() As ADODB.Recordset |
Rückgabewert: Recordset mit allen Feldern Public Function AKT_New() As ADODB.Recordset Dim rsAkt As ADODB.Recordset Set rsAkt = m_oBase.Sql_Find("AKT", "1=2") rsAkt.AddNew rsAkt("DSN").value = m_oUtil.NewGUID() rsAkt("Kennung").value = STD_GetField("Kennung_AKT") 'Hole Vorbelegung i.A. '#' rsAkt("Priorität").value = 1 rsAkt("FArchiv").value = 0 Set AKT_New = rsAkt End Function |