Selben Filter auf mehrere Unterformulare anwenden

[jannik1112]

Hallo,

Ich habe in meiner Access-DB einige verschiedene Tabellen, welche alle über eine ID in Verbindung stehen.
Nun will ich ein Formular, welches aus mehreren Unterformularen zu jeder der einzelnen Tabellen besteht.
Im Hauptformular steht ein Textfeld mit Filter, wenn ich dort eine der ID's eingebe hätte ich gerne, dass alle Unterformulare sich dementsprechend anpassen und die zugehörigen Werte zu dieser ID anzeigen.

Hier stehe ich nun allerdings etwas auf dem Schlauch, für zwei der Unterformulare funktioniert mein VBA-Code, für die Weiteren jedoch nicht.

Code (vb) [Auswählen] Erweitern

[size=8pt]Private Sub cmdSuche_Click()

     Dim strFilter As String
     If Len(Me!txtSuche) > 0 Then
         strFilter = "[Project No#] LIKE '" _
             & Me!txtSuche & "'"
         Me![Profitability].Form.Filter = strFilter
         Me![Profitability].Form.FilterOn = True
         Me![Projektformular].Form.Filter = strFilter
         Me![Projektformular].Form.FilterOn = True
         Me![AssetStrategy].Form.Filter = strFilter
         Me![AssetStrategy].Form.FilterOn = True
         Me![IndustryFocus].Form.Filter = strFilter
         Me![IndustryFocus].Form.FilterOn = True
       
 
     Else
         Me![Profitability].Form.Filter = ""
         Me![Projektformular].Form.Filter = ""
         Me![AssetStrategy].Form.Filter = ""
         Me![IndustryFocus].Form.Filter = ""

     End If
End Sub[/size]


Viele Grüße
Jannik

[MzKlMu]

Hallo,
wenn Du das Hafo und die Ufos über die ID's verknüpfst, brauchst es keinen Code und keinen Filter. Dann geht das alles automatisch.

[jannik1112]

Wo lassen sich diese verknüpfen?
Aktuell sind lediglich die dazugehörigen Tabellen verknüpft.

Schonmal vielen Dank!

[jannik1112]

Ok Problem gelöst!

Hatte die Formulare einfach schon erstellt bevor ich die Verknüpfung in den Tabellen hergestellt hatte.
Formulare nochmals neu erstellen hat das Problem gelöst

[MzKlMu]

Hallo,
Die Formulare muss man doch nicht neu erstellen. Das lässt sich in den Dateneigenschaften   verknüpfen von/nach nachträglich einstellen.