Office: (Office 2010) Filter von Datenblattansicht validieren

Hallo zusammen.

Hatte vorhin diese Frage hier im Forum gestellt:

http://www.ms-office-forum.net/forum...d.php?t=342918

Ich dachte ich hätte die Lösung, jedoch finde ich nicht das richtige Event, um sie anzuwenden.

Hier nochmal die Kurzbeschreibung des Problems:

Ich habe ein MAIN. Darin sind zwei Ufos enthalten. Das untere Ufo ist eine Datenblattansicht, das nur einen Teil aller Tabellenfelder enthält. Markiere ich dort einen Datensatz, werden alle restlichen Informationen, in dem zweiten Ufo (Einzelnes Formular) darüber dargestellt. Klassische Verknüpfung zweier Ufos, gesteuert über eine PsoudoID.

Nun können die User jedes Feld der Datenblattansicht filtern. Wird nun jedoch ein Feld nach einem Wert gefiltert, der nicht existiert, enthält das Datenblatt keinen Datensatz. Somit kann keine ID an das obige Ufo übergeben werden und dieses wird im MAIN nicht mehr dargestellt.

Zwar lässt sich dies über das Klicken auf den Access-Button "Gefiltert" sofort wieder "korrigieren", ist aber natürlich unschön.

Ich möchte eine leere Datenblattansicht erst gar nicht zu lassen.

Hierzu habe ich bisher folgenden Code:

Code:

Leider habe ich bereits vergeblich nach einem geeigneten Event gesucht...

Wie kann ich das denn am elegantesten abfangen?

Vielen Dank.

Gruß
Komtur77

:)

 

Hast du es mal im Form_Current versucht?
maike

 

Hallo,

das Event ist schon richtig. Nur muss dann auch der Filter mittels
DoCmd.ApplyFilter gesetzt werden.
Daher die Frage WIE filterst du (ungebundene Textfelder im Main-Form,
eingebaute Funktionalität der rechten Maustaste ...)?

 

\@Maike
Ja. Form_Current habe ich versucht...

@Marsu
Wie gesagt ist ein Ufo eine Datenblattansicht. Jedes der Felder lässt sich filtern. Den Usern ist der Fehler durch Filtern über das Kontextmenü aufgefallen, d.h. mit Klicken auf den kleinen Pfeil bei der Spaltenüberschrift.

 

Ich halte eine Kombination und Zusammenführung von Menübefehlen, Kontextbefehlen und VBA für problematisch.

Wenn das Filtern über eine eigene Maßnahme (Filterfelder in Formular, PopUp-Formular, Filterklasse etc.) erfolgt, hat man auch ein klares Event, mit dem man Folgeaktionen auslösen kann.

Dafür, dass der User die gewünschten Filteraktionen über die programmierte Bedienoberfläche bekommt, ist der Entwickler zuständig.
Frage umgedreht: Warum müssen sich User über das Kontextmenü bedienen?

 

Mein Problem ist "lediglich", dass die Datenblattansicht durch das Filtern, keine Einträge haben kann, d.h. leer, ohne Datensätze sein kann. Mein Gedanke ist es, den Filter "vorzuprüfen", d.h. führt die Aktivierung des Filters zu keinem Ergebnis (kein Datensatz), soll sich eine MsgBox öffnen. Mit klicken auf "Ok" der MsgBox, wird der Filter deaktiviert und im Datenblatt befinde sich wieder alle Datensätze.

Ich brauche für das Datenblatt so zusagen, eine "Null-Treffer-Sperre...

 

So könnte es klappen:

Code:

Du musst aus dem Me.Filter eben den TabellenNamen entfernen damit der rs.Filter funktioniert.

Gruss
Jones

 

Hallo Jones,

ich verstehe deinen Gedanken und versuche die gerade umzusetzen, jedoch erhalte ich den Fehler '3061' --> "2 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben."

Sorry stehe gerade auf dem Schlauch.

 

Ist die Datenherkunft von deinem Datenblatt eine Parameterabfrage?
Welchen Code und welche Zeile darin bemängelt der Debugger?
maike

 

Hi Maike :-)

Vorweg sollte ich erwähnen, dass es sich dabei um eine Multiuser-Anwendung handelt. Frontend und SQL-Server-Backend.

Die Datenherkunft ist ein normaler Select auf eine angebundene SQL-View. Der Select beinhaltet nicht alle Columns der eigentlichen Tabelle.

Mein Code produziert keinen Fehler. Der Code von Jones meckert beim Replace.

Ich merke jetzt aber etwas:

Beim Jones-Code meldet sich der Debugger mit Fehler 3061. Klicke dann auf "Beenden", schließt sich ja das Debug-Fenster! Mein Datenblatt ist gefüllt. Es kommt ein Access-Fenster mit dem Hinweis "Geben Sie einen gültigen Wert ein." Klicke ich hier auf "OK". Komme ich zurück zum Fenster "Benutzerdefinierter Filter", wo ich nun einen anderen Suchparameter eingeben kann.

Das ist ungefähr die Lösung die ich mir vorstelle. Jedoch natürlich ohne das sich der Debugger vorher melden soll.

 

Ich hab' mal ein bisschen rumprobiert: Nimm die eckigen Klammern aus dem Replace raus, dann sollte es funktionieren.
maike

 

Habe ich jetzt mit dem folgenden Code versucht:

Code:

Der Debugger bringt immer noch den Fehler 3061 und markiert die Zeile unter dem Replace.

 

Du hast aber schon den richtigen Namen der Tabelle/des Views im Code?
maike

 

Code:

Ja. Habe anstelle des Tabellen-Names mal xxx reingeschrieben. Da kommt es zum selben Fehler...

 

Mir wurden ebenfalls die fehlenden Parameter angesagt, solange ich den Tabellennamen nicht korrekt hatte. Danach lief alles.
Was ergibt:
Code:

maike