TKSoft-Online

 
Dim DB As DAO.Database
Dim rstIn As DAO.Recordset
Dim rstOut As DAO.Recordset
Dim iCountDS As Integer, iDummyDS As Integer
Dim I As Integer, J As Integer
 
Set DB = CurrentDb()
    DB.Execute (\"DELETE tbl_Unterbericht_Source.* FROM tbl_Unterbericht_Source;\"«»)
    DB.Execute (\"INSERT INTO tbl_Unterbericht_Source ( RWS, Artikel, Stück, Gradet ) SELECT tblUnterformularRWS.RWS, tblUnterformularRWS.Artikel, tblUnterformularRWS.Stück, tblUnterformularRWS.Gradet FROM tblUnterformularRWS;\"«»)
Set rstIn = DB.OpenRecordset(\"abf_CountDummy\"«»)
Set rstOut = DB.OpenRecordset(\"tbl_Unterbericht_Source\"«»)
 
    rstIn.MoveLast
    iCountDS = rstIn.RecordCount
    rstIn.MoveFirst
 
    For I = 0 To iCountDS - 1
        iDummyDS = rstIn!Rest
        For J = 0 To iDummyDS - 1
            rstOut.AddNew
            rstOut!RWS = rstIn!RWS
            rstOut!Artikel = \"\"
            rstOut!Stück = Null
            rstOut!Gradet = \"\"
            rstOut.Update
        Next J
        rstIn.MoveNext
    Next I
 
    rstIn.Close: rstOut.Close
    DB.Close
 
   On Error GoTo 0
   Exit Sub
 

DB.Execute (\"INSERT INTO tbl_Unterbericht_Source ( RWS, Artikel, Stück, Gradet ) SELECT tblUnterformularRWS.RWS, tblUnterformularRWS.Artikel, tblUnterformularRWS.Stück, tblUnterformularRWS.Gradet FROM tblUnterformularRWS;\"«»)