Question : Subform de filtrage de combobox multiple dans la vue de fiche technique

J'avais lutté avec celui-ci pour quelques jours où now.

I ont une forme principale avec un point d'émission d'un tbl contenant le numéro de compte d'information de compte…, nom de directeur, etc.  Sur cette forme j'ai un subform dans la vue de fiche technique, qui montre tous les capitaux assignés au compte.  Il y aura par la suite de 200 environ enregistre dans le tbl de capitaux, et j'ai voulu avoir l'information rapidement classable par l'intermédiaire des comboboxes sur la forme principale au-dessus des champs respectifs de subforms.  Je montre seulement quatre champs que je voudrais filtrer près sur cette forme principale.  Ils sont (Asset_Type, réseau, pièce et Primary_User). le but du

The ici est d'avoir sur la charge principale de forme que tous les disques ont montrée dans le subform.  Quand un des comboboxes est mis à jour, je voudrais qu'il filtre les disques dans le subform pour assortir.  J'ai des issues obtenir juste que pour travailler en ce moment. le

To ajouter à la complexité, je voudrais que les comboboxes restants ajoutent les filtres continus car ils sont updated.

Example : Quand l'utilisateur met à jour le cmbType = ordinateur portable, seulement des ordinateurs portables seraient montrés, alors si le cmbPrimary_User est mise à jour à la daine de John, je voudrais voir seulement les ordinateurs portables qui appartiennent à la daine de John et ainsi on.

I avaient recherché dessus ici quelques jours et divers différents exemples de essai de codage.  Je ne suis pas très versé avec des cordes de SQL, et n'ai pas travaillé avec l'accès pendant quelques années maintenant.  Mon VBA est rugueux au mieux et je sais que l'EE est le meilleur endroit à tourner pour le bon conseil plein et le

If témoin code.

Thanks à l'avance. que vous voudriez voir que ce que je m'ai jusqu'ici serais davantage qu'heureux d'envoyer info.
class= de

Réponse : Subform de filtrage de combobox multiple dans la vue de fiche technique

La manière la plus simple que je sais est d'établir une fonction qui peut construire votre corde de filtre, et puis appelle cette fonction lorsqu'un de vos critères de commandes de recherche est mis à jour. Par exemple :

Fonction BuildSearch ()

Faible sFilter comme corde

Si "" de Nz (Me.cboDeviceType, "" <> ) alors
  sFilter = « DeviceType= » et Me.cboDeviceType
Finir si

Si "" de Nz (Me.cboUserName, "" <> ) alors
  Si Len (sFilter) > 0 puis sFilter = sFilter et « ET »
  sFilter = sFilter et « UserName='" et Me.cboUserName et « ' »
Finir si

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

Fonction de fin

Appeler maintenant juste cette fonction de vos commandes :

Substrater le cboDeviceType_AfterUpdate ()
  BuildSearch
Sous-marin d'extrémité

Quelques bouts :

Les cordes de filtre ne sont rien SQL plus que valide OÙ des clauses sans mot « OÙ », ainsi vous devez suivre les mêmes règles :

Joindre les valeurs des textes dans des citations simples ou doubles : le « UserName='" et le Me.cboUserName et « ' » est entouré par des apostrophes

Joindre les valeurs de date dans les hachures : « DateLoaned=# » et Me.txDateLoaned et « # »

S'assurer que vous vous référez correctement à votre commande de Subform. Ceci est la COMMANDE sur votre forme principale qui accueille la forme que vous employez comme subform. Elle des mai ou mai ne pas être appelé les mêmes que la forme que vous employez comme subform (c.-à-d. le « objet de source »), fassiez attention ainsi en se rapportant à cette commande.