🚀 go-pugleaf

> W jaki sposób przekazać do kwerendy parametr, aby kwerenda pokazała 
> wszystkie wartości.
Nie stosować w poleceniu SQL "WHERE"  np:

if me.textbox = "Wszystkie" then
   DoCmd.RunSQL "SELECT Tabela1.ID, Tabela1.Status" & _
 FROM Tabela1"
else
   DoCmd.RunSQL "SELECT Tabela1.ID, Tabela1.Status FROM Tabela1
WHERE (((Tabela1.Status)="Otwarte"));





> 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 ?
> 
> Paweł

Pytanie dotyczyło troszkę innej kwestii.

Z poziomu kwerendy wywołuję funkcję FStatus :
https://drive.google.com/open?id=0B1l_gwfSkz2zYmpyV2l2Nm13UEU

Jak przekazać do kwerendy parametr, który spowoduje pokazanie wszystkich 
wartości.

Próbowałem przekazać "Is not null" i niestety nie działa. Jak wpiszę 
bezpośrednio do kwerendy wówczas jest ok.

Jakiś pomysł ?

Paweł

W dniu 2016-08-30 o 13:39, LeszekN pisze:
>> W jaki sposób przekazać do kwerendy parametr, aby kwerenda pokazała
>> wszystkie wartości.
> Nie stosować w poleceniu SQL "WHERE"  np:
>
> if me.textbox = "Wszystkie" then
>     DoCmd.RunSQL "SELECT Tabela1.ID, Tabela1.Status" & _
>   FROM Tabela1"
> else
>     DoCmd.RunSQL "SELECT Tabela1.ID, Tabela1.Status FROM Tabela1
> WHERE (((Tabela1.Status)="Otwarte"));
>
>
>
>
>
>> 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 ?
>>
>> Paweł
>

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

W dniu wtorek, 30 sierpnia 2016 09:50:46 UTC+2 użytkownik PB napisał:
> 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 ?
> 
> Paweł

Jeżeli są tylko 3 wartości statusu to można   kryterium
iif(fststus()="wszystkie";"otwarte";fstatus()) or iif(fststus()="wszystkie";"zamkniete";fstatus()) 

Jeśli jest więcej statusów do w kwerendie dodaktowa kolumna
iif(fststus()="wszystkie";true;fstatus()=[ststus]) i filtr na true

Super, o to chodziło.

Dziękuję.


W dniu 2016-08-31 o 11:26, Zbigniew Bratko pisze:
>
> 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