【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源码网店
常见问答
技术分类
最新帖子
- 老师帮忙修改一下小程序 (02-22 20:14)
- 如何克服“打印到最后一... (02-22 11:52)
- 在某个窗体下,有一个t... (02-21 21:35)
- 报表中VBA画直线并使... (02-20 21:02)
- 怎么设置我输入一个代码... (02-20 12:55)
- 各位大神,我的acce... (02-19 15:17)
- access组合框中下... (02-19 12:31)
- 文本框多次输入数据,如... (02-18 16:57)
- 执行删除时窗体显示#已... (02-18 16:13)
- 请问全选中复制或选中一... (02-17 22:45)

学习心得
最新文章
- 【Access日期区间段查询示例】...(02.23)
- 关于SQL命令中不等号(!=,<>...(02.22)
- 【Access入门示例】IIF与复...(02.22)
- 平台自动升级设置错误,显示“没有找...(02.20)
- 【Access示例】连续窗体添加条...(02.19)
- 【Access基础】随机数函数--...(02.18)
- Access快速开发平台--分享一...(02.17)
- 【Access示例】--多选复选框...(02.17)
- 平台打不开,DAO360控件丢失,...(02.16)
- [张志MVP]Access每天3分...(02.16)
最新评论 查看更多评论(0)
发表评论您的评论将提升作者分享的动力!快来评论一下吧!