Warum ist meine .setfocus ignoriert?

Ich habe ein Access-Formular mit einem Textfeld, das dazu bestimmt ist, zu ermöglichen, wiederholt Sie eine Zahl eingeben, drücken Sie enter, und lassen ein script Zeugs. Für die Geschwindigkeit, das Feld zu halten, sollten Sie den Fokus nach DoStuff() ist getan.

Aber während ich bin sicher, dass DoStuff() ausgeführt, der Fokus geht immer zum nächsten Feld in der tab-Reihenfolge. Es ist wie Me.MyFld.SetFocus ignoriert wird.

Wie behalte ich den Fokus auf diesem Gebiet nach DoStuff() gemacht wird?

Private Sub MyFld_KeyDown(KeyCode As Integer, Shift As Integer)  
     If KeyCode = vbKeyReturn Then  
         DoStuff  
         Me.MyFld.SetFocus  
     End If
End Sub
  • versuchen Sie, mehr geeignete Ereignis AfterUpdate der textbox
  • Haben Sie versucht, schrittweise mit dem debugger, um zu sehen, wenn nichts anderes ausgeführt wird, nach Ihrem SetFocus Methode?
  • wenn ich ein anderes Ereignis, wie weiß ich, ob der aktuelle Tastendruck der enter-Taste? AfterUpdate sind nicht enthalten, und OnKeyPress ist für normale Zeichen, nicht die enter-Taste (oder so, hab ich gelesen)
  • Das ist eine gute Idee. Nach .SetFocus, es geht nur um End if, dann End Sub - und das ist es.
InformationsquelleAutor PowerUser | 2013-09-24
  1. 14

    Wenn man sich die Reihenfolge der events für einen Tastendruck geändert werden würde konzentrieren, können Sie sehen, dass es immer nach diesem Muster:

    KeyDown → BeforeUpdate → AfterUpdate → Exit → LostFocus

    Können Sie re-den Fokus setzen Sie überall dort ein, und es wird noch immer nach dem Muster. So müssen wir sagen, es zu stoppen, nach dem Muster. Ersetzen Sie Ihre Me.MyFld.SetFocus mit DoCmd.CancelEvent und es sollte dein problem lösen. Im Grunde, dies nur Tritte, die Sie aus dem obigen Muster, so dass die Exit und LostFocus Veranstaltungen nie Feuer...

    • +1 für die Angabe Ihrer Quelle. Erstellt habe ich keines dieser Ereignisse für das Textfeld, so dass ich zunächst nicht sehen, wie diese Fragen (vielleicht gibt es eine implizite Tab-Taste drücken in einer von Ihnen?) Jedoch, das 'DoCmd.Abbrechenereignis' funktioniert genau wie ich es wollte 🙂
    • Diese Ereignisse ausgelöst, die für jedes Projekt, ob Sie Hinzugefügt haben, können Sie benutzerdefinierten code oder nicht. Sobald Sie die EINGABETASTE gedrückt haben, beginnt es zu dieser Sequenz. Nach Beendigung der Exit und LostFocus-Ereignisse auf Ihre erste TextBox, es wird weiterhin auf die nächste control in der tab-Reihenfolge, und starten Sie die Ereignisse: Enter → GotFocus → KeyPress → KeyUp
    • Ich habe zu Fragen. Nach LostFocus führt auf die erste Textbox, warum würden Sie gehen, um das nächste control in der tab-Reihenfolge? Der Benutzer hat nicht, drücken Sie die Tabulatortaste, Geben Sie nur.
    • mir scheint das die logischste Sache für eine Steuerung zu tun, nicht wahr? Wenn Benutzer die vollständige und aktualisieren eines Feldes in einem Formular, werden Sie in der Regel aktualisiert das nächste Feld auf dem Formular unmittelbar danach.
    • Ich habe auf der Suche für eine Anleitung über das Ereignis zu verwenden, in anderen Umständen. Dies scheint zu empfehlen, LostFocus als die erste option. Bin ich der Zeichnung fehlerhaften Schlussfolgerungen?
    • Es hängt davon ab, was Sie zu tun versuchen. Lost ist ein gutes für viele Fälle, denn Sie ermöglicht es, code auszuführen, jedes mal, wenn Sie verlassen ein Feld--gemeinsam, wenn Sie wollen, dass die Daten aktualisiert, sobald Sie Tab um eine form. Wenn Sie wollen, dass es häufiger ausgeführt, so entsprechen teilweise Zeichenfolgen, während Sie sind, eingegeben wird, dann könnten Sie mit Tastendruck oder Änderung als auslösendes Ereignis.

    InformationsquelleAutor techturtle
  2. 5

    Ist ein workaround verschieben des Fokus auf ein anderes Steuerelement und dann zurück auf die erste Kontrolle. Wie diese:

    Private Sub MyFld_KeyDown(KeyCode As Integer, Shift As Integer)  
    If KeyCode = vbKeyReturn Then  
        DoStuff
        Me.anotherControl.SetFocus
        Me.MyFld.SetFocus  
    End If
End Sub
    InformationsquelleAutor Johan van der Slikke
  3. 1
    1. klicken Sie auf access options
    2. wählen Sie Advanced
    3. wählen Sie Don't move aus Move after enter
    4. klicken Sie auf ok

    Es wird 100%

    • Ein interessanter Ansatz, ich glaube nicht, dass ich als oder sogar kannten. Aber diese Einstellung sieht global sein. Da war ich die Entwicklung der db für andere user, würde es bedeuten, ein weiterer Schritt in der 'installation' - Prozess. Auch, es würde haben betroffen den rest der Formulare in der db und alle anderen Access-dbs, die Sie verwendet (zu der Zeit gab es ein paar).
    InformationsquelleAutor user10048738
  4. 1

    Andere Lösung für das problem, dass ich die Verwendung in Excel.

    Lass es existieren UserForm1 mit TextBox1 und CommandButton1 kontrolliert.

    Code in Modul des Formulars:

        Option Explicit

    Private Sub CommandButton1_Click()
      Unload Me
    End Sub


    Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

      If KeyCode = vbKeyReturn Then

        'Call DoStuff

        Application.OnTime Now, "'Control_SetFocus """ & Me.Name & """, """ & Me.ActiveControl.Name & """ '"
' The concatenation returns a string:  'Control_SetFocus "UserForm1", "TextBox1"'
      End If

    End Sub

    Und den code in das standard-Modul:

    Option Explicit

Sub Control_SetFocus(FormName As String, ControlName As String)
    Dim oUserForm   As Object

    Set oUserForm = GetFormByName(FormName)

    If Not oUserForm Is Nothing Then
        oUserForm.Controls(ControlName).SetFocus
    End If
End Sub


Function GetFormByName(FormName As String) As Object
    Dim oUserForm   As Object
    On Error GoTo ErrHandle

    For Each oUserForm In VBA.UserForms
        If StrComp(oUserForm.Name, FormName, vbTextCompare) = 0 Then
            Exit For
        End If
    Next oUserForm

    If oUserForm Is Nothing Then
        Set oUserForm = UserForms.Add(FormName)
    End If

    Set GetFormByName = oUserForm
    Exit Function
ErrHandle:
    Select Case Err.Number
        Case 424:
            MsgBox "Userform " & FormName & " not exists.", vbExclamation, "Get userform by name"
        Case Else:
            MsgBox Err.Number & ": " & Err.Description, vbCritical, "Get userform by name"
    End Select

End Function

    Artik

    InformationsquelleAutor Artik
  5. 0

    Versuchen, das entfernen der gesamten Zeile für variable_name.SetFocus und einfach hinzufügen:
    Cancel = True

    Private Sub MyFld_KeyDown(KeyCode As Integer, Shift As Integer)  
     If KeyCode = vbKeyReturn Then  
         DoStuff  
         Cancel = True  
     End If
End Sub
    • _KeyDown nicht Cancel parameter.
    InformationsquelleAutor Steven McCaffrey
Schreibe einen Kommentar