![]() |
FlowFact - Entwicklungstools |
![]() |
Function | ANF_New() As ADODB.Recordset |
Rückgabewert: Recordset mit allen Feldern der Tabelle ANF (siehe ANF_Update und ANF_New) Public Function ANF_New() As ADODB.Recordset Dim rsANF As ADODB.Recordset Set rsANF = m_oBase.Sql_Find("ANF", "1=2") rsANF.AddNew rsANF("DSN").value = m_oUtil.NewGUID() rsANF("Kennung").value = STD_GetField("Kennung_ANF") 'holt die Vorbelegung: i.A. '#' rsANF("Aktiv").value = 1 rsANF("Priorität").value = 1 rsANF("FArchiv").value = 0 Set ANF_New = rsANF End Function |