FlowFact - Entwicklungstools

zurück

Function - EMSK_DelFldArt
Feldart aus Eingabehilfe löschen

  Function EMSK_DelFldArt(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 aus Eingabehilfe gelöscht werden konnte.


Public Function EMSK_DelFldArt(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
        rsEmskDet.Delete
        m_oBase.FF_UpdateRecordset rsEmskDet
        EMSK_DelFldArt = True
    Else
        EMSK_DelFldArt = False
    End If
End Function