Pozivanje reporta

[ zagorecForEver @ 19.01.2009. 12:22 ] @

pozdrav guruima accessa...

Molba: kako na formi definirati "record source" reporta koji bi se pozvao? Ili se mogu definirati samo "filteri"?

Želim postaviti veći broj opcija za pregled istog reporta (npr. mogućnost da se odabere sort po abc, po datumu, po ptt) odnosno da se postave i različiti filteri.... Na formi imam više group polja i na kraju bi case strukturom definirao "record source"

evo dijela:

Dim stDocName As String
Dim QS1, QS2, QS3 As String

QS1 = "SELECT zahtjev.JMBGPodnositelja, zahtjev.JMBGRoditelja2, zahtjev.JMBGDjeteta, zahtjev.sifSlucaja, zahtjev.datZahtjeva, zahtjev.DatLP, zahtjev.datNIM, zahtjev.datRJ, zahtjev.datZA, zahtjev.datRJ2, zahtjev.datPRA, zahtjev.Klasa, zahtjev.sifPrava, osoba.Prezime_ime "

QS2 = "FROM zahtjev INNER JOIN osoba ON zahtjev.JMBGPodnositelja = osoba.JMBG "

Select Case tipPregleda.Value

Case 1 ' Pregled 1

Select Case tipSorta.Value
Case 1 ' po ABC podnositelja zahtjeva
QS3 = "ORDER BY osoba.Prezime_ime;"
Case 2 ' po datumu
QS3 = "ORDER BY zahtjev.datZahtjeva;"

End Select

Case 2 ' Pregled po datumu
xxxxxxxx
xxxxxxxx itd...

End Select

na kraju se slažu svi "uvjeti" pa se treba pozvati report u kojem bi "record source" trebalo biti = QS1 & QS2 & QS3

stDocName = "Pregled"
DoCmd.OpenReport stDocName, acPreview ?!?!?!??!

[ Trtko @ 19.01.2009. 13:47 ] @

Jednostavno , a da si nemoraš puno mjenjati

1. U modulu postaviš neku varijablu public npr
Public sqlupit as String

2. U reportu koju ti več ispisuje izvještaje samo
dodaš na open

Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = sqlupit
End Sub

3. i još si tu u kodu dodaš

sqlupit = QS1 & QS2 & QS3

stDocName = "Pregled"
DoCmd.OpenReport stDocName, acPreview

I to ti je to

Pozdrav