设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1745|回复: 9
打印 上一主题 下一主题

[窗体] 如何判定是否输入了从小值到大值中任何一个或多个值呢?

[复制链接]
跳转到指定楼层
1#
发表于 2007-10-23 21:18:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
比如说,如何用简单的代码,判定text0中是否输入了任何26个英文字母中的一个或多个,如何判定text中输入了任何数字0,1,2,3,4,5,6,7,8,9中的一个或多个呢,代码越简单越好!请高手帮忙,不胜感谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2007-10-23 22:34:31 | 只看该作者
不太理解
3#
 楼主| 发表于 2007-10-23 22:58:08 | 只看该作者

如何判定是否输入了从小值到大值中任何一个或多个值呢?

就是说,if text0.value=a 或=b,或=c或=ab或=bc等等26个英文字母中的任何一个或多个或是数字0,1,2,3,4,5,6,7,8,9或89或23等等,then msgbox "您只能输入汉字",当然判定的时候用like最好,我的意思就是这样,谢谢了!
4#
发表于 2007-10-23 23:17:39 | 只看该作者
用ASCII码判断
在此范围输入的为数字
0-9   :  48-57   
在此范围输入的为字母
a-z    :  97-122
A-Z   :  65-90
5#
发表于 2007-10-24 09:48:52 | 只看该作者
也可以通过文本框或字段的“输入掩码”属性来控制。
比如输入
“9999999” --》最多可输入7个数字
“0000”--》必须输入4个数字
“?????”-->最多输入5个字母
“L”-->只能输入1个字母
.......
更多的请看帮助。
6#
发表于 2007-10-24 12:01:26 | 只看该作者
Dim ck, l, t, c
Dim i

ck = Me.aa
l = Len(ck)
t = ""
          For i = 1 To l
             c = Asc(Mid(ck, i, 1))
             If c < 0 Then c = c + 65536
             If c < 255 Then
                t = t & Mid(ck, i, 1)
             End If
          Next
MsgBox t

这个可以剔除中文
7#
 楼主| 发表于 2007-10-24 16:59:58 | 只看该作者

如何判定是否输入了从小值到大值中任何一个或多个值呢?

1,Grant写的代码的结果确实可以剔除中文言,要改一下才是:
Dim ck, l, t, c
Dim i

ck = Me.text0
l = Len(ck)
t = ""
          For i = 1 To l
             c = Asc(Mid(ck, i, 1))
             If c < 0 Then c = c + 65536
             If c < 255 Then
                t = t & Mid(ck, i, 1)
             End If
          Next
    Me.text0 = t
'-------------------------------------------------------
不过我要的是只能输入汉字的限制,因为我不懂这种代码控制方法,就不会变通了,不知能否提供?
'----------------------------------------------
另外,andymark说的用ASCII码判断的方法,代码又如何写呢,以这样的目标功能为例:如果用户输入了任何英文字母或数字的一个或多个,就给出提示。(if ....then msgbox "")
--------
请两位高手帮忙!万谢!
8#
发表于 2007-10-24 22:01:44 | 只看该作者
使用 两个数组(均为integer类型) 看看。
一个数组  A 用来保存 指定的元素集合,比如0-9,a-z(也可以转化为integer类型)。

一个数组 B 用来保存 输入值的元素集合。

然后使用 循环的方法 把 B 中的每个元素和 A  中的每个元素进行比较,只要输入的元素有一个和 A  中 元素 不相等就返回一个integer(0),退出循环,给出一个message"你输入的元素在指定集合中并不包含"。
9#
 楼主| 发表于 2007-10-30 21:57:32 | 只看该作者

如何选定一个文件就自动链接其所有数据表?

比如有一个前端文件为:code.mdb,我想做一个窗体,,用来选择链接数据库文件,比如:data.mdb,只要选择了一个数据库文件data.mdb,就链接好了它的所有数据表,而不是一个数据表一个数据表去链接,这如何做到呢?谢谢!
10#
 楼主| 发表于 2007-10-30 22:00:14 | 只看该作者

对不起,我发错地方了,另外写了题目了,请在另一个题目中回答

对不起,我发错地方了,另外写了题目了,请在另一个题目中回答,谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 03:02 , Processed in 0.087940 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表