FlowFact - Entwicklungstools

zurück

Function - EMSK_ContainsFldArt
Abfrage: Ist Feldart in Eingabehilfe enthalten?

  Function EMSK_ContainsFldArt(ByVal strEmskDsn As String, ByVal strFldArtDsn As String) As Boolean  
 


strEmskDsn: Datensatznummer (DSN) der Eingabehilfe
strFldArtDsn: Datensatznummer (DSN) der Feldart
Rückgabewert: = True, wenn Feldart in Eingabehilfe enthalten ist.


Public Function EMSK_ContainsFldArt(ByVal strEmskDsn As String, ByVal strFldArtDsn As String) As Boolean
    Dim rsEmskDet As ADODB.Recordset
    Dim strSQL As String

    strSQL = "SELECT Dsn 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 = False Then
        EMSK_ContainsFldArt = True
    Else
        EMSK_ContainsFldArt = False
    End If

End Function