🚀 go-pugleaf

W dniu 2016-08-30 o 09:50, PB pisze:
> Cześć,
> W jaki sposób przekazać do kwerendy parametr, aby kwerenda pokazała
> wszystkie wartości.
> Szczegóły:
> Na frm mam pole kombi w którym znajdują się wartości "Otwarte",
> "Zamkniete", "Wszystkie".
>
> Mam funkcję FStatus,  która pobiera mi odpowiednie statusu z formularza.
> W kwerendzie w polu kryterium wywołuję funkcję FStatus, która zwraca mi
> odpowiedni status zlecenia. W tabeli mam statusy Otwarte i Zamkniete.
> Jak przekazać parametr, który pozwoli wyświetlić zarówno otwarte jak i
> zamknięte zlecenia ?

Spróbuj użyć w kwerendzie operatora LIKE:

Like (FStatus())

A funkcja FStatus dla parametru WSZYSTKIE niech zwraca "*"

Coś w tym rodzaju:

Public Function FStatus() As String
Dim sStatus As String

   sStatus = Nz(Forms("frmStatus").cboWybierzStatus)

   If StrComp(sStatus, "Wszystkie", vbTextCompare) = 0 Then
     FStatus = "*"
   Else
     FStatus = sStatus
   End If

End Function


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