【Access示例】限制文本框只能连续输入一个

时　间:2018-10-09 08:33:34
作　者:伊西军   ID：63090  城市：无锡
摘　要:限制文本框只能连续输入一个"-"或者一个"."的示例
正　文:

      根据Access学友的要求，制作的一个小示例：文本框中只能连续输入一个"-"或者一个"."

功能代码:

Private Sub Text74_Change()
    Dim SelSta As Integer
    SelSta = Me.Text74.SelStart
    Me.Dirty = False
    If InStr(Me.Text74, "--") <> 0 or InStr(Me.Text74, "..") <> 0 Then
        SelSta = SelSta - 1
    End If
    If Len(Me.Text74) > 0 Then
        Me.Text74 = Replace(Me.Text74, "--", "-")
        Me.Text74 = Replace(Me.Text74, "..", ".")
    End If
    Me.Text74.SelStart = SelSta
    Me.Text74.SelLength = 0
End Sub

示   例:

点击下载此附件