Private Sub cmd_IzdajIzvjestaj_Click()
On Error GoTo Err_cmd_IzdajIzvjestaj_Click
Dim stDocName As String
stDocName = "rep_sudije"
Report_rep_Sudije.RecordSource = "SELECT tbl_GlavnaTabela.IDPredmeta, tbl_GlavnaTabela.Referat, tbl_GlavnaTabela.OznakaPrvostepenogPredmeta, tbl_GlavnaTabela.OznakaDrugostepenogPredmeta, tbl_GlavnaTabela.VrstaSpora, tbl_GlavnaTabela.Sudija, tbl_GlavnaTabela.VrstaPresude FROM tbl_GlavnaTabela WHERE tbl_GlavnaTabela.Sudija=Me.cbo_sudija"
DoCmd.OpenReport stDocName, acPreview
Exit_cmd_IzdajIzvjestaj_Click:
Exit Sub
Err_cmd_IzdajIzvjestaj_Click:
MsgBox Err.Description
Resume Exit_cmd_IzdajIzvjestaj_Click
End Sub
Combo box cbo_sudija i button cmd_IzdajIzvjestaj se nalaze na formi naravno. u combo boxu biram sudiju. ako moze pomoc oko ovoga, bio bih jako zahvalan :)
EDIT: evo uspio sam rijesiti problem:
na dugmicu sam izmjenio kod ovako:
Private Sub cmd_IzdajIzvjestaj_Click()
On Error GoTo Err_cmd_IzdajIzvjestaj_Click
Dim stDocName As String
stDocName = "rep_sudije"
DoCmd.OpenReport stDocName, acPreview
Exit_cmd_IzdajIzvjestaj_Click:
Exit Sub
Err_cmd_IzdajIzvjestaj_Click:
MsgBox Err.Description
Resume Exit_cmd_IzdajIzvjestaj_Click
End Sub
a zatim sam na On Open reporta dodao ovaj kod:
Private Sub Report_Open(Cancel As Integer)
Report_rep_Sudije.RecordSource = "SELECT tbl_GlavnaTabela.IDPredmeta, tbl_GlavnaTabela.Referat, tbl_GlavnaTabela.OznakaPrvostepenogPredmeta, tbl_GlavnaTabela.OznakaDrugostepenogPredmeta, tbl_GlavnaTabela.VrstaSpora, tbl_GlavnaTabela.Sudija, tbl_GlavnaTabela.VrstaPresude FROM tbl_GlavnaTabela WHERE tbl_GlavnaTabela.Sudija='" & Form_frm_Izvjestaji.cbo_sudija & "'"
End Sub
[Ovu poruku je menjao Kolins Balaban dana 25.01.2011. u 08:40 GMT+1]
CPU: AMD Phenom II X4 965 3,4GHz BOX
Maticna:Asus M4A89GTD PRO
RAM: Corsair 4x2GB 1600MHz, 9-9-9-24
Grafa: Diamond ATI 5870 1GB
HDD:3xWD 320GB AAKS, stripe raid
DVD/RW:LG,SATA
SilverStone SST-ST50F 500W
CoolerMaster CM690
LG 24" 2453TQ-PF
Tastatura A4Tech X7 G800
Stakor: A4Tech X7-755FS