FlowFact - Entwicklungstools

zurück

Function - EMSK_AddFldArt
Feldart zur Eingabehilfe hinzufügen

  Function EMSK_AddFldArt(ByVal strEmskDsn As String, ByVal strFldArtDsn As String, _  
 


strEmskDsn: Datensatznummer (DSN) der Eingabehilfe
strFldArtDsn: Datensatznummer (DSN) der Feldart
Rückgabewert: = True, wenn Feldart zur Eingabehilfe hinzugefügt werden konnte.


Public Function EMSK_AddFldArt(ByVal strEmskDsn As String, ByVal strFldArtDsn As String, _
                               Optional ByVal blnPflichtfeld As Boolean, _
                               Optional ByVal intBackColor As Long, _
                               Optional ByVal strDefaultACL As String, _
                               Optional ByVal strFldArtOp_Filter As String) As Boolean
    Dim rsEmskDet As ADODB.Recordset
    Dim strSQL As String

    If strEmskDsn = "" Or strFldArtDsn = "" Then
        EMSK_AddFldArt = False
        Exit Function
    End If

    strSQL = "SELECT * FROM EmskDet "
    strSQL = strSQL & "WHERE Emsk_Dsn =" & m_oUtil.SqlUid(strEmskDsn)
    strSQL = strSQL & "AND FldArt_Dsn =" & m_oUtil.SqlUid(strFldArtDsn)
    Set rsEmskDet = m_oBase.FF_GetRecordset(strSQL)
    If rsEmskDet.EOF = True Then
        EMSK_AddFldArt = True
        rsEmskDet.AddNew
        rsEmskDet("DSN").value = m_oUtil.NewGUID()
        rsEmskDet("EMSK_DSN").value = m_oUtil.SqlStrNull(strEmskDsn)
        rsEmskDet("FLDART_DSN").value = m_oUtil.SqlStrNull(strFldArtDsn)
        rsEmskDet("DEFAULT_ACL").value = strDefaultACL
        rsEmskDet("PFLICHTFELD").value = IIf(blnPflichtfeld, 1, 0)
        rsEmskDet("BACKCOLOR").value = intBackColor
        rsEmskDet("FLDARTOP_FILTER").value = Mid(strFldArtOp_Filter, 1, 250)
        m_oBase.FF_UpdateRecordset rsEmskDet
        EMSK_AddFldArt = True
    Else
        EMSK_AddFldArt = False
    End If


End Function