FlowFact - Entwicklungstools

zurück

Function - FldArtOp_Create
Neue Feldartoption anlegen

  Function FldArtOp_Create(ByVal strFldArtOpBezeichnung As String, ByVal strFldArtDsn As String, _  
 


strFldArtOpBezeichnung: Bezeichnung der Option
strFldArtDsn: Die zur Option gehörige Feldart
strWert: Zur Option zugeordneter Wert (kann leer bleiben)
strKurz: Kürzel der Option als Abkürzung (kann leer bleiben)
Rückgabewert: Datensatznummer (DSN) oder 'LEER'


Public Function FldArtOp_Create(ByVal strFldArtOpBezeichnung As String, ByVal strFldArtDsn As String, _
                                Optional ByVal strWert As String = "", _
                                Optional ByVal strKurz As String = "", _
                                Optional ByVal blnDefaultwert As Boolean = False) As String
    Dim rsFldArtOp As ADODB.Recordset
    Dim strDsn As String

    Set rsFldArtOp = FldArtOp_New()

    rsFldArtOp("Bezeichnung").value = Mid(strFldArtOpBezeichnung, 1, 250)
    rsFldArtOp("Wert").value = Mid(strWert, 1, 30)
    rsFldArtOp("Kurz").value = Mid(strKurz, 1, 7)
    If strFldArtDsn = "" Then
        Err.Raise 601, "FldArtOp_Create", "FldArt_Dsn ist ein Pflichtfeld"
    End If
    rsFldArtOp("FldArt_Dsn").value = m_oUtil.SqlStrNull(strFldArtDsn)
    rsFldArtOp("Defaultwert").value = IIf(blnDefaultwert, 1, 0)

    strDsn = rsFldArtOp("DSN").value

    FldArtOp_Update rsFldArtOp

    FldArtOp_Create = strDsn
End Function