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

Question

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

职位：H000001501 后缀：0012

然而，我们使用的一些报告将两个字段组合成一个可扫描的条形码，如下所示：

职位编号H000001501-0012

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

Answer 1

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，连字符被删除，作为它的分隔符，所以你的左边与2部分。

希望这有帮助