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