FlowFact - Entwicklungstools

zurück

Function - EMSK_GetField
Feldinhalt abfragen

  Function EMSK_GetField(ByVal strEmskDsn As String, ByVal strFldArtDsn As String, ByVal strFieldName As String) As Variant  
 


strEmskDsn: Datensatznummer (DSN) der Eingabehilfe
strFldArtDsn: Datensatznummer (DSN) der Feldart
strFieldName: Name des Feldes
Rückgabewert: Feldinhalt oder NULL


Public Function EMSK_GetField(ByVal strEmskDsn As String, ByVal strFldArtDsn As String, ByVal strFieldName As String) As Variant
    Dim rsEmskDet As ADODB.Recordset
    Dim strSQL As String

    strSQL = "SELECT " & strFieldName & " 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_GetField = rsEmskDet(strFieldName).value
    Else
        EMSK_GetField = Null
    End If
End Function