Potrebna pomoc ako ikako mozete

Daklem pocela je kosa da mi otpada od ovog.Napravio sam (nadam se ) manju bazu za stampariju. Teziste problema je da pisem i vodim fakture.Do sada sam uspeo da napravim table,povezem ih i napravim forme za unos.Kada je na red doslo stampanje izvestaja odnosno faktura nastao je potop.Nikako ne uspevam da na osnovu unetih podataka za jednu fakturu to isto i odstampam.Pored toga nikako ne uspevam niti da obracunam polja za telo fakture.Ako neko ima dobre volje molim da mi pomogne.
Hvala u napred.
P.S. Evo kacim fajl pa sta vam Bog da

Da bi stampao Fakturu, mora da psotoji Repot object gde je definisano sta ce se to stampati na fakturi. A da bi postojao report, mora da postoje tabele ili kveriji iz kojih se citaju podaci koji ce se videti na reportu.

Ti imas skup tabela koje definisu Narudzbu. verovatno neko ensto od tebe narucuje. Medjutim, nams nista za fakturu. Ako je narudzba = faktura, onda treba da napravis kveri koji sadrzi sve podatke koji ce se stampati na fakturi a to je zaglavlje i stavke. Taj kveri upottrebis kao data source za report koji nazoves rptFaktura. Onda negde dodas dugme koje ce imati otprilike ovakav kod:


sub StampajFakturu_Click()

dim strWHERE as string
dim strReportName as string

'ovo je tvoj report koji prikazuje fakturu
strReportName = "rptFaktura"

'ovde definises koju fakturu zelis da stampas
strWhere = "FakturaID = " & me!FakturaID
'pretpostavka je da negde na formi imas kontrolu koja se zove FakturaID i sadrzi oznaku fakture
'pretpostavka je da je ta oznaka faktuer neki broj a ne text (sto ne mora da bude tacno)

'ovim otvaras reort za tacno odredjenu fakturu
DoCmd.OpenReport ReportName:=strReportName, WhereCondition:=strWhere


End Sub

mNemoj da Cut/Paste ovaj kod, nego pogledaj liniju po liniju sta se desava,. Pogledaj Help ili u knjigama kako DoCmd radi i kako se prave parametri, posebno WhereCondition

Neko reče malo pre: ........Ako mislis sam da to uradis naostri se i knjigu u sake.....

Top tema Gotovi programi članova foruma: http://www.elitesecurity.org/t...Gotovi-programi-clanova-foruma

podtema: http://www.elitesecurity.org/t...koju-ja-koristim-za-moju-firmu

a i druge podteme na tom linku će ti pomoći da shvatiš kako se prave izveštaji.

Uživaj.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Off topic.

@ Zidar
Gde nestade ono: "The best code is not any code" ili tako nekako. Nema ga ni u potpisu.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

@Getsbi "Gde nestade ono: "The best code is not any code" ili tako nekako. Nema ga ni u potpisu. "

U ovom sluvcaju ni nema koda

@ Zidar
Malo sam aludirao na to da mu za konkretan izveštaj i ne treba bog zna kakav kod. Inče sam pomešo tvoj potpis sa Chachk-inim. Izvini.

@ printer
Za ovakav tip izveštaja dovoljno je da:
1. Napraviš pokretačku formu sa poljem ili poljima za odabir broja fakture.
2. Obezbediš query sa referenciranjem u polju broj fakture prema formi u kojoj vrši odabir broja fakture.
3. Zasnuješ report na tom query-ju.
3. Na pokretačkoj formi napraviš dugme i na događaj On Click napišeš: DoCmd.OpenReport "Naziv reporta"

Obračunavanje polja za telo fakture kako ti kažeš možeš da uradiš na reportu tako da u Control Source nekog Unbound polja staviš:
= [polje1] * [polje2]
Ili ako terba suma:
= Sum(PoljeKojeSumiras)
U ovom drugom slučaju Unbound polje stavi u Report Footer sekciju.
U svakom slučaju u linku koji sam ti predložio ima primara na pretek.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Zahvalan sam na sugestijama. Obuvam peraja pa da se krene . Malo sam trcao nim sto sam napravio i vedo da tu "nema ko " da izvrsi zahtev. U globalu mi je jasno mada sam u ovome izuzetno skromnih znanja i samim tim mogucnosti. Nemojte me bas jako mrzeti ako ner ukapiram pa se ponovo javim Odoh da zaronim !

Pa evo da se "pohvalim" da sam uspeo da resim problem na osnovu vasih sugestija. Ovo postaje sve zanimljivije . E sad ako moze jedno pitanje jos. Kada otvorim program pojavi se dijalog i nekako uspevam da namontiram da se startuje glavna forma. Medjutim izludjuje me sto se ona ne pojavi maximizirana. Kako u stvari da podesim da kada startujem bazu dobijem maximiziranu mein formu ali tako da kada sledece forme zatvaram mein stamno bude max.

DoCmd.Maximize

Pogledaj jos i karticu format pa vidi sta ti i kako odgovara pa podesi.

Potpis

Igor

Ala sam se rano poradovao . Zasto mi se dogadja sledece: Ispisao sam prvu fakturu i sve je bilo da kazem OK. Danas sam ispisao sledecu i kada sam startovao pregled izadje mi (i dodje mi da se slogiram) obe fakture i to izmesano.Naime izasla prva pa telo druge i sve je izmesano.
Nije da mi treba da mi to neko uradi nego jednostavno ne kapiram sta je greska. Ajd omozite.
P.S. Fajl kacim da vidite sta sam s...ao.

Dakle, bas nikoga da mi pomogne??

AreaKupciQuery na IDKupca stavi [Forms]![forFaktura]![KupacID] i onu subformu narucbine na formi forFakture stavi na Single.Procitaj zakon i vidi sta sve jedna faktura mora da sadrzi i dotjeraj malo report (malo maste).Kako ti faktura bude neozbiljna tako ce ti kupci i placati robu.