[ pmiroslav @ 07.02.2008. 08:31 ] @
U bazi koristim formu za pretraživanje i molim savjet kako printati rezultat pretrage. |
[ pmiroslav @ 07.02.2008. 08:31 ] @
[ Getsbi @ 07.02.2008. 10:06 ] @
Pogledaj ovde:
http://www.elitesecurity.org/t308239-Vise-rekorda-izvjestaj Imaš primer i dodatni code koji je dao kolega graovacb. [ pmiroslav @ 07.02.2008. 12:08 ] @
Gledao sam to ali nije mi baš pomoglo.
Rezultati pretrage u mom primjeru su u subformi i ja pretražujem po više kriterija napr naziv i kvalitet ili naziv i skladište itd [ graovacb @ 07.02.2008. 15:49 ] @
Posto su forma i izvestaj u principu ista stvar i kod mora biti slican. Napravi Izvestaj na osnovu tabele MAT sa svim poljima i na formu postavi "dugme" cmdOtvoriIzvestaj:
Private Sub cmdOtvoriIzvestaj_Click() Dim MySQL As String, MyCriteria As String, MyRecordSource As String Dim ArgCount As Integer Dim Tmp As Variant ArgCount = 0 AddToWhere [Look For Skl], "[Skl]", MyCriteria, ArgCount AddToWhere [Look For Naz], "[NazivT]", MyCriteria, ArgCount AddToWhere [Look For Sifra], "[Sifra]", MyCriteria, ArgCount AddToWhere [Look For Kvalitet], "[Kvalitet]", MyCriteria, ArgCount If MyCriteria = "" Then MyCriteria = "True" End If DoCmd.OpenReport "rptMaterijal", acViewPreview, , MyCriteria, acWindowNormal End Sub [ pmiroslav @ 07.02.2008. 17:07 ] @
Napravio sam to tako, ali u reportu mi se ipak izlistaju svi podaci, a ne oni koji su rezultat pretrage,
[ graovacb @ 08.02.2008. 07:09 ] @
Nisi bas sve postavio, u delu koda za stampanje izvestaja ti nedostaje deo MyCriteria, acWindowNormal
DoCmd.OpenReport "rptMaterijal", acViewPreview, , MyCriteria, acWindowNormal [ pmiroslav @ 08.02.2008. 07:27 ] @
Sada je u redu.
Hvala na pomoći Evo sada sam to sve dotjerao pa šaljem formu za pretragu i ako se nekome sviđa neka je koristi. [Ovu poruku je menjao pmiroslav dana 08.02.2008. u 11:04 GMT+1] [Ovu poruku je menjao pmiroslav dana 08.02.2008. u 11:04 GMT+1] [ viss02 @ 18.12.2008. 11:17 ] @
Da li postoji mogucnost kada zavrsim pretragu sa sifrom 1124559 da ukucam novu sifru i rezultat nove pretrage se doda u subform pored postojecih rezultata za sifru 1124559
[ izonic @ 18.12.2008. 18:42 ] @
Na on open izvjestaja postaviti kod:
Me.recordsource=Forms![ImeformeZapretragu].RecordSource Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|