Office: (Office 2016) NACH Filter im Formular Min-Wert mit VBA

Hallo Zusammen,

ich habe ein Formular basierend auf Tabelle
im Formular möchte ich mit VBA den Prozentwert einer Spalte angeben.
hierzu benötige ich den Min-Wert dieser Spalte
soweit bin ich
Code:

das klappt.

Aber hier bleibe ich stecken und benötige Eure geschätzte Hilfe:
Ich möchte nun den Min-Wert NACH dem Filtern .
d.h. ich filtere in einem beliebigen Feld ( Stadt= Hamburg) oder Datum (= 11) im Monat November
also ein x-beliebiges Kriterium, mit formularfilter in einem beliebigen Feld

mit:
Code:

dieser Filter zieht jedoch ALLE Werte aus der Tabelle Orders
ich möchte jedoch nur die angezeigten Werte des gefilterten Formulars

wie kann ich also den MIN Wert ermitteln
aus dem aktuellen gefilterten Formular


vielen Dank für Eure Hilfe

:)

 

Du müsstest die aktuelle Formularfilterung zusätzlich in das Kriterium für das DMin übernehmen. Bei dem Formularfilter, den Dir Access anbietet, dürfte das aber schwerfallen.
Ein eigenerzeugter Filter (dazu gibt es unzählige Beispiele) wäre dagegen übersichtlich handhabbar.

 

Hallo ebs17,

vielen Dank für Deine Antwort.
Das ist das Problem.
ein definierter Filter wollte ich eben nicht,
und damit scheint es dann auch nicht zu gehen,.

schade *depressed

 

Hallo Accessstarter,

verwendest du wirklich einen echten Formularfilter? Da das eher selten genutzt wird, denke ich, du filterst über die Filter-Eigenschaft im Formular. Diese kannst du mit etwas Stringverarbeitung relativ einfach an dein normales Kriterium dranhängen.

Gruß Ulrich

 

Hallo Knobbi,

ich gehe in ein Feld, (Datumsfeld, Textfeld)
dort markiere ich einen Teil des Inhalts
zb: burg
dann gehe ich in Auswahl und klicke enthält "burg"
damit kriege ich alle Städte mit burg (Hamburg; Homburg, Obenburg etc,,)

ich weiss, das ist nicht das Optimale, aber es ist Praktisch*rolleyes.gif*

 

Hallo Accessstarter,

das ist kein echter FormularFilter. Diese Art von Filterung kannst du über die Formular.Filter Eigenschaft auslesen. Laß die dazu im ApplyFilter Event mit Debug.Print Me.Filter im Direktfenster ausgeben. Dann kannst du die aktuellen Filtereinstellungen verfolgen.

Diese müßtest du dann für dein Vorhaben auswerten und verarbeiten.

Gruß Ulrich

 

Hallo knobbi38,

super, der Tip hat geholfen..*top

habe es jetzt so gemacht:
Code:

das klappt prima, auch wenn ich immer weiter filtere...
(Hinweis: als Domäne funkioniert nur eine Abfrage, keine Tabelle...)

aber leider brauche ich ein zweites Kriterium und dann klappt es nicht mehr:
Code:

alleine klappt es
Code:

aber nicht mit Beiden.... *entsetzt

 

Code:

 

Hallo acccessstarter,

die SQL-Syntax für einen Where Bedingung, und die gilt auch für einen Filter, sollte schon eingehalten werden.

Am besten du setzt die Where-Bedingung zunächst in einem String zusammen und verwendest diesen bei der DMIN() Funktion. Das bietet den Vorteil, daß du dir den vorher zur Kontrolle im Direktfenster ausgeben lassen kannst.

Zum Zweiten würde ich die Ermittelung aus der ApplyFilter-Funktion herausnehmen - da gehört sie nun wirklich nicht hin. So eine Zuweisung gehört in das Form_Current-Event.
Setzte in ApplyFilter ein Flag, damit merkst du dir die Änderung des Filters und im anschließend aufgerufenen Form_Current Event wird dieses Flag abgefragt, die Zuweisung mit DMIN() durchgeführt und das Flag wieder zurückgesetzt. Somit stimmt dein Kontrollfluß wieder.

Gruß Ulrich

 

\@CatboyJones

vielen Dank, das funktioniert
(ich werde es wohl niemals mit den ganzen "Gänsefüßchen" kapieren *weinen

@knobbi38

auch Dir vielen Dank, auch wenn ich es nicht ganz kapiert habe,
aber ich habe jetzt das ganze aufgeteilt und damit funkioniert es.*rolleyes.gif*