Filtern von Unterformularen (Tabellen)

07/05/2008 - 12:59 von Ahmed Martens | Report spam
Hallo NG,

ich habe da jetzt ein schwieriges Problem.

Gegeben ist folgendes:

1 Hauptformular
-> darin enthalten ein Unterformular

1. Schritt
Im Haupfformular wird in einer Listbox alle Tabellen der Datenbank
aufgelistet. Wàhlt man jetzt einen Wert aus, so wird diese Tabelle in
dem Unterformular angezeigt.

Code: Me.mySubform.SourceObject = "Tabelle." & Liste0.Value

Das funktioniert absolut einwandfrei.

2. Schritt
In einer weiteren Listbox werden jetzt alle Felder dieser Tabelle
eingetragen. Jetzt möchte ich nur noch ein Feld auswàhlen und in einer
nebenstehenden Textbox einen Filterwert eingeben, und dann soll per
VB(A) die Tabelle auf dieses Feld gefiltert werden.

Es soll also genau das gleiche geschehen, als wenn ich in der Tabelle
das Kontextmenü anzeigen lasse und Filtern wàhle.

Meine möglichen Ansàtze war z. B.

mySubform.SetFocus
DoCmd.ApplyFilter , "ID"

Abe das funktioniert einfach nicht.

Kann mir jemand vielleicht ein Tipp geben?

Gruß Ahmed
Antworten bitte nur in der Newsgroup.
 

Lesen sie die antworten

#1 André Minhorst
07/05/2008 - 13:04 | Warnen spam
Hallo Ahmed,

Ahmed Martens schrieb:
Gegeben ist folgendes:

1 Hauptformular
-> darin enthalten ein Unterformular

1. Schritt
Im Haupfformular wird in einer Listbox alle Tabellen der Datenbank
aufgelistet. Wàhlt man jetzt einen Wert aus, so wird diese Tabelle in
dem Unterformular angezeigt.

Code: Me.mySubform.SourceObject = "Tabelle." & Liste0.Value

Das funktioniert absolut einwandfrei.

2. Schritt
In einer weiteren Listbox werden jetzt alle Felder dieser Tabelle
eingetragen. Jetzt möchte ich nur noch ein Feld auswàhlen und in einer
nebenstehenden Textbox einen Filterwert eingeben, und dann soll per
VB(A) die Tabelle auf dieses Feld gefiltert werden.

Es soll also genau das gleiche geschehen, als wenn ich in der Tabelle
das Kontextmenü anzeigen lasse und Filtern wàhle.

Meine möglichen Ansàtze war z. B.

mySubform.SetFocus
DoCmd.ApplyFilter , "ID"

Abe das funktioniert einfach nicht.



warum nicht:

Hauptformular!Unterformular.Form.Filter = "..."
Hauptformular!Unterformular.Form.FilterOn = True

Ciao
André


http://www.access-entwicklerbuch.de
http://www.access-im-unternehmen.de

Ähnliche fragen