![]() |
FlowFact - Entwicklungstools |
![]() |
Function | AKTEN_New() As Recordset |
Rückgabewert: Recordset mit allen Feldern der Tabelle AKTEN (siehe AKTEN_Update und AKTEN_New) Public Function AKTEN_New() As Recordset Dim rsAKTEN As Recordset Set rsAKTEN = m_oBase.Sql_Find("AKTEN", "1=2") rsAKTEN.AddNew rsAKTEN("DSN").value = m_oUtil.NewGUID() rsAKTEN("Kennung").value = STD_GetField("Kennung_AKTEN") 'holt die Vorbelegung: i.A. '#' rsAKTEN("FArchiv").value = 0 Set AKTEN_New = rsAKTEN End Function |