pmiroslav 23.02.2014 18:45
Predmet:Re: Update rekorda iz jedne tabele u drugu

Pa onda ipak broj računa nema veze, već Å¡ifra artikla. Ti na jednom računu možeÅ¡ imati 20 različitih stavki i želiÅ¡ stanje svake od tih stavki ažurirati u tablici SkladiÅ¡te ?

Amelasar 23.02.2014 18:46
Predmet:Re: Update rekorda iz jedne tabele u drugu

Znaci:

PreuzmiIzvorni kôd (Text):
  1. SELECT * FROM IzlazIzSkladista
  2. WHERE (((IzlazIzSkladista.BrojRacuna)=1));

artikal (1025) koji se nalazi na racunu broj 1 cija je kolicina 4 treba umanjiti u tabeli Skladiste za 4.

Amelasar 23.02.2014 18:49
Predmet:Re: Update rekorda iz jedne tabele u drugu

@ pmiroslav

Tako je, da sve stavke sa racuna. A broj racuna ima svrhu jer ce se umanjivanje obavljati prilikom printanja racuna da jednostavno uzme stavke samo sa tog racuna.

Amelasar 23.02.2014 20:37
Predmet:Re: Update rekorda iz jedne tabele u drugu

Moze se dodati polje a mozda i ne treba jer bi se prilikom printanja racuna kolicina skinula sa stanja a racun ne moze biti dva puta isprintan.

Amelasar 23.02.2014 20:39
Predmet:Re: Update rekorda iz jedne tabele u drugu

Kada se pogrijesi onda se pravi reklamirani racun. Znaci obrnuti proces. Sad cu probati proceduru. Hvala.

Amelasar 23.02.2014 20:49
Predmet:Re: Update rekorda iz jedne tabele u drugu

Procedura funkcionise besprijekorno. Sad jos treba napraviti za reklamirani, mislim da cu uspjeti sama jer je samo obrnut proces.

Hvala Vam puno na pomoci.

Amelasar 23.02.2014 20:56
Predmet:Re: Update rekorda iz jedne tabele u drugu

Ustvari procedura i za reklamirani ostaje ista jer se kolicina na reklamiranom racunu kuca u minusu.
Jos jednom hvala zxz. Sta bih ja bez tebe.

zxz 23.02.2014 20:56
Predmet:Re: Update rekorda iz jedne tabele u drugu

PreuzmiIzvorni kôd (Visual Basic):
  1. Function Vrati_Stanje(Br_racuna As Integer)
  2. Dim Db As DAO.Database
  3. Dim Rs As DAO.Recordset
  4. Dim Kol(2) As Single
  5.  
  6. Dim SQL As String
  7.  
  8.  
  9. Set Db = CurrentDb()
  10.  
  11. SQL = "SELECT Skladiste.Kolicina AS K1, IzlazIzSkladista.Kolicina AS K2 " _
  12.       & "FROM IzlazIzSkladista INNER JOIN Skladiste ON IzlazIzSkladista.Sifra = Skladiste.Sifra " _
  13.       & "WHERE BrojRacuna=" & Br_racuna
  14. Set Rs = Db.OpenRecordset(SQL)
  15. Do While Not Rs.EOF
  16. Rs.Edit
  17. Kol(1) = Rs!K1
  18. Kol(2) = Rs!K2
  19. Kol(0) = Kol(1) + Kol(2)
  20. Rs!K1 = Kol(0)
  21. Rs.Update
  22. Rs.MoveNext
  23. Loop
  24. Rs.Close
  25. Set Db = Nothing
  26. End Function

evo za nazaj.

Amelasar 23.02.2014 21:25
Predmet:Re: Update rekorda iz jedne tabele u drugu

Hvala puno!