Frage : Mehrfaches combobox filternsubform in der Datenblattansicht

Ich habe mit diesem für einige Tage, die now.

I eine Hauptform mit einer Datenquelle eines tbl haben, das Kontoinfo-… Kontonummer enthält, Managernamen, etc. gewrungen.  Auf dieser Form habe ich ein subform in der Datenblattansicht, die alle Anlagegüter anzeigt, die dem Konto zugewiesen werden.  Es gibt schließlich 200 oder also notiert im Anlagegüter tbl, und ich wollte die Informationen haben schnell, die über comboboxes auf der Hauptform über den subforms jeweiligen Feldern sortierbar sind.  Ich zeige nur vier Felder an, die ich vorbei auf dieser Hauptform filtern möchte.  Sie sind (Asset_Type, Netz, Raum und Primary_User).

The Ziel hier ist, auf Hauptformlast zu haben, die alle Aufzeichnungen im subform anzeigten.  Wenn eins der comboboxes modernisiert ist, möchte ich, dass es die Aufzeichnungen im subform filtert, um zusammenzupassen.  Ich habe Ausgaben, gerade die zu erhalten, um an diesem point.

To zu arbeiten hinzufüge der Kompliziertheit, ich möchte, dass die restlichen comboboxes fortfahrende Filter addieren, da sie updated.

Example sind: Wenn Benutzer cmbType = Laptop aktualisiert, nur Laptope angezeigt würden, dann, wenn cmbPrimary_User Update zur John-Damhirschkuh ist, möchte ich nur die Laptope sehen, die John-Damhirschkuh gehören und also haben on.

I an hier nach einigen Tagen und versuchenden verschiedenen verschiedenen Kodierungbeispielen gesucht.  Ich bin nicht mit SQL-Schnüren sehr versiert und habe nicht mit Zugang für einige Jahre jetzt gearbeitet.  Mein VBA ist bestenfalls rau und ich weiß, dass EE der beste Platz ist, zum sich für guten festen Rat zu drehen und Beispielcode.

Thanks im Voraus.

If, das Sie sehen möchten, dass was ich bis jetzt mich würde sein mehr als habe, glücklich, stützeninfo.
zu senden

Antwort : Mehrfaches combobox filternsubform in der Datenblattansicht

Die einfachste Weise, die ich kenne, ist, eine Funktion aufzubauen, die Ihre Filterschnur errichten kann, und benennt dann diese Funktion, immer wenn eine Ihrer Suchkriteriumskontrollen modernisiert ist-. Z.B.:

Funktion BuildSearch ()

Schwaches sFilter als Schnur

Wenn Nz (Me.cboDeviceType, "") <> "" dann
  sFilter = „DeviceType=“ u. Me.cboDeviceType
Beenden wenn

Wenn Nz (Me.cboUserName, "") <> "" dann
  Wenn Len (sFilter) > 0 dann sFilter = sFilter u. „UND“
  sFilter = sFilter u. „UserName='" u. Me.cboUserName u. „'“
Beenden wenn

Me.YourSubformControl.Form.filter = sFilter
Me.YourSubformControl.Form.FilterOn = ausrichten en

Enden-Funktion

Diese Funktion von Ihren Kontrollen jetzt einfach benennen:

Sub cboDeviceType_AfterUpdate ()
  BuildSearch
Enden-Unterseeboot

Einige Spitzen:

Filterschnüre sind nichts mehr als gültiger SQL, WO Klauseln ohne das Wort „, WO“, also Sie den gleichen Richtlinien folgen müssen:

Textwerte in den einfachen oder doppelten Anführungsstrichen einschließen: „UserName='" u. Me.cboUserName u. „'“ umgeben durch einzelne Anführungsstriche

Datumwerte in den Ausrichtlinien einschließen: „DateLoaned=#“ u. Me.txDateLoaned u. „#“

Überprüfen, ob Sie richtig auf Ihre Subform Steuerung beziehen. Diese ist die STEUERUNG auf Ihrer Hauptform, die die Form bewirtet, die, Sie als subform benutzen. Sie Mai oder Mai, die selben nicht wie die Form genannt zu werden, die Sie als subform (d.h. der „Quellgegenstand“) benutzen, achtgeben so, wenn Sie auf diese Steuerung beziehen.