🚀 go-pugleaf

Nie otwieram recordset
Moja funkcja wygląda tak:
-----------------------------------
Private Function FiltrGl()
On Error Resume Next
Dim wh, sql1, sql2, dd, aa, ss

wh = ""
If NZ(Me.IddZakDec, "") <> "" Then wh = wh & "(Dec.[ZakDec]=" & Me.IddZakDec & ") AND "
If NZ(Me.IddOdz, 0) <> 0 Then wh = wh & "(Dec.[IDOdz]=" & Me.IddOdz & ") AND "
If NZ(Me.IddWydziały, 0) <> 0 Then wh = wh & "(Dec.[IDWydziały]=" & Me.IddWydziały & ") AND "
If NZ(Me.IddPracownicy, 0) <> 0 Then wh = wh & "(Dec.[IDPracownicy]=" & Me.IddPracownicy & ") AND "
If NZ(Me.IddRozdzZaj, 0) <> 0 Then wh = wh & "(Dec.[IDRozdzZaj]=" & Me.IddRozdzZaj & ") AND "
If NZ(Me.IddLata, 0) <> 0 Then wh = wh & "(Dec.[IDLata]=" & Me.IddLata & ") AND "
If Not IsNull(Me.FFNrDec) Then wh = wh & "(NumWysz Like ""*" & Me.FFNrDec & "*"") AND "
 
    If NZ(Me.IddZakDec, "") <> "" Then wh = wh & "(Dec.[ZakDec]=" & Me.IddZakDec & ") AND "
    If Me.RodzTerm = 1 Then
        aa = Fdaty(Me.IddDataZak - 31)
        If Not IsNull(Me.IddDataZak) Then wh = wh & "(Dec.[DataZakDec]=" & aa & ") AND "
    End If
    If Me.RodzTerm = 2 Then
        aa = Fdaty(Me.IddDataZak)
        If Not IsNull(Me.IddDataZak) Then wh = wh & "(Dec.[DataZakDec]=" & aa & ") AND "
    End If
    If Me.RodzTerm = 3 Then
        dd = "[DataZakDec]"
        ss = WarunekZDatami("", Me.IddDataZak, dd)
        If ss <> "" Then wh = wh & "(" & ss & ") AND "
    End If
    
    If wh <> "" Then wh = "(" & Left$(wh, Len(wh) - 5) & ")"
    
    sql2 = "SELECT Dec.IDDec, Dec.NumDec, Dec.NumFak, Dec.NumWysz as Wyr1, Dec.IDLata, Dec.NrDec, Dec.NrPrzedlDec, NumDec AS InfoNrDec, RozdzZaj.NazRozdzZaj, KatRob.NazKatRob, Odz.NazOdz, Wydziały.SkrWydz, Pracownicy.[naz/imie], Dec.DataZakDec as InfoDataZak, Dec.ZakDec as ZakDec, Zob.NazZob, IIf([DataZakDec]<=Date() And [ZakDec]=No,""PRZEKROCZONY TERMIN DECYZJI!"") AS AlTermin, Dec.IDRozdzZaj, ZobWyk.NazwaZobWyk, Dec.ListaLokDec, Dec.IDRozdzZaj" ', Dec.ZakUpomDec, Dec.DZakUpomDec, Dec.ZakMonitDec, Dec.DZakMonitDec"
    sql2 = sql2 & " FROM (Zob INNER JOIN (Odz INNER JOIN (KatRob INNER JOIN ((([Dec] INNER JOIN Pracownicy ON Dec.IDPracownicy = Pracownicy.IDPracownicy) INNER JOIN Wydziały ON Dec.IDWydziały = Wydziały.IDWydziały) INNER JOIN RozdzZaj ON Dec.IDRozdzZaj = RozdzZaj.IDRozdzZaj) ON KatRob.IDKatRob = Dec.IDKatRob) ON Odz.IDOdz = Dec.IDOdz) ON Zob.IDZob = Dec.IDZob) INNER JOIN ZobWyk ON Dec.IDZobWyk = ZobWyk.IDZobWyk"
    sql2 = sql2 & IIf(wh <> "", " WHERE " & wh, "")
    sql2 = sql2 & " ORDER BY Dec.NrDec, Dec.NrPrzedlDec"


 
Me.WybIDDec = Null
Me.WybIDDec.RowSource = sql2
Me.DecTab_pdf.Form.RecordSource = sql2

End Function
-----------------------------------