![]() |
FlowFact - Entwicklungstools |
![]() |
Function | AKT_GetParentAKTDsn(ByVal strAktDsn As String) As String |
strAktDsn: Datensatznummer der untergeordneten Aktivität Rückgabewert: Datensatznummer (DSN) der übergeordneten Aktivität oder 'LEER' Public Function AKT_GetParentAKTDsn(ByVal strAktDsn As String) As String Dim rs As ADODB.Recordset Dim strSQL As String '** INNER JOIN liefert nur gültige DSN's zurück strSQL = "SELECT AKT.AKT_DSN FROM AKT " & _ "INNER JOIN AKT as AKT1 ON AKT.AKT_DSN = AKT1.DSN " & _ "WHERE AKT.DSN=" & m_oUtil.SqlUid(strAktDsn) Set rs = m_oBase.FF_GetRecordset(strSQL) If rs.EOF Then AKT_GetParentAKTDsn = "" Else AKT_GetParentAKTDsn = m_oUtil.k(rs("AKT_DSN").value) End If Set rs = Nothing End Function |