[ pmiroslav @ 07.02.2008. 08:31 ] @
U bazi koristim formu za pretraživanje i molim savjet kako printati rezultat pretrage.
[ 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