Evo jedan update:
Code:
Option Compare Database
Option Explicit
Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click
Dim strWhere As String
Dim strWhere2 As String
Dim ctl As Control
Dim varItem As Variant
'make sure a selection has been made
If Me.lstEmployees.ItemsSelected.Count = 0 Then
DoCmd.OpenReport "rptProba", acPreview
Exit Sub
End If
If Me.LstOrg.ItemsSelected.Count = 0 Then
DoCmd.OpenReport "rptProba", acPreview
Exit Sub
End If
'add selected values to string
Set ctl = Me.lstEmployees
For Each varItem In ctl.ItemsSelected
strWhere = strWhere & ctl.ItemData(varItem) & ","
Next varItem
Set ctl = Me.LstOrg
For Each varItem In ctl.ItemsSelected
strWhere2 = strWhere2 & ctl.ItemData(varItem) & ","
Next varItem
'trim trailing comma
strWhere = Left(strWhere, Len(strWhere) - 1)
'open the report, restricted to the selected items
DoCmd.OpenReport "rptProba", acPreview, , "broj_konta IN(" & strWhere & ") AND id_organizacija IN(" & strWhere2 & ")"
Exit_cmdOpenReport_Click:
Exit Sub
Err_cmdOpenReport_Click:
MsgBox Err.Description
Resume Exit_cmdOpenReport_Click
Izvjestaj prolazi ukoliko su u obe liste zadane vrijednosti,query radi potpuno pravilno. Ukoliko jednu od listi ostavim praznu, otvorit ce cijeli izvjestaj, jer sam gore zadao docmd.openreport "rptProba". Htio bi zadati: ukoliko ne odabere sifru, zanemari sifre i otvori sve sifre za zadane organizacije, i ukoliko ne zada organizaciju, otvori zadane sifre u svim organizacijama.
Problem mi prave i ove radne organizacije koje konstatno traze enter parameter value pa u prozorcicu moram ponovo uneti id_organizacija koje sam selektovao u listboxu, ne razumijem zasto!?
Da li ima neki prijedlog? Hvala
Napredni upiti preko forme
