![]() |
FlowFact - Entwicklungstools |
![]() |
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 |