Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

【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

示   例:

点击下载此附件



Access软件网官方交流QQ群 (群号:115120150)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助