Fokus auf Steuerelement

[C4RL0]

Hallo zusammen,

Ich habe im Hauptformular ein Registersteuerelement.
Im Form_Load Event des Hauptformulars setze ich den Fokus auf dieses Element:

Code [Auswählen] Erweitern

Me.rcaEinlesen.SetFocus

Die anschließende manuelle Abfrage

Code [Auswählen] Erweitern

Debug.Print Screen.ActiveControl.Name
bestätigt dieses auch. Ergebnis:

Code [Auswählen] Erweitern

rcaEinlesen

Allerdings reagriert das Steuerelement nicht auf das "KeyDown"-Element. Hierzu muss ich es explizit anklicken, so dass der gepunktete "Aktiv"-Rahmen (siehe oberes Bild) sichtbar ist.
Wie schaffe ich es, dass das Element direkt nach dem Start der Anwendung auf KeyDown reagiert?

[Anhang gelöscht durch Administrator]

[69bruno]

Ohne es getestet zu haben, würde ich einen Access-Key definieren und mit einer sendkey-Anweisung auf den Reiter wechseln........

SendKeys "%x", True

Wobei das "x" durch den gewählten Access-Key zu ersetzen wäre..........   

Ich habe grade kein entsprechendes Formular mit Registersteuerelement da.....versuch doch mal.

Gruß
69

[bahasu]

Hi,

Wenn Du im Register ein Unterformular-Steuerelement hast, probier mal, den Fokus auf dieses UFo zu setzen (so tun, als ob es kein Register gibt).

Harald

[C4RL0]

...Wenn Du im Register ein Unterformular-Steuerelement hast, probier mal, den Fokus auf dieses UFo zu setzen (so tun, als ob es kein Register gibt).lll

Hi,
es ist bewusst kein aktives Steuerelement vorhanden, nur ein inaktives in welchem eben diese "OnKey"-Tasteneingaben zu sehen sein sollen.

SendKeys "%x", True
Wobei das "x" durch den gewählten Access-Key zu ersetzen wäre..........   

2X SendKeys vbTab, True hat mir an der Stelle weitergeholfen, Danke!

[Beaker s.a.]

Hallo Carlo,
Sendkey ist aber buggy  , und ab spätestens A2010
(vielleicht schon ab A007) wird es gar nicht mehr unter-
stützt.
Bei mir reicht ein einfaches

Code [Auswählen] Erweitern

Me!RegisterControl = n
Wobei n der Seitenindex ist.
Andererseits

es ist bewusst kein aktives Steuerelement vorhanden,
nur ein inaktives in welchem eben diese "OnKey"-Tasteneingaben
zu sehen sein sollen.

Wo werden diese Tastatureingaben denn gemacht?
Wenn die von ausserhalb des Registers kommen,
kann das ja nicht den Focus haben.
gruss ekkehard

[C4RL0]

Hallo Carlo,
Sendkey ist aber buggy  , und ab spätestens A2010
(vielleicht schon ab A007) wird es gar nicht mehr unter-
stützt.
Bei mir reicht ein einfaches

Code [Auswählen] Erweitern

Me!RegisterControl = n
Wobei n der Seitenindex ist.
Andererseits

es ist bewusst kein aktives Steuerelement vorhanden,
nur ein inaktives in welchem eben diese "OnKey"-Tasteneingaben
zu sehen sein sollen.

Wo werden diese Tastatureingaben denn gemacht?
Wenn die von ausserhalb des Registers kommen,
kann das ja nicht den Focus haben.
gruss ekkehard

Hallo  Ekkehard,

Code [Auswählen] Erweitern

Me!RegisterControl = n
habe ich ausprobiert. Es bewirkt an der Stelle aber nichts, da das Registerelement ja sowieso schon den Fokus hat.
Die Tastatureingaben kommen von einem Barcodescanner, erscheinen in einer (inaktiven) Textbox, nachdem Sonderzeichen, etc. herausgefiltert wurden.

[DF6GL]

Hallo,

ich verstehe das Ganze auch nicht....   was heißt denn

"Die Tastatureingaben kommen von einem Barcodescanner, erscheinen in einer (inaktiven) Textbox, nachdem Sonderzeichen, etc. herausgefiltert wurden."

Normalerweise schreibt ein Barcode-Scanner die Zeichen in diejenige Textbox, die den Fokus hat. Deshalb sollte es reichen, diese Textbox auf "aktiv" und "nicht gesperrt" zu setzen und den Fokus auf dieses Textfeld zu legen:

Sub Form_Load()
Me!BarcodeTextfeld.Sefocus
End Sub


Wenn es eine Funktionalität (Prozedur) gibt, die den Barcodescanner "bedient", d. h. die Zeichen werden nicht gleich  in ein Textfeld geschrieben, sondern erst (irgendwie) bearbeitet, dann sollte diese Prozedur die (manipulierten) Zeichen in das Textfeld schreiben:


.
.
.
Me!Register1.Pages("Seitexy").Setfocus  'oder Me!Register1=n
Me!Textfeld1 = VariableInDerDieBarcodezeichenStehen
.
.
.

[C4RL0]

...Wenn es eine Funktionalität (Prozedur) gibt, die den Barcodescanner "bedient", d. h. die Zeichen werden nicht gleich  in ein Textfeld geschrieben, sondern erst (irgendwie) bearbeitet, dann sollte diese Prozedur die (manipulierten) Zeichen in das Textfeld schreiben:

Exakt, die Prozedur schreibt die Zeichen in das Textfeld. Das funktioniert auch alles wunderbar über das KeyDown-Event des Registerelements.
Dieses Event wird aber nur ausgelöst, wenn das gepunktete Rähmchen um den Tab oben erscheint, obwohl das Element bereits den Focus hat (wie oben beschrieben).

Verwendetes Event:
regEinAus_KeyDown

Tabs auf dem RegElement "regEinAus":
"rcaEinlesen"
"rcaAusgabe"

Wie gesagt, "Debug.Print Screen.ActiveControl.Name" sagt mir, dass rcaEinlesen den Focus hat. Das RegElement "regEinAus" selber besitzt die Methode "SetFocus" ja nicht.

Nur den Focus zu haben und den gepunkteten Rahmen zu aktivieren scheinen mir zwei verschiedene Dinge zu sein.
Ersteres reicht nicht aus um bei Tastendruck das KeyDown-Event auszulösen.

[DF6GL]

Hallo,

Du hängst Dich immer noch und wieder am Register auf.  Vergiss doch einfach das Register... und dieses KeyDown-Event ...



"die Prozedur schreibt die Zeichen in das Textfeld" 

WIE macht die das?  Poste mal den (gesamten damit zusammenhängenden) Code....

[C4RL0]

Hallo,

Du hängst Dich immer noch und wieder am Register auf.  Vergiss doch einfach das Register... und dieses KeyDown-Event .....

Ich habe ein Objekt Barcode, welches sukzessive mit Keys gefüllt wird.

Code [Auswählen] Erweitern

Private Sub regEinAus_KeyDown(KeyCode As Integer, Shift As Integer)
   If Me.regEinAus.Value = 0 Then
       Barcode.KeyCodeAdd KeyCode, Shift
   End If
End Sub

Das Objekt selber filtert Zeichen, tauscht andere aus, erkennt (auch nicht druckbare) Trennzeichen, trennt Blöcke, etc..., aber das nur nebenbei.

Sobald ein <ENTER> eingegeben wird, feuert das Objekt das Event Barcode_Ready.

In der Prozedur Barcode_Ready fülle ich die Datenbank damit, und zur Anzeige auch simpel die Textboxen mit

Code [Auswählen] Erweitern

Me.txtScanAuftragsnummer.Value = Barcode.Block(0)
Me.txtScanArtikel.Value = Barcode.Block(1)

Das alles funktioniert wie gesagt bestens, ich habe nur das (kleine) oben genannte Problem, und das nur nach Start der Anwendung.

[bahasu]

Hi,

neben den obigen "Unpäßlichkeiten" bei sendkeys kann auch vorkommen, dass die numlock-Einstellung verstellt wird.
Das zieht dann weiteren VBA-Code nach sich, um dann diese Macke zu vermeiden. Und damit sind dann weitere Fehler möglich.

Deshalb hatte ich das direkte focus-Setzen (ob UFO oder Steuerelement sei egal) vorgeschlagen.

Harald

[DF6GL]

Hallo,

mhmm, ich versteh das jetzt so:


Es gibt ein Eingabe-Textfeld "regEinAus", das bei jedem Tastendruck die Eingabezeichen an eine Barcode-Eigenschaft liefert.  Sobald Enter gedrückt wird, erfolgt eine  Zuweisung der manipulierten Zeichen an weitere Textfelder.



Nach dem  Laden des Formulares soll die Zeichen-Eingabe gleich im Feld "regEinAus" stattfinden können.


Sub Form_Load()
Me!regEinAus.Setfocus
End Sub


Wo ist da das Problem?

Wenn "regEinAus"  ein Register-Steuerelement sein sollte, dann wäre das eine falsche Verwendung für den Gebrauch zur Dateneigabe.... Platziere einfach in diesem Fall ein Textfeld auf der Registerseite und benutze dessen Key-xx-Ereignisse..

[C4RL0]

Hallo,

mhmm, ich versteh das jetzt so:


Es gibt ein Eingabe-Textfeld "regEinAus", das bei jedem Tastendruck die Eingabezeichen an eine Barcode-Eigenschaft liefert.  Sobald Enter gedrückt wird, erfolgt eine  Zuweisung der manipulierten Zeichen an weitere Textfelder.



Nach dem  Laden des Formulares soll die Zeichen-Eingabe gleich im Feld "regEinAus" stattfinden können.


Sub Form_Load()
Me!regEinAus.Setfocus
End Sub


Wo ist da das Problem?

Wenn "regEinAus"  ein Register-Steuerelement sein sollte, dann wäre das eine falsche Verwendung für den Gebrauch zur Dateneigabe.... Platziere einfach in diesem Fall ein Textfeld auf der Registerseite und benutze dessen Key-xx-Ereignisse..

"regEinAus"  ist ein Register-Steuerelement. Ich verwende das Event KeyDown dieses Register-Steuerelements um den Key an eine Klasse weiter zu leiten. Das Funktioniert ja auch tadellos.
Nur reicht ein "SetFocus" nicht aus, um "aktiv" zu sein und das KeyDown-event auf Tastendruck zu feuern.