Prikazi cijelu temu 25.05.2015 13:11
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Petlja problem
evo tvoja petlja bi trebalo nesto ovako izgledati mada mislim da si puno komplikovao u ovo bolje da nam opises sat treba se uraditi iz koj recordset sta se uzima i gde treba se to staviti pa da se odradi cela procedura.
Koliko ja vidim ti oces podatke iz dva recordseta da ih stavis u jedu petlju, a to nije lako odraditi zbog to sta mi moramo imati vise kriterija.
Ovako kako si ti postavio mozes upisati samo jedan recird odnosno jedan red.
Ako nije ti tesko zakaci primer pa resicemo to.

PreuzmiIzvorni kôd (Visual Basic):
  1.   sdupis.MoveFirst
  2. Do While Not sdupis.EOF
  3.    i = i + 1
  4.    rs.AddNew
  5.    rs.Fields("Knjizenje") = i
  6.    rs.Fields("IDNalog") = sdupis.Fields("nalog")
  7.    rs.Fields("IDVrstaNaloga") = sdupis.Fields("IDVrstaNaloga")
  8.    rs.Fields("IDOrg") = sdupis.Fields("IDOrgJedIzvor")
  9.    rs.Fields("IDKonto") = sdupis.Fields("IDKonto")
  10.    rs.Fields("IDValuta") = sdupis.Fields("IDValuta")
  11.    rs.Fields("IDKom") = sdupis.Fields("KOMit")
  12.    rs.Fields("IDFirma") = sdupis.Fields("IDFirma")
  13.    rs.Fields("Datum") = sdupis.Fields("Datum")
  14.    rs.Fields("IDPeriod") = sdupis.Fields("")
  15.    rs.Fields("") = sdupis.Fields("IDPeriod")
  16.  
  17.    rs.Update
  18.   sdupis.MoveNext
  19. Loop