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

xryacc

比如说,如何用简单的代码,判定text0中是否输入了任何26个英文字母中的一个或多个,如何判定text中输入了任何数字0,1,2,3,4,5,6,7,8,9中的一个或多个呢,代码越简单越好!请高手帮忙,不胜感谢!

xryacc

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

xryacc

比如有一个前端文件为：code.mdb,我想做一个窗体,,用来选择链接数据库文件,比如:data.mdb,只要选择了一个数据库文件data.mdb,就链接好了它的所有数据表,而不是一个数据表一个数据表去链接,这如何做到呢?谢谢!

wu8313

使用 两个数组(均为integer类型) 看看。
一个数组  A 用来保存 指定的元素集合，比如0-9，a-z(也可以转化为integer类型)。

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

然后使用 循环的方法 把 B 中的每个元素和 A  中的每个元素进行比较，只要输入的元素有一个和 A  中 元素 不相等就返回一个integer(0)，退出循环，给出一个message"你输入的元素在指定集合中并不包含"。

xryacc

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 "")
--------
请两位高手帮忙!万谢!

Grant

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

这个可以剔除中文

hi-wzj

也可以通过文本框或字段的“输入掩码”属性来控制。
比如输入
“9999999” --》最多可输入7个数字
“0000”--》必须输入4个数字
“?????”-->最多输入5个字母
“L”-->只能输入1个字母
.......
更多的请看帮助。

andymark

用ASCII码判断
在此范围输入的为数字
0-9   :  48-57   
在此范围输入的为字母
a-z    :  97-122
A-Z   :  65-90

xryacc

就是说，if text0.value=a 或=b,或=c或=ab或=bc等等26个英文字母中的任何一个或多个或是数字0,1,2,3,4,5,6,7,8,9或89或23等等,then msgbox "您只能输入汉字"，当然判定的时候用like最好,我的意思就是这样,谢谢了!

Grant

不太理解