![]() |
FlowFact - Entwicklungstools |
![]() |
Function | PROJEKTE_GetParentProjekteDsn(ByVal strProjekteDsn As String) As String |
strProjekteDsn: Datensatznummer des untergeordneten Projekts Rückgabewert: Datensatznummer (DSN) des übergeordneten Projekts oder 'LEER' Public Function PROJEKTE_GetParentProjekteDsn(ByVal strProjekteDsn 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 Projekte.Projekte_DSN FROM Projekte " & _ "INNER JOIN Projekte as Projekte1 ON Projekte.Projekte_DSN = Projekte1.DSN " & _ "WHERE Projekte.DSN=" & m_oUtil.SqlUid(strProjekteDsn) Set rs = m_oBase.FF_GetRecordset(strSQL) If rs.EOF Then PROJEKTE_GetParentProjekteDsn = "" Else PROJEKTE_GetParentProjekteDsn = m_oUtil.k(rs("PROJEKTE_DSN").value) End If Set rs = Nothing End Function |