Vraag : Veelvoudige combobox die subform in informatiebladmening filtreren

Ik heb met dit geworsteld want een paar dagen now.

I een hoofdvorm met een gegevensbron van een tbl hebben die de rekeningsaantal van rekeningsinfo…, managernaam, enz. bevatten.  Op deze vorm heb ik een subform in informatiebladmening, die alle die activa toont aan de rekening worden toegewezen.  Er zal uiteindelijk 200 of zodat verslagen in de activa tbl zijn, en ik wilde de informatie snel hebben sorteerbaar via comboboxes over de belangrijkste vorm boven de subforms respectieve gebieden.  Ik toon slechts vier gebieden dievan ik aan filter langs op deze hoofdvorm zou houden.  Zij zijn (Asset_Type, Netwerk, Zaal en Primary_User). het doel

The is hier op hoofdvormlading alle die verslagen te hebben in subform worden getoond.  Wanneer één van comboboxes wordt bijgewerkt, zou ik het de verslagen in aan te passen subform willen filtreren.  Ik heb kwesties die enkel dat ertoe brengen om.

To op dit punt te werken toevoeg aan de ingewikkeldheid, zou ik het blijven comboboxes voortdurende filters willen toevoegen aangezien zij updated.

Example zijn: Wanneer de gebruiker cmbType = Laptop bijwerkt, slechts laptops worden getoond, dan als cmbPrimary_User de update aan Onbekende is, ik zou willen slechts laptops zien die tot Onbekende behoren en zodat on.

I hebben gezocht hier naar een paar dagen en geprobeerd diverse verschillende codagevoorbeelden.  Ik ben niet zeer berijmd met SQL koorden, en niet met toegang een paar jaar nu gewerkt.  Mijn VBA is in het gunstigste geval ruw en ik weet dat EE de beste plaats is voor goede stevige raad te draaien en de steekproef code.

Thanks.

If u vooraf zou willen zien wat ik tot dusver ik heb meer dan gelukkig zou zijn om het steunen info.
te verzenden

Antwoord : Veelvoudige combobox die subform in informatiebladmening filtreren

De eenvoudigste manier die ik is een Functie die kunnen uw koord van de Filter bouwen heb geweten, en toen vraag te bouwen die functioneren wanneer één van uw controles van onderzoekscriteria bijgewerkt=wordt=. Bijvoorbeeld:

Functie BuildSearch ()

Schemerige sFilter als Koord

Als Nz (Me.cboDeviceType, "") <> "" toen
  sFilter = „DeviceType=“ & Me.cboDeviceType
Eind als

Als Nz (Me.cboUserName, "") <> "" toen
  Als Len (sFilter) > 0 toen sFilter = sFilter & „EN“
  sFilter = sFilter & „UserName='" & Me.cboUserName & „'“
Eind als

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

De Functie van het eind

Roep nu enkel die functie van uw controles:

Sub cboDeviceType_AfterUpdate ()
  BuildSearch
Sub van het eind

Een paar uiteinden:

De koorden van de filter zijn niets meer dan geldige SQL WAAR clausules zonder het woord „WAAR“, zodat u de zelfde regels moet volgen:

Sluit tekstwaarden in enige of dubbele citaten in: „UserName='" & wordt Me.cboUserName & „'“ omringd door enige citaten

Sluit de waarden van de Datum in Hashmarks in: „DateLoaned=#“ & Me.txDateLoaned & „#“

Zorg ervoor dat u behoorlijk naar uw Controle Subform verwijst. Dit is de CONTROLE op uw hoofdvorm die de gastheren de vorm u als subform gebruiken. Het kan of kan niet het zelfde worden genoemd als de vorm u als subform (d.w.z. het „BronVoorwerp“) gebruikt, zo zorgvuldig ben wanneer het verwijzen naar die controle.