izmenjeno 1 put, poslednji put Kolins Balaban 25.01.2011. u 08:40
Izmene poruke
- Kolins Balaban25.01.2011. u 08:40zapis iz teksta poruke
Pozdrav raja. Pravim jednu bazu, pa sam zapeo oko jedne, cini mi se sitnice :) imam na formi combo box, i koji je linkovan na tabelu u kojoj mi se nalaze sudije :) ispod sam ubacio i jedan dugmic. Kad kliknem na taj dugmic, hocu da mi izbaci predmete samo tog sudije, koji se nalaze u drugoj tabeli. Kreiranje query-a za svakog sudiju otpada, jer je previse posla :( kreirao sam report koji sam naslonio na tabelu u kojoj mi se nalaze predmeti, a onda sam uklonio Recordsource. pokusao sam ovako nesh, ali ne ide:
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:
a zatim sam na On Open reporta dodao ovaj kod:
Code:
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
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:
Code:
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
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:
Code:
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
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
Potpis
MyCoNfa:
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
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