FlowFact - Entwicklungstools

zurück

Function - FldArt_New
Neue Feldart anlegen, ohne speichern

Diese Funktion bereitet ein Recordset mit minimalen Angaben vor. Die Datensatznummer (DSN) wird gesetzt. Zum Speichern muß abschließend 'FldArt_Update' aufgerufen werden.
  Function FldArt_New() As ADODB.Recordset  
 


Rückgabewert: Recordset mit allen Feldern


Public Function FldArt_New() As ADODB.Recordset
    Dim rsFldArt As ADODB.Recordset

    Set rsFldArt = m_oBase.Sql_Find("FldArt", "1=2")

    rsFldArt.AddNew
    rsFldArt("DSN") = m_oUtil.NewGUID()
    rsFldArt("Aktiv") = 1

    Set FldArt_New = rsFldArt
End Function