Dzień dobry, od dawna hobbystycznie ( dla siebie) programuję w Accesie i Excelu. Syn poprosił mnie abym napisał przerzutkę towarów z Excela do Subiekta. Jakoś to poskładałem, ale nie umiem przebrnąć w momencie gdy trafiam na komplet. Dodanie kompletu jest ok, ale jak dodać potem dzieci w komplecie. Poproszę o pomoc.

 
  Dim oSubGT As Insert.Subiekt
   
    Dim oTwy As Insert.Towary
    Dim oTw As Insert.Towar

    Set oSubGT = UruchomSubiekta()
  oSubGT.Okno.Widoczne = False
   
    Set oTwy = oSubGT.Towary
   
    Dim j As Integer
 
 j = 4
 'do tabeli Towar
   While j < 12
If Range("m" & j) > 1 Then '(trafia na komplet i i jest ok, ale jak zapisać następne rekordy dziecka )
   Set oTw = oTwy.Dodaj(8)
       
        oTw.Symbol = Range("b2") & "/1/" & Range("a" & j)
        oTw.Nazwa = Range("c" & j)
        oTw.Opis = Range("b" & j)
        oTw.CenaKartotekowa = Range("e" & j)
Else
        Set oTw = oTwy.Dodaj(1)
        oTw.Symbol = Range("b2") & "/1/" & Range("a" & j)
        oTw.Nazwa = Range("c" & j)
        oTw.Opis = Range("b" & j)
        oTw.CenaKartotekowa = Range("e" & j)
       
End If

    oTw.Zapisz
    oTw.Zamknij

     
     j = j + 1
     Wend
     oSubGT.Zakoncz