根据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

示   例:

点击下载此附件