Pytanie : Wieloskładnikowy combobox subform w datasheet widok

I mocować się z ten jeden dla jeden dzień now.

I mieć magistrala forma z dane źródło tbl konto info… numer konta, kierownik imię, Etc. Na ten forma I mieć subform w datasheet widok, che wystawiać widok the wartość wyznaczać the konto.  Tam  ostatecznie być 200 lub więc rejestr w the wartość tbl, i I chcieć the informacja szybko szybko przez comboboxes na the magistrala forma nad the subforms poszczególny pole.  I tylko wystawiać cztery pole który I polubić obok na ten magistrala forma.  Być (Asset_Type, Sieć, Pokój i Primary_User).

The cel tutaj być na magistrala forma ładunek wszystkie rejestr wystawiać w the subform.  Gdy jeden the comboboxes aktualizować, I polubić ono the rejestr w the subform.  I mieć zagadnienie właśnie dostawać przy ten point.

To dodawać the złożoność, I polubić the pozostały comboboxes filtr gdy być updated.

Example: Gdy użytkownik aktualizować cmbType = Laptop, tylko laptop wystawiać, then jeżeli cmbPrimary_User być aktualizacja Przeciętny Obywatel, I polubić tylko the laptop który należeć Przeciętny Obywatel i więc on.

I być gmeranie dalej tutaj dla tutaj dzień i próbować różnorodny różny cyfrowanie przykład.  I być prawdziwy versed z SQL sznurek, i biedak pracować z dostęp dla pracować rok teraz.  Mój VBA być szorstki najlepiej i I znać że EE być the najlepszy miejsce na dobre stały rada i próbka code.

Thanks w advance.

If ty polubić lubić I mieć do tej pory I być bardziej szczęśliwy podporowy info.

Odpowiedź : Wieloskładnikowy combobox subform w datasheet widok

The prosty sposób I znać być Funkcja który móc twój Filtrowy sznurek, i wtedy wezwanie który funkcjonować kiedykolwiek jeden twój rewizja kryterium kontrola aktualizować. Na przykład:

Funkcja BuildSearch ()

Ciemnawy sFilter Sznurek

Jeżeli Nz (Me.cboDeviceType, "") <> "" Wtedy
  sFilter = "DeviceType=" & Me.cboDeviceType
Kończyć Jeżeli

Jeżeli Nz (Me.cboUserName, "") <> "" Wtedy
  Jeżeli Len (sFilter) > (0) Wtedy sFilter = sFilter & "I"
  sFilter = sFilter & "UserName='" & Me.cboUserName & "'"
Kończyć Jeżeli

Me.YourSubformControl.Form.filter = sFilter
Me.YourSubformControl.Form.FilterOn = Prawdziwy

Końcówka Funkcja

Teraz właśnie dzwonić ten funkcja od twój kontrola:

Okręt podwodny cboDeviceType_AfterUpdate ()
  BuildSearch
Końcówka Okręt podwodny

Porada porada:

Filtrowy sznurek być reguła bardziej niż ważny SQL DOKĄD klauzula bez the słowo "DOKĄD", więc ty musieć the ten sam reguła:

Ogradzać tekst wartość w pojedynczy lub dwoisty wycena: "UserName='" & Me.cboUserName & "'" otaczać pojedynczy wycena

Ogradzać Daktylowy wartość w Hashmarks: "DateLoaned=#" & Me.txDateLoaned & "#"

Upewniać się że ty stosownie odnosić sie twój Subform Kontrola. Używać być the KONTROLA na twój główny forma który gościć the forma ty używać jako subform. Ono móc lub móc wymieniać the kontrola który the forma ty używać jako subform (i.e the "Źródło Przedmiot"), w ten sposób być ostrożny gdy nawiązywać do ten kontrola.