FlowFact - Entwicklungstools

zurück

Function - EMSK_New
Neue Eingabehilfe anlegen, ohne speichern

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


Rückgabewert: Recordset mit allen Feldern


Public Function EMSK_New() As ADODB.Recordset
    Dim rsEMSK As ADODB.Recordset

    Set rsEMSK = m_oBase.Sql_Find("EMSK", "1=2")

    rsEMSK.AddNew
    rsEMSK("DSN").value = m_oUtil.NewGUID()
    rsEMSK("Aktiv").value = 1

    Set EMSK_New = rsEMSK
End Function