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.
[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
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.
Wo lassen sich diese verknüpfen?
Aktuell sind lediglich die dazugehörigen Tabellen verknüpft.
Schonmal vielen Dank!
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
Hallo,
Die Formulare muss man doch nicht neu erstellen. Das lässt sich in den Dateneigenschaften verknüpfen von/nach nachträglich einstellen.