strTable: Tabellenname der Haupttabelle
strLinkDsn: Datensatznummer der Haupttabelle z.B. AD, Obj ...
strMKMDsn: Datensatznummer des Merkmals
Rückgabewert: = True wenn im Datensatz der Haupttabelle das Merkmal gesetzt ist


Public Function Mkm_Exists(ByVal strTable As String, ByVal strLinkDsn As String, ByVal strMkmDSN As String) As Boolean
    Dim rs As ADODB.Recordset
    Dim strSQL As String

    strSQL = "SELECT * FROM " & UCase(strTable) & "MKM WHERE (link_dsn=" & m_oUtil.SqlUid(strLinkDsn) & ") AND (mkm_dsn=" & m_oUtil.SqlUid(strMkmDSN) & ")"
    Set rs = FF_GetRecordset(strSQL)
    If rs.EOF = False Then
        Mkm_Exists = True
    Else
        Mkm_Exists = False
    End If
End Function