vba - 如何传递光标并将焦点设置在 VBA 中的用户窗体文本框上？

Question

在下面的程序中，我收到此错误:运行时错误'-2147467259(80004005)':未指定的错误。通过突出显示此代码:txtStartDate.SetFocus在这一行:If txtStartDate.Text = "" Then txtStartDate.SetFocus

Private Sub txtTimeUnit_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If IsError(Application.Match(txtTimeUnit.Text, Range("intTable[Units]"), 0)) Then
    lblStatusBar = "Please correct value."
    Cancel = True
    Exit Sub
End If

lblStatusBar = vbNullString

Range("CToDate").Value = txtTimeUnit.Text

If txtStartDate.Text = "" Then txtStartDate.SetFocus
If txtEndDate.Text = "" Then txtEndDate.SetFocus

End Sub

谁能帮我解决这个错误并将文本框焦点(光标)传递到另一个文本框？

Answer 1

代替

If txtStartDate.Text = "" Then txtStartDate.SetFocus

经过

If txtStartDate.Text = "" Then
    txtStartDate.SetFocus
    Exit Sub
End If