🚀 go-pugleaf

W dniu 2020-10-09 o 18:40, Zbigniew Bratko pisze:
> W dniu 2020-10-08 o 21:20, Stan pisze:
>> PodFormularz ciągły wyświetla wszystkie 20 rekordów z tabeli "Sort",
>> gdzie pole "SortID" ma kolejno wartość od 1 do 20.
>> Do tabeli "Sort" nie będą dopisywane kolejne rekordy.
>> W nagłówku tego podformularza mam pole "Płeć" które pobiera sobie
>> wartość z formularza głównego.
>>
>> Chciałbym użyć funkcji "IF" w taki sposób:
>> gdy w nagłówku Formularza pole "Płeć" ma wartość "M" - wyświetlane są
>> rekordy "SortID" = 1 do 18, (rekordy 19 i 20 nie są wyświetlane)
>> w przeciwnym razie wszystkie.
>
> [...]
>
> Ot tak na szybko, bo jestem w Bieszczadach :-)
>
> Private Sub btnShow_Click()
> 'subformSort to nazwa NADANA, widoczna w okienku "Arkusza właściwości"
> 'i nie ma nic wspólnego z nawą widoczną w oknie bazy danych
>
>   ' nie są rozróżniane małe i duże litery
>   If Me.txtPlec = "M" Then
>     Me.subformSort.Form.Filter = "SortID < 19"
>     Me.subformSort.Form.FilterOn = True
>   Else
>     Me.subformSort.Form.FilterOn = False
>   End If
>
> End Sub
>


Rzeczywiście było na szybko.

 >> W nagłówku tego podformularza mam pole "Płeć" które pobiera sobie
 >> wartość z formularza głównego.

Ja założyłem, że w nagłówku formularza głównego.

Teraz powinno być dobrze:

Private Sub btnShow_Click()
   If Me.txtPlec = "M" Then
     Me.Filter = "SortID < 19"
     Me.FilterOn = True
   Else
     Me.FilterOn = False
   End If
End Sub