🚀 go-pugleaf

W dniu 2016-04-23 o 16:30, leku pisze:
> Chcę przekazać listę kryteriów z tabeli pomocniczej
> do kwerendy w postaci
> In ("A1";"B1";"C1")
> lub
> "A1" Or "B1" Or "C1"
>
> W tabeli pomocniczej Kryteria mam pola
> Id_kryt - tekst
> rodz_kryt - tekst
>
> W polu rodz_kryt mam zestawy kryteriów
> np
> "A1";"B1";"C1"
> "D1";"F1"
> "T1";"R1";"P1"
>
> Próbowałem z polem kryt na formularzu Form_kryt do którego dane pobierałem
> skutecznie przez
> DLookUp("[rodz_kryt]";"Kryteria";"[id_kryt] = 'kryt1'")
>
> i następnie w kryterium odwoływałem się do pola formularza
> [Forms]![Form_kryt]![kryt] ale to nie działa :(
>
> Jak pobrać (połączyć) takie zestawy kryteriów do kwerendy ?

[...]

A może tak da radę, z kwerendą tymczasową i z poziomu formularza:

'____________________________
Private Sub btnFiltrowanie()
   Call Filtruj("kryt2")
End Sub


'_____________________________________________
Private Sub Filtruj(strId_kryt As String)
Dim qryTmp As DAO.QueryDef
Dim sWhere As String

   sWhere = Replace(DLookup("[rodz_kryt]", "Kryteria", _
            "[id_kryt] = '" & strId_kryt & "'"), ";", ",")

   'Usuń tymczasową kwerendę
   On Error Resume Next
     DoCmd.DeleteObject acQuery, "qTemp"
   If Err.Number <> 0 Then Err.Clear
   On Error GoTo 0

   Set qryTmp = CurrentDb.CreateQueryDef("qTemp", _
       "SELECT tblDane.* FROM tblDane WHERE MojePole IN (" & sWhere & ")")

   DoCmd.OpenQuery qryTmp.Name, acViewNormal

End Sub


-- 
Pozdrowienia
BraZby
www.faq.accdb.pl
www.accdb.pl