FlowFact - Entwicklungstools

zurück

Sub - AKT_SetAktArtByDsn
Felder der Aktivität aus Vorgabe der Aktivitätenart setzen

siehe AKT_SetAktArt
  Sub AKT_SetAktArtByDsn(ByVal strAktDsn As String, ByVal strAktArtDsn As String)  
 


strAktDsn: Datensatznummer (DSN) der Aktivität
strAktArtDsn: Datensatznummer (DSN) der Aktivitätenart


Public Sub AKT_SetAktArtByDsn(ByVal strAktDsn As String, ByVal strAktArtDsn As String)
    Dim rsAkt As ADODB.Recordset
    Dim rsAktArt As ADODB.Recordset

    Set rsAkt = AKT_Find("Dsn = " & m_oUtil.SqlUid(strAktDsn))
    Set rsAktArt = AKTART_Find("Dsn = " & m_oUtil.SqlUid(strAktArtDsn))

    AKT_SetAktArt rsAkt, rsAktArt
End Sub