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):' ide neÅ¡to ispred
WOF
HON
DoCmd.OpenQuery "QryNaziv1"
DoCmd.OpenQuery "QryNaziv2"
WON
HOF
' ide nešto na kraju
dodatne funkcije potrebne
Function WON()
'Purpose: turns Warnings ON
DoCmd.SetWarnings True
End Function
Function WOF()
'Purpose: turns Warnings OFF
DoCmd.SetWarnings False
End Function
Function HON()
'Purpose: turns HourGlass ON
DoCmd.Hourglass True
End Function
Function HOF()
'Purpose: turns HourGlass OFF
DoCmd.Hourglass False
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.