Office: (Office 2010) Mit Optionsgruppe Formular filtern

Hallo,

ich möchte ein Endlosformular per Optionsgruppe filtern. Und zwar nach dem ersten Buchstaben im Feld [Label]. Dazu habe ich 26 Umschaltfelder von A bis Z und mit den Werten 65-90 (=ASCII der entsprechenden Buchstaben) und dazu ein Feld Alle mit 91. belegt. Die Optionsgruppe hat den Namen Rahmen101. Nun möchte ich nach dem Feld [Label] filtern. Dazu habe ich einen Code im Netz gefunden, den ich entsprechend angepasst habe. Es funktioniert aber nicht, d.h. wenn ich einen Schalter betätigt wird nicht gefiltert. Der Code:

Private Sub Rahmen101_AfterUpdate()
Dim ctlFilterOption As Control
Set ctlFilterOption = Me.Rahmen101

Select Case ctlFilterOption

Case 65 To 90 ' Filter verwenden
Me.Filter = "[Label] Like '" & Chr(ctlFilterOption) & "*'"
Me.FilterOn = True

Case Else ' Filter aufheben
Me.FilterOn = False

End Select
End Sub

Könnt Ihr mir helfen.

Grüße

extex

:)

 

Code:

 

Hallo,
ändere mal wie folgt, Du hast zu viel Code.:
Code:

Warum nimmst Du dazu nicht einfach ein Feld in das Du den Buchstaben eintippst und damit filterst. Da sparst Du die Optionsgruppe mit den 26 Optionen.
Der Code sieht dann so aus:
Code:

 

Lass mal Krümel in der Tastatur sein, Klaus. Schon nützt ihm Dein Code nix.

 

dann muss er halt etwas fester drücken, oder sauber machen.

 

Hallo
nur eine Frage
weist Du eigentlich genau was du sich zum Zeitpunk in Deinem Code für einen wert in dem Feld Rahmen101 ist ?
mache einmal vor den If.... oder Select Case ......
ein Debug.Print Rahmen101 oder
Debug.Print me!Rahmen101

 

-----

 

Hallo,

ups, da bin ich aber mal überrascht. War nur kurz einkaufen und schon soviele Antworten. Beide Codes funktionieren leider nicht. Debug.print Rahmen101 habe ich vor dem Case 65 to 90 eingesetzt. Keine Änderung, ich vermute da sollte der Wert angezeigt werden. Ich drücke im Formular beispielsweise auf M, der Button blinkt kurz auf und es tut sich nichts, d.h. es sind noch alle Datensätze im Formular.

Das mit der Eingabe eines Buchstaben in ein Feld geht leider nicht, weil die Datenbank auf einem Touchscrenn bedient werden soll, ohne Tastaturhilfe.
Es läuft noch eine Timerfunktion, mit der alle 5 Sekunden ein Hinweis eingeblendet werden kann. Und das Formular läuft im Pop up. Kann es daran liegen.

Grüße

extex

 

Dann schreibe mal in die erste Zeile des Codes
Code:

Was ergibt die Meldung?

Oder folge dem Rat von Ruedi. Liest Du die Beiträge sorgfältig?

Und: Ja, kommentiere das Timer-Ereignis mal aus!

 

Hallo
Sorry ich habe was vergessen Zu sagen *frown.gif*
das resultat von Debuge Print sieht man im DirektFenster Direkt Fenster öffnen mit (Stgr+G / Ctrl+G)
feindes Du im Direkt Fenster !
Öffnen des Direktfenster im VBA-Editor mit (Stgr+G / Ctrl+G) oder über Ansicht / Direktfenster
Beim Aufruf einer Function mit:
?Functions-Name im bspl.
?Test erhält man sofort das resultat dieser
Function so auch z.B bei
?Date() gibt das Aktuele Datum

oder Lies in meiner DOC s. Fusszeile unten Rechts
ab Seite 178 -179
8.5 Fehler Suche

Hoffe das alles bringt Dich Weiter da der Inhalt des Feldes wichtig ist für die Fehler Suchen bei Deinem Problen
mein erster Beitrag war leider sehr unvollständig unkonzentriert geschrieben Sorry *hands

@maxel Danke für die Unterstützung *Smilie

 

Hallo Ruedi,

mit dem Verweis auf Debuge Print hattest Du doch schon einen entscheidenden Hinweis gegeben. Den kann der Threadstarter aufgreifen, wenn er denn will.

Die fast permanenten zusätzlichen Verweise auf Deine (unstrittig wertvolle) Doc sind möglicherweise für Hilfesuchende verwirrend, vor allem dann, wenn die Antworten im Forum an sich schon ausreichend hilfreich sind.

Sorry, Ruedi, das musste ich mal loswerden. *wink.gif*

 

Hallo @extex,

Ok, habe es falsch verstanden! wird aber kein gr. Problem werden..

 

Hallo Alfred,

das wäre aber hilfreich gewesen, denn Dein Beitrag ist kein Zugewinn. *wink.gif*

 

Hallo @maxel,

...darauf wäre ich jetzt nicht gekommen, interessante Weisheit *biggrin.gif*
Aber, ich hatte eine falsche Vermutung und werde natürlich *tongue.gif*
etwas Zeit dafür aufwenden müssen um mein "falsch-verstehen" zu egalisieren.
Siehe Zeit...!!!!, stehe nicht rund um die Uhr für das Forum zu Verfügung.
Das geht nicht so schnell, dürfte ich auch mal Überlegungen anstellen, danke.
Keine Angst, ich komme auf eine adäquate Lösung.

PS: denke, es haben sich in der Fragestellung schon mehrere Mitglieder geirrt, nicht nur ich.
Sage ich mal so in meiner Unvernunft *Smilie

 

...wenn man z.B. auch andere Zeichen/Buchstaben (wie z.B. [AÀÁÂÃÄ]) mit berücksichtigen möchte,
wird es mit einfachen Zahlen etwas schwierig werden, ein vernünftiges Ergebnis zu erlangen,
falls gewünscht könnte ich einen solchen Code einstellen.
War aber nicht gefragt und muss auch nicht sein *Smilie

Die Antwort Ruedi gegenüber finde ich einfach indiskutabel, aber mich geht's ja nichts an.
Ansonst, würde ich auch meinen, der angegebene Code ist ausreichend für die Erstellung des einfachen Filters.
Würde aber, nach dem Klicken des Optionsbuttons, diesen wieder verlassen mit
z.B. Me.Dummy.SetFocus, denn die 5 Sekunden Sekunden, für einen Timer in einem Formular,
finde ich schon etwas krass.

Ansonst wünsche eine gute Nachtruhe *wink.gif*