How to put focus to textbox as needed

后端 未结 3 1624
北恋
北恋 2021-01-23 05:20

I have a textbox on a userform. If the user fails to enter anything in this textbox, I need to trap that to force an entry. I can do this easily enough, but after notifying the

3条回答
  •  夕颜
    夕颜 (楼主)
    2021-01-23 06:20

    Why are you not using an 'ok' button to complete the action?

    You should not bother users with messages while they are typing in a form. Do it at the end.

    Private Sub OK_Click()
    
        '// Validate form
        If txtAnswer.Text = vbNullString Then
            MsgBox "You need to enter an answer!", vbExclamation, "No Answer Found!"
            txtAnswer.SetFocus
            Exit Sub
        End If
    
        '// You have reached here so form is correct carry on
        recordAnswer
    
    End Sub
    

    If you really want to use the behaviour you asked for then try this:

    Private Sub txtAnswer_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
        Select Case KeyCode
        Case 13:
            If Me.txtAnswer.Value = "" Then
                temp = MsgBox("You need to enter an answer!", vbCritical + vbOKOnly, "No Answer Found!")              
                KeyCode = 0
            Else
                recordAnswer
            End If
        End Select
    
    End Sub
    

    The problem is that in your code you are setting focus but the enter key is firing afterwards. You don't need to set focus because the textbox already has the focus you just need to cancel the enter key.

提交回复
热议问题