Prikazi cijelu temu 18.02.2011 16:48
Kiro Van mreze
Clan
Registrovan od:04.02.2009
Lokacija:Velika Kladuša; BiH


Predmet:Re: Kopiranje u više tablica odjednom
Citiraj pmiroslav:
Pitanje je bilo i moj problem kako da povučem podatke iz tblProdaja i tblProdajaStavke koje popunjava prodaja i unesem ih u tablice tblTransakcije i tblUlazIzlaz koje popunjava SkladiÅ¡te i ujedno da za te stavke u tblProdajaStavke obeljžim da je proknjiženo.
Predpostavljam da trebaš da dodaješ nove slogove!
Ja bi to uradio ovako:
Napravio bi dva Append Query (svakom običnom query-u možeÅ¡ da promijeniÅ¡ Query Type u append, delete itd)
Prvi od tblProdaja da popunjava tblTransakcije - sa uslovom na polju forme koje ti odgovara [Forms]![Naziv_Forme]![NazivPolja]
Drugi od tblProdajaStavke da popunjava tblUlazIzlaz - sa uslovom na polju forme koje ti odgovara [Forms]![Naziv_Forme]![NazivPolja]
Za stavke u tblProdajaStavke proknjiženo: stavio bi dodatno polje u Drugom query-u u Field: Naziv: 1 (ili neka druga oznaka koja to označava i tu će ti za sve rekorde biti to)
Testiraj querye u Datasheet Wiew.
Na formi bi stavio jedno dugme sa slijedećim kodom:
PreuzmiIzvorni kôd (vbnet):
  1. ' ide nešto ispred
  2. WOF
  3.  HON
  4.  DoCmd.OpenQuery "QryNaziv1"
  5.  DoCmd.OpenQuery "QryNaziv2"
  6.  WON
  7.  HOF
  8. ' ide nešto na kraju
  9.  
  10.  
  11. dodatne funkcije potrebne
  12.  
  13. Function WON()
  14. 'Purpose: turns Warnings ON
  15.     DoCmd.SetWarnings True
  16. End Function
  17.  
  18. Function WOF()
  19. 'Purpose: turns Warnings OFF
  20.     DoCmd.SetWarnings False
  21. End Function
  22.  
  23. Function HON()
  24. 'Purpose: turns HourGlass ON
  25.     DoCmd.Hourglass True
  26. End Function
  27.  
  28. Function HOF()
  29. 'Purpose: turns HourGlass OFF
  30.     DoCmd.Hourglass False
  31. End Function
Isto to bi uradio za brisanje samo sa delete query-jem.
Mislim da je za tebe ovo najsigurniji i najlakÅ¡i način da dođeÅ¡ do zahtjevanog, sigurnije od recorseta i silnog koda.
Toliko, nažalost ja nemam vremena da ti napravim primjer.