Sub | Mkm_Copy(ByVal strTable As String, ByVal strSourceDsn As String, ByVal strDestDsn As String) |
---|---|
strTable: Tabellenname der Haupttabelle strSourceDsn: Quell-Datensatznummer der Haupttabelle z.B. AD, Obj ... strDestDsn: Ziel-Datensatznummer der Haupttabelle z.B. AD, Obj ... Public Sub Mkm_Copy(ByVal strTable As String, ByVal strSourceDsn As String, ByVal strDestDsn As String) Dim strMkmDsnList As String strMkmDsnList = Mkm_Get(strTable, strSourceDsn) Mkm_Add strTable, strDestDsn, strMkmDsnList End Sub |