Office: (Office 2010) Mit Optionsgruppe Formular filtern

Hallo
eine mögliche Lösung für "[AÀÁÂÃÄ]"
Bei (Sonderfälle) A,C,O,U auch Verwante Zeichen
berücksichtigen

Code:

und die dazu passende Muster MDB (Access 2003) Hier:
https://dl.dropboxusercontent.com/u/46590638/adr.zip
Bitte nach dem runterladen zuerst Die Doc im Pfad Dokumentation Lesen !

 

Hallo,

mM ist ja das Filter mit Zeicheneingabe die wesentlich bessere Variante.
Da es auf einem Touchscreen praktiziert wird, könnte man sich ja mit einer virtuellen Tastatur behelfen.
Mögliche Lösung, habe ich in der BDB mit eingefügt sowie auch diese zwei 27 Umschalttasten-Filter.
Dabei kann man gut überprüfen, welche Nachteile es mit 65-90 auf sich hat.

So, und wenn mir kein gedanklicher Fehler unterlaufen ist, sollte alles soweit funktionieren*Smilie

Ich wünsche allseits ein schönes WE!

 

Hallo
denke in deiner musster mdb ein fehler gefunden zu haben *wink.gif*
was machst Du bei "U" und "V"
z.B.
Case 2
ZFilter = ZFilter & "'[UÙÚÛÜ]*'"
das sollt evtl. case 21
bei "V" 22 ?


und was ist den das ?
Case 12
ZFilter = ZFilter & "'L*"""
und das ausgerechnet beim L da ich doch immer zuerst den L Teste *boah

mit der eingeblendeten Tatstatur habe ich Probleme mit sonder Zeichen da ich eine CH (Schweizer) Deutsch -Tastatur habe
hast Du eine Deutsche DE Tastatur ?
oder was für eine Tastatur soll das Sein ?

auch ein schönes 23/5 --> WE *wink.gif*

 

Hallo,
vielen Dank Euch allen. Jetzt funktioniert es. Der Wert war gar nicht zugewiesen. *eek.gif*

Viele Grüße

extex

 

Hallo,

nun möchte ich die Optionsfelder ausblenden, die ein leeres Ergebnis ausgeben bzw. zu einer Fehlermeldung führen.
Also wenn es unter Label keinen Datensatz gibt, der bspweise mit M bzw. ASCII 77 beginnt soll die Schaltfläche für M hier [Option 157] ausgeblendet werden.

Könnt Ihr helfen?

Grüße

extex

 

hallo

ggf so (Luftcode)
Code:

 

Hallo @Ruedi,

danke für deinen Check, habe die Fehle schon korrigiert. Waren so Flüchtigkeitsfehler,
da ich diese Sub jetzt etwas schlanker erstellt habe. Passiert mir leider immer wieder,
dass ich erst nachher drauf komme... Fehler *frown.gif*
Das Testen liegt mir irgendwie nicht, keine Ahnung wieso.
Das mit der Tastatur, ich habe sie schon vor langer Zeit mal für jemanden erstellt, auch für einen Touchscreen.
Ist eine abgespeckte Version einer deutschen Tastatur, funkt aber ganz gut, denke ich.
Ist vermutlich für eine schweizer Tastatur auch umrüstbar, falls erforderlich.

hallo @extex, bei mir kommt keine Fehlermeldung wenn es einen Buchstaben in der Aufstellung nicht gibt?!
Es wird halt nichts angezeigt, aber das ist ja normal.
Eine neue Antwort bezüglich .Enabled = False (Luftcode) habe ich eben während dem Schreiben bekommen,
getestet und er funktioniert, kann ich gleich mal vorweg nehmen *Smilie !

PS: das mit dem Timer habe ich auch getestet, das wirkt sich nicht so gravierend aus, wie ich dachte.
Das mit dem DoCmd.Echo False/True bringt leider nichts in PupUp Formularen!
Habe ich irgendwann mal eingebaut, dadurch noch dabei.

 

Hallo,

@daolix - der "Luftcode" ist sogar besser als ich es haben wollte. Die Schaltflächen ohne Inhalt werden invertiert und lösen keinen Filter aus. Sieht optisch wesentlich besser aus, als wenn sie ausgeblendet wären. Danke.

@Alfred (kyron 9000) Die Tastaur mit dem Filter finde ich super, da habe ich noch eine ganz neue Idee für meine Datenbank. Ich kann die Formulare aufrufen, aber nicht bedienen. Dann kommt eine Fehlermeldung "Fehler beim kompilieren. Der Code in diesem Projekt muß für die Verwendung auf 64-Bit-Systemen aktualisiert werden. Überarbeiten Sie Declaire-Anweisungen und markieren Sie sie mit PtrSafe-Attribut."

Kann ich das irgendwie konvertieren?

Viele Grüße

extex

 

... das Problem habe ich nicht erhofft, aber im Hinterkopf vermutet, kA wieso.
Vielleicht habe ich es übersehen, dass du 64-Bit hast.

...da kann ich dir aber leider nicht weiterhelfen, ich habe nur 32-Bit.
Denke aber, dass dir jemand, der das richtige Format hat, auch weiterhelfen kann.
Gibt s mit Sicherheit eine Lösung dafür!
PS:
apropos... es dreht sich ja nur, um die Sache, das Formular "immer" in den Vordergrund zu bringen.
(Diese Option kannst auch weg lassen, wenn du dass Form "frmTastatur" so platzierst, dass es nicht im Weg ist!)
Ließ dich da mal ein... das wird kein großartiges Problem werden mit oder ohne!
Oder frag halt wieder *Smilie
PS2: man muss eben immer wissen, was ist gefordert, dann kann man natürlich gute Vorschläge unterbreiten.
PS3: denke mir schon, ich mache mir mehr Gedanke über deine DB als du *grins
Eine Variation wäre , dass Formular frmTastatur direkt in dein "Formular" mit einzuarbeiten!
Wenn der Platz dafür gegeben ist, was spricht dagegen?
Ja, eigenständig ist es natürlich schöner!

 

Hallo zusammen,

Du musst die API-Deklarationen anpassen.
Siehe: http://msdn.microsoft.com/de-de/libr...ice.14%29.aspx
Wenn du nicht alles lesen möchtest, ungefähr auf der Mitte der Seite ist ein Bsp.

 

Hallo,

die Optionsgruppe funktioniert super. Jetzt habe ich aber ein kleines Folgeproblem. Geöffnet ist ein Formular Menu als Pop up Vollbild. Dort wird dann das Formular Mieter per Button auf einer Teilfläche auch als Pop up geöffnet (mit der Optionsgruppe). Beim Öffnen wird geprüft, ob mehr als 10 Datensätze vorhanden sind.

Private Sub Form_Open(Cancel As Integer)
DoCmd.MoveSize 30470, 1920, 10870, 11030
If Me.RecordsetClone.RecordCount > 10 Then
DoCmd.OpenForm "Scrollen"
End If
End Sub

Wenn ja, geht ein kleines Hinweisfenter auf ... bitte Scrollen.

Nun das Problem. Seit ich die Optionsgruppe verwende, öffnet der Hinweis ..bitte scrollen... im Hintergrund, dh hinter dem Formular Menu. Klicke ich irgendwo in den Detailbereich des Formulars Mieter, kommt das Fenster mit dem Scrollhinweis in den Fordergrund. Es soll aber direkt beim Öffnen des Formulars Mieter mit angezeigt werden, wie vorher auch. Hat jemand eine Idee?

Wenn ch vor End Sub Forms("Scrollen").SetFocus setzte kommt die Fehlermeldung ...kann Formular 'Srollen' nicht finden.

Grüße

extex

 

Hallo
ich würde ein Feld definieren Für den Formular Name

Dim StrFomName as String
und am Anfang der Sub Füllen
StrFomName="Scrollen"
wobei bei mir der Formul-name immer einen Präfix haben z.B. FrmScrollen
dieses Feld kann dann immer verwendet werde

auch eine entsprechende Fehler Behandlung wäre nicht Falsch

Frage :
wie Sieht den Dein Befehl SetFocus genau aus ?

hast Du versucht den Focus auf ein Bestimmtes Feld im Formular zu setzen ?

 

Wo wenn ja?
Eine MsgBox?

 

Hallo,


@Ruedi:
das ist der SetFocus
Forms("Scrollen").SetFocus
Ich hab in dem Formular nur ein Bezeichnungsfeld3 und ein Bild0

@maxel:
Wenn mehr als 10 Datensätze vorhanden sind geht das Formular Scrollen als Pop up mit einem Hinweis auf. Nachdem ich die Optionsgruppe (siehe oben) eingefügt habe aber augenscheinlich im Hintergrund.

Interessant ist, wenn ich

If Me.RecordsetClone.RecordCount > 10 Then
DoCmd.OpenForm "Scrollen"
End If

in die Timerfunktion des Formlars einsetze mit einem Zeitintervall von 5 Sek. funktioniert alles wie es soll, auch ohne SetFocus. Nur benötige ich die Timerfunktion, um das Formular automatisch zu schließen und da gehört es ja auch nicht wirklich hin. Habe es nur mal ausprobiert.

Viele Grüße

extex

 

Hallo
hast Du in der OH (OnlineHilfe) nach gelesen
wie ein SetFocus geht ?

z.B.
objekt.SetFocus


und hast Du ach schon zu PoenForm in der OH gelesen ?
so was
DoCmd.OpenForm FormName , acNormal, WindowMode , VarWhere, VarOpenA
oder eben
DoCmd.OpenForm FormName:=VarForm, View:=acNormal, WindowMode:=acDialog, WhereCondition:=VarWhere, OpenArgs:=VarOpenA