移至字符串末尾的下一个控件

时间:2018-08-28 13:31:37

标签: access-vba ms-access-2016

我有一个带有蒙版的控件的窗体。掩码接受10个数字,我将它们格式化为短文本。我不会对它们进行任何计算。它们只是一串数字。当我输入最后一个字符时,我希望控件将焦点更改为另一个控件。示例:我输入1111-10-1234,当我键入4时,我希望焦点更改为下一个控件。我尝试使用Len更改焦点,但是由于我有12个占位符,所以它始终显示为12。还有其他建议。

2 个答案:

答案 0 :(得分:1)

您可以使用 SelStart 属性:

Person = Struct.new(:first_name, :last_name, :age, keyword_init: true)

person_hash = { first_name: "Foo", last_name: "Bar", age: 29 }

person = Person.new(person_hash)

=> #<struct Person first_name="Foo", last_name="Bar", age=29>

答案 1 :(得分:0)

您只能用数字重新检查字符串的长度。使用正则表达式函数可以消除字符串中的非数字符号:

Public Function f_NumberExtractor(ByVal str As String) As string
Dim objRegEx As Object

 if len(str) >1 then
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = "\D"
objRegEx.Global = True

f_NumberExtractor= objRegEx.Replace(str, vbNullString) 

else

 f_NumberExtractor=vbnullstring

end if

End Function

所以,现在你可以拥有

len(f_NumberExtractor(me.cmbName.value))>11 

签入您的代码。