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