文本框判断是否录入连续四个字符

最近有网友问到，如果通过有效性规则去禁止连续录入4个数字呢？即连续输入4个字符（包括数字，汉字，字母）就会提示错误。

于是便写此函数来控制文本框连续输入4个字符。

Access判断是否录入连续四个字符动图

Access判断是否录入连续四个字符详细VBA代码：               

        Public Function SamSerial(strText As String)

            Dim i As Integer

            For i = 1 To Len(strText)

               '  Debug.Print Mid(strText, i, 1)

                 strCharacter = Mid(strText, i, 1)

                 strCharacter2 = Mid(strText, i + 1, 1)

               ' Debug.Print strCharacter2

            If strCharacter = strCharacter2 Then

                j = j + 1

            Else

                j = 0

            End If

             '  Debug.Print j

               If j = 3 Then

               MsgBox "有连续4个字符录入"

               End If

            Next

        End Function