String 当输入特定字符时，如何强制Access表单中的文本框跳到下一个文本框？

我有两个文本框：作业和后缀。格式如下所示

职位：H000001501 后缀：0012

但是，我们使用的一些报告将这两个字段合并为一个可扫描条形码，如下所示：

工作编号H000001501-0012

我希望允许我的用户能够扫描条形码或键入作业和后缀。为此，我需要使作业文本框在输入时跳过连字符（“-”），并将后缀输入到第二个文本框中。我该怎么做？这与VBA有关吗

Sub OnExitTextBox1(strInput As String)

Dim aTest() As String

aTest = Split(strInput, "-")

Me.TextBox1.value = aTest(0)
Me.TextBox2.value = aTest(1)

End Sub

使用split函数根据分隔符（在我们的例子中是连字符）将字符串拆分为一个数组，然后您可以使用该数组传递给textbox1和textbox2，删除连字符，因为它是分隔符，所以您的左边有两个部分

---

希望这能有所帮助

Hmmm，所以我想我需要在扫描工作编号后尽快采取措施。所以我在看一些东西，我想我需要一个OnKeyDown或OnKeyPress事件。因此，当按下/扫描连字符键时，焦点必须转到下一个文本框并在那里继续输入。使用SetFocus可以做到这一点。