Napravio sam formu u Accessu koja uspešno računa zaradu radnika na osnovu njihovog broja radnih sati i cene rada, ali mi se ta vrednost (iznos zarade) ne upisuje u tabelu. Trebala bi mi pomoć oko izrade coda kojim bi rešio ovaj broblem.
Racunanje u Accessu
Zaključano
Zakačeno
Neka ti se to polje na formi na primer zove Plata i u tabeli takodje Plata.
Dim Currdb As Database
Dim rs As DAO.Recordset
Dim Zarada As Currency,Sati As Double, Cena As Currency
Set Currdb = CurrentDb
Set rs = Currdb.OpenRecordset("SELECT [BrojSati] AS BrojSati, " & "[CenaRada] AS CenaRada " & " FROM TvojaTabela WHERE TvojaTabela.IDRadnika = '" & Forms!NazivForme!IDRadnika & "'")
Sati = Nz(rs!BrojSati, 0)
Cena = Nz(rs!CenaRada, 0)
Zarada = Broj + Sati
Me!Plata=Zarada
rs.Close
Nakon toga u Control Source polja Plata sa forme izaberes polje Plata it tvoje tabele.
Dim Currdb As Database
Dim rs As DAO.Recordset
Dim Zarada As Currency,Sati As Double, Cena As Currency
Set Currdb = CurrentDb
Set rs = Currdb.OpenRecordset("SELECT [BrojSati] AS BrojSati, " & "[CenaRada] AS CenaRada " & " FROM TvojaTabela WHERE TvojaTabela.IDRadnika = '" & Forms!NazivForme!IDRadnika & "'")
Sati = Nz(rs!BrojSati, 0)
Cena = Nz(rs!CenaRada, 0)
Zarada = Broj + Sati
Me!Plata=Zarada
rs.Close
Nakon toga u Control Source polja Plata sa forme izaberes polje Plata it tvoje tabele.
Ako se tvoja forma naslanja na tabelu (znači vezana je), onda je dovoljno to što si u tabelu uneo elemente iz kojih se računa zarada. Nema svrhe čuvati izračunate vrednosti u tabeli. Bolje je da napraviš report (izveštaj) na kojem će biti izračunato (unbound) polje sa vrednošću iznosa zarade.
Evo ja da pametujem malo, šta ako se obrazac po kom se računaju zarade vremenom promeni... Možda nije loše sačuvati tako važne podatke. Slažem se sa ovim što je boki026 napisao, s tim da ne postavljaš apostrofe oko numeričkih vrednosti. I nije mi najjasnije što je u SQL koristio aliase identične nazivima polja.
Potpis
Ozbiljan i odgovoran mladić