[VBA Access] - filtrowanie po wielu warunkach/ kombinacja filtrów

Witam.
Mam następujący problem.
Wszystko dzieje się w formularzu ciągłym.
Mam listę ludzi. Każdy z nich ma po 6 komórek (pola tekstowe) o nazwie COM1,COM2,COM3... itd.
Patrząc ogólnie jako na formularz ciągły wygląda jak by to były kolumny.
Mam także warunki nałożone że niektóre osoby są zaznaczone na zielono.

Mam kod w VBA który wyszukuje po tych komórkach nadane przez nas literkę (każdy z ludzi w polach COM ma jakąś literkę)
Zdaża się że człowiek1 ma w COM1 literę "K" a człowiek2 w COM2 literę "K" i w "COM1" literę "C"
Mam też kod który wyszukuje osoby które są zaznaczone na zielono.


Tu ten kod


Ten kod zadowala mnie tylko z tego punktu widzenia że szuka po wielu komórkach COM nadanej przez zemnie literki. Jednak jak chcę połączyć filtrowanie po COM (po nadanej przezemnie literki) + filtrowanie osób zielonych to filtrowanie po zielonych osobach już nie działa.

Natomiast jeśli zamnienię ten kawałek


na to



to filtrowanie z po zielonych osobach już działa.
Ale to rozwiąznie nie podoba mi się ponieważ wyszukuje mi literkę np "K" tylko po komórce COM1 chociaż są osoby które literkę "K" ma w COM2


Czego potrzebuję?
Chcę osoby które mają w swojej komórce COM (obojętnie w której COM czy 1 czy 2 czy 3 czy....) wyszukiwaną literkę np "K" plus są zielone.

Sądzę że wystarczy gdzieś dodać prostą logiczną kombinację żeby to zadziałało. Próbowałem kombinować z zmianą or na AND albo xor.

Był bym bardzo wdzięczny za każdą pomoc.

Dodać nawiasy - na początku i przed 'AND'
strwhere = strwhere & "(([COM1] .....
.......
......."([COM6] = """ & Me.FiltrCom & """) )AND "

Niestety nie.


Błąd

Run-time error '3075':
Brak),] lub innego elementu w wyrażeniu kwerendy '(([COM1] = "B") or ([COM2] = "B") or [COM3] = "B") or ([COM4] = "B") or([COM5] = "B") or ([COM6] = "B")'.


taki błąd wyskoczył

PS
to "B" to jest literka której szukałem

Napisał
(([COM1] = "B") or ([COM2] = "B") or [COM3] = "B") or ([COM4] = "B") or([COM5] = "B") or ([COM6] = "B"))
post #2

Przepraszam ale nie za bardzo zrozumiałem
mam zamiast





wpisać


?

to B wybieram z listy a nie wpisuje manualnie do makro. Więc to przeczy trochę mojej koncepji.

w poscie #2 zmniejszono

Galante!
Działa jak szalony.