Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pozivanje reporta

[es] :: Access :: Pozivanje reporta

[ Pregleda: 1519 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

zagorecForEver
Krapina

Član broj: 63062
Poruke: 54
89.249.101.*



Profil

icon Pozivanje reporta19.01.2009. u 12:22 - pre 162 meseci
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 ?!?!?!??!


ZagorecForEver
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.



+8 Profil

icon Re: Pozivanje reporta19.01.2009. u 13:47 - pre 162 meseci
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

 
Odgovor na temu

zagorecForEver
Krapina

Član broj: 63062
Poruke: 54
89.249.101.*



Profil

icon Re: Pozivanje reporta20.01.2009. u 07:46 - pre 162 meseci
etho.. rekoh.. guruima je to "very simple"...
Če je dosta - velim FALA ..

Zfe
ZagorecForEver
 
Odgovor na temu

[es] :: Access :: Pozivanje reporta

[ Pregleda: 1519 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.