我在用户窗体上有一个文本框。如果用户未能在此文本框中输入任何内容,我需要捕获它以强制输入。我可以很容易地做到这一点,但是在通知用户他们需要输入之后,我希望焦点返回到文本框。现在,它不这样做。这是我的代码:
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!")
Me.txtAnswer.SetFocus
Else
recordAnswer
End If
End Select
End Sub
此代码工作正常,如果文本框留空,则会弹出消息框。清除消息框后,如果我再次立即回车,消息框再次出现,提示焦点在文本框上。但是,如果我尝试输入一个字符(例如数字“1”),则文本框中不会出现任何内容。
任何人都可以建议我如何以允许用户输入数据的方式重新关注此文本框吗?谢谢!