![]() |
FlowFact - Entwicklungstools |
![]() |
Function | AD_New() As ADODB.Recordset |
Rückgabewert: Recordset mit allen Feldern der Tabelle AD (siehe AD_Update und AD_New) Public Function AD_New() As ADODB.Recordset Dim rsAd As ADODB.Recordset Set rsAd = m_oBase.Sql_Find("AD", "1=2") rsAd.AddNew rsAd("DSN").value = m_oUtil.NewGUID() rsAd("Kennung").value = STD_GetField("Kennung_AD") 'holt die Vorbelegung: i.A. '#' rsAd("FArchiv").value = 0 rsAd("BRIEFANREDE").value = Mid(AD_GetStdBriefAnrede, 1, 200) Set AD_New = rsAd End Function |