Napredni upiti preko forme

Napredni upiti preko forme 03.08.2013. u 10:58 · pre 161 mesec #1

Pozdrav,

imam tabelu ulaz sa kontima, radnim organizacijama, iznosima datumima i slicno.

Napravio sam query,formu i report i uspjesno povezao da pretrazuje iz comboboxova po kontu,radnim organizacijama i za odredjeni datum. Podesene su vrijednosti za null ukoliko je neko polje prazno da izvuce rpt bez njega.

Medjutim posto postoji vise konta i radnih organizacija, treba mi list ili checkbox da se moze odabrati vise od jedne vrijednosti?

Ima li neko prijedlog?Hvala

Re: Napredni upiti preko forme 03.08.2013. u 12:41 · pre 161 mesec #2

Okaci deo baze pa da probamo.

Potpis

Jednog dana...

Re: Napredni upiti preko forme 03.08.2013. u 13:25 · pre 161 mesec #3

Evo upload na sendspace dok ne skontam kako se ovde attacuje

Na ovom principu trenutno radim, code mi nije jaca strana a bez njega ne mogu to izvesti...

http://www.sendspace.com/file/fptuyw

Re: Napredni upiti preko forme 03.08.2013. u 14:00 · pre 161 mesec #4

FAQ; 22; Upload fajla uz poruku: Ako želite da uploadujete neki fajl uz vašu poruku, kliknite na link “Upload uz poruku” koji se nalazi ispod vaše već napisane poruke. U polje Izbor fajla upišite adresu do fajla koji se nalazi na vašem disku. Preporučljivo je da koristite “Izaberi” dugme sa kojim ćete sami moći da pronađete fajl.
Kada završite sa izborom fajla, pritisnite dugme “Upload” i fajl će biti uploadovan. Fajlove možete uploadovati najviše 24h od slanja poruke. Kada uploadujete fajl, svi će moći da ga downloaduju iz vaše poruke. Link će se pojaviti u dnu poruke.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Re: Napredni upiti preko forme 03.08.2013. u 20:49 · pre 161 mesec #5

Šta bi sa kačenjem primera?

Potpis

Jednog dana...

Re: Napredni upiti preko forme 04.08.2013. u 00:12 · pre 161 mesec #6

Evo u attachment sada

blagajna.mdb364k

Re: Napredni upiti preko forme 04.08.2013. u 16:05 · pre 161 mesec #7

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

Re: Napredni upiti preko forme 05.08.2013. u 12:43 · pre 161 mesec #8

Code:

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
    Set ctl = Me.lstOrganizacija
    For Each varItem In ctl.ItemsSelected
    strWhere2 = strWhere2 & ctl.ItemData(varItem) & ","
  Next varItem
  'trim trailing comma
  strWhere2 = Left(strWhere2, Len(strWhere2) - 1)
  'open the report, restricted to the selected items
   DoCmd.OpenReport "rptUlaz", acViewPreview, , "id_organizacija IN(" & strWhere2 & ")"

    Exit Sub
     End If


If Me.lstOrganizacija.ItemsSelected.Count = 0 Then
    Set ctl = Me.lstEmployees
    For Each varItem In ctl.ItemsSelected
    strWhere = strWhere & ctl.ItemData(varItem) & ","
  Next varItem
  'trim trailing comma
  strWhere = Left(strWhere, Len(strWhere) - 1)
  'open the report, restricted to the selected items
   DoCmd.OpenReport "rptUlaz", acViewPreview, , "broj_konta IN(" & strWhere & ")"

    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.lstOrganizacija
    For Each varItem In ctl.ItemsSelected
    strWhere2 = strWhere2 & ctl.ItemData(varItem) & ","
  Next varItem
  'trim trailing comma
  strWhere = Left(strWhere, Len(strWhere) - 1)
  strWhere2 = Left(strWhere2, Len(strWhere2) - 1)
  'open the report, restricted to the selected items
  DoCmd.OpenReport "rptUlaz", acViewPreview, , "broj_konta IN(" & strWhere & ") AND id_organizacija IN(" & strWhere2 & ")"
Exit_cmdOpenReport_Click:
  Exit Sub

Err_cmdOpenReport_Click:
  MsgBox Err.Description
  Resume Exit_cmdOpenReport_Click

End Sub

Sa ovim kodom query prolazi i sa null vrijednostima pojedinih listboxova.
Jedini problem koji jos uvijek imam je "enter parameter value" za id_organizacija koji nikako ne mogu da dokucim zasto se javlja?

Forum kao aplikacija na telefonu

Srodne teme