Mozda prost ali za mene komplikovan problem...

Mozda prost ali za mene komplikovan problem... 17.12.2004. u 14:38 · pre 265 meseci #1

Ovako, dragi Accessovci...

Treba mi baza za Samostalnu Trgovinsku Radnju...

Napravio sam formu u kojoj npr. treba da unesem podatke jednog potrosackog racuna...

Forma:
1. BROJ RACUNA
2. DATUM
Subforma:
1. SIFRA ARTIKLA
2. NAZIV ARTIKLA
3. CENA
4. KOLICINA

Pitam ja vas kako da dok ubacujem ove podatke (popunjvam) formu dobijem ukupnu sumu negde na dnu forme (da bude kao racun) i da isto tu sumu dobijem u izvestaju (Report)...

Upotrebom Query-ja ja dobijem sumu u fromi koju popunjavam ali mi se ta suma ponavlja posto sam morao da stvorim jos jedno polje za sumu u Subformi... ali to nije to ja hocu da mi suma vrednosti npr. prodate robe bude na dnu forme i izvestaja... tragao sam i imam knjige i pitao ljude ali niko mi nije mogao pomoci...

Unapred hvala !!!

Pozdrav !!!

Re: Mozda prost ali za mene komplikovan problem... 20.12.2004. u 16:02 · pre 265 meseci #2

Sve zavisi od toga kako su ti organizovane tabele. Kazi kako izgledaju tabele pa cemo nesto vec uraditi.

:-)

Re: Mozda prost ali za mene komplikovan problem... 28.12.2004. u 09:11 · pre 265 meseci #3

Postavi polje iznos koje će računati količina*cena, a u futeru podforme postavi polje, recimo ''zbir'', čija je vrednost =sum(količina*cena).

Re: Mozda prost ali za mene komplikovan problem... 05.01.2005. u 16:24 · pre 265 meseci #4

Pa to i radim ali ne dobijam nista, mozda treba jos nesto da se navede... da bi se povezala ova formula u futeru sa poljem kolicina*cena... Jesi li ti probao ovo ili samo tako predpostavljas...

Hvala

Pozdrav...

Re: Mozda prost ali za mene komplikovan problem... 05.01.2005. u 16:39 · pre 265 meseci #5

Tabele su organizovane ovako... Ima ih tri

Roba
1. Sifra Artikla
2. Naziv Artikla
3. Jedinica mere
4. Cena Artikla

Faktura Izlaza
1. Sifra Faktrue
2. Sifra Artikla
3. Kolicina

Faktura
1. Sifra Fakture
2. Datum

Tabela Roba je povezana sa tabelom Faktura Izlaza preko polja Sifra Artikla a tabela Faktura Izlaza sa Fakturom preko polja Sifra Fakture...
A hocu da dobijem sledecu formu u koju cu da formiram npr. fakturu izlaza tj . racun
____________________________________________________________
FAKTURA IZLAZA ROBE
____________________________________________________________
1. BROJ FAKTURE IZLAZA (RACUN) 00003
2. DATUM IZLAZA 12.12.2004
____________________________________________________________
SIFRA ART. NAZIV ART. JEDINICA KOLICINA CENA PROIZOVD
____________________________________________________________

____ 1 _____ LESNIK__________KG_______1______200.00___200.00
____ 2 _____ KIKIRIKI_________KG_______2______100.00___200.00
____ 3 _____ MLEKO 1/1______KOM______5_______70.00___350.00
____________________________________________________________
_______________________________________S V E G A_____750.00
____________________________________________________________

Ja sve ovo dobijem dok popunjavam formu tj, fakturu ali sumu S V E G A 750.00 ne mogu da dobijem nikako...
To hocu da resim, u izvestaju mogu da dbojem sumu ali u FORMI KAKO
Dobijem sumu ako ubacim u Queri jos jedno polje pored PROIZVODA i nazovem SUMA ali posle u formi dobijam sumu pored proizvoda sto moze da posluzi ali nije profesionalno, ja hocu da to izgleda, evo koliko pokusavam i nikako... Da li neko zna?

Hvala

Pozdrav...

Re: Mozda prost ali za mene komplikovan problem... 05.01.2005. u 17:33 · pre 265 meseci #6

Ti imas dva problema, jedan za koji trazis odgovor i drugi koji ne vidis.

Prvo da resimo ovaj za koji si pitao. - kako ispisati sumu na formi za unos detalja fakture. Na glavnoj formi, negde ispod subforme (moze i u form Footer) postavi unbound text box i ukucaj mu ovo kao Control Source:

Code:
=DSum("KolCena","qryFakturaIzlaza","SifraFakture=" & [Form]![SifraFakture])

Code:

Moj kveri qryFakturaIzlaza izgleda ovako:

Code:
SELECT tblFakturaIzlaza.SifraFakture, tblFakturaIzlaza.SifraArtikla, tblFakturaIzlaza.Kolicina, tblArtikli.CenaArtikla, [Kolicina]*[CenaArtikla] AS KolCena
FROM tblArtikli INNER JOIN tblFakturaIzlaza ON tblArtikli.SifraArtikla = tblFakturaIzlaza.SifraArtikla;

Jos ti treba u sub formi, na AfterUppdate ovakav kod:

Code:

Private Sub Form_AfterUpdate()
Me.Parent.Recalc
End Sub

Ovo da bi se osvezio unbound text box.

Sada drugi problem. Ako uradis kako sam ti pokazao sve ce lepo da radi do momenta kad promenis cenu artikla. Zamisli da 5 januara 2005 izads nekome fakturu i cena mleka je 70 dinara, kolicina 10. Sve OK za sada. Posle pet dana cena mleka poraste na 75 dinara. Na kraju meseca dodje knjigovodja da obracuna ukupan promet i hoce da odstampa se fakture. Tvoj faktura od 5 januara pokazivace cenu od 75 dinara za litar mleka, iako si je ti izdao i naplatio 70 dinara za litar mleka. Posle tri meseca, mleko opet poskupi, na 80 dinara. sve fakture na kojima se pojavljuje mleko bice pogresne. Znaci, mora negde da se pamti cena u momentu fakturisanja. To negde treba da bude tvoja tabela Faktura Izlaza, ovako
Faktura Izlaza
1. Sifra Faktrue
2. Sifra Artikla
3. Kolicina
4. CenaNaFakturi dodao Zidar

CenaNaFakturi se prepisuje iz tabele tblArtikli, kad god se doda novi rekord u tabelu Faktura Izlaza. To se desava kad na subformi dodas novi rekord i odaberes artikl. Po izboru artikla dakle treba prepisati trenutnu cenu iz tabele tblArtikli u tekucu fakturu. Ako se kasnije promeni cena u tabeli tblArtikli, fakture ostaju nepromenjene i ti imas u bazi podataka informaciju o ceni na fakturi.
Evo ti primer koda koji mora da se napise za subformu:

Code:

Option Compare Database
Option Explicit

Private Sub Form_AfterUpdate()
'Ovo osvezava sumu na glavnoj formi (Parent)
Me.Parent.Recalc
End Sub

Private Sub SifraArtikla_AfterUpdate()
'Moje polje (i kontrola na subformi) zove se SifraArtikla
'Prepisujemo cenu iz tblArtikli.CenaArtikla u tblFakturaIzlaza.CenaFakturisana
Me!CenaFakturisana = curKopirajCenu(Me!SifraFakture)
End Sub

Function curKopirajCenu(lngSifraArtikla As Long) As Currency
'Ova funkcija vraca cenu artikla iz tabele tblArtikli za zadatu sifru artikla
curKopirajCenu = DLookup("CenaArtikla", "tblArtikli", "SifraArtikla=" & lngSifraArtikla)
End Function

:-)

Re: Mozda prost ali za mene komplikovan problem... 05.01.2005. u 17:37 · pre 265 meseci #7

OOPS, zaboravio sam da podsetim da treba promeniti control source za unbound text box (suma) umesto

Code:

=DSum("KolCena","qryFakturaIzlaza","SifraFakture=" & [Form]![SifraFakture])

staviti

Code:

=DSum("CenaFakturisana","qryFakturaIzlaza","SifraFakture=" & [Form]![SifraFakture])

Naravno, u qryFakturaIzlaza treba uvesti polje CenaFakturisana iz tabele Fakture IZlaza (tblFakturaIzlaza u mom primeru)

:-)

Re: Mozda prost ali za mene komplikovan problem... 07.01.2005. u 22:55 · pre 265 meseci #8

Ako sam te dobro razumio ti si u subformi u nekom polju "suma" dobio ukupnu vrijednost racuna.
Ako si to uradio to je dobro samo to polje treba da stoji u form footer i da bude nevidljivo napr polje "suma".
Sada u glavnoj formi u form footer postavis jedan tekst box i na kontrol source stavis:
=IIf([Imesubforme].[Form]![ImeKontrole] Is Null;"";Format([Imesubforme].[Form]![ImeKontrole];"0.00") & " Valuta")
Za izvjestaj je malo problem. Ne sto se tice podataka nego postavljanja kontrola ako stapas na pos printeru i ako je to "star" printer tesko je ustimat polja pa je naj bolje napraviti stampu iz dosa.
Uradi to na formi pa ce poslije biti lakse.
Sretan Rad.

Potpis

zxz

Re: Mozda prost ali za mene komplikovan problem... 25.01.2005. u 23:18 · pre 264 meseci #9

Citat:

Postavi polje iznos koje će računati količina*cena, a u futeru podforme postavi polje, recimo ''zbir'', čija je vrednost =sum(količina*cena).

Ako ti gornja formula ne radi onda uradi ovako.

U Query-ju postavi polje "Iznos" koje će računati "([količina]*[cena])". Ubaci to polje u Formu a onda u Footer-u Forme postavi polje čija je vrijednost = Sum([Iznos]).

Srodne teme