标题: 大小写问题，救命！！！！啊 [打印本页] 作者: forhonour 时间: 2009-10-4 19:18 标题: 大小写问题，救命！！！！啊 个位大大，小弟又有问题了！
在access 中大小写不被系统区分，比如下面程序句：
If "20A="20a" Then
Ok=True
Else
OK=False
End If
在监视窗口中观察变量OK的值，为True.
本人讨厌这设定，请问，我希望系统可以向Excel VBA,或C++那样，将A和a区别对待！个位大大，帮帮忙，告诉我怎么做，谢谢！！作者: Henry D. Sy 时间: 2009-10-4 20:28
vba好像不分大小写，想想变通的方法。作者: forhonour 时间: 2009-10-5 22:23
恶 垃圾的功能！ 别的都做的好好的 干什么要access做成这个鸟样？真傻x作者: djt 时间: 2009-10-5 22:35
Option Compare Binary
Sub test()
If "20A" = "20a" Then
ok = True
Else
ok = False
End If
MsgBox ok
End Sub作者: liwen 时间: 2009-10-6 12:52
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ' 定义变量。
MyComp = StrComp(MyStr1, MyStr2, 1) ' 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0) ' 返回 -1。
MyComp = StrComp(MyStr2, MyStr1) ' 返回 1。作者: forhonour 时间: 2009-10-9 16:25
我想要个 让系统自动区分大小写的解决方案，就是让他对 A 和 a区别对待作者: liwen 时间: 2009-10-9 17:48 本帖最后由 liwen 于 2009-10-9 17:53 编辑
5#djt 的回答己给你解决了呀作者: djt 时间: 2009-10-9 18:05
Option Compare Binary
Sub test()
If "20A" = "20a" Then
ok = True
Else
ok = False
End If
MsgBox ok
End Sub作者: chuang0321 时间: 2009-10-10 11:19
对5#的精简一下
If StrComp("20A", "20a", vbBinaryCompare) = 0 Then
MsgBox "ok"
Else: MsgBox "no"
End If作者: forhonour 时间: 2009-10-28 08:35
楼上几位的 高手啊 我希望得到的答案不是那个 貌似精简的 输出 OK NO 而是我要取消 Access 对大小写一视同仁的 设定！！！！！！！！！！！！！！！！作者: xyxj1974 时间: 2009-10-28 11:01 本帖最后由 xyxj1974 于 2009-10-28 11:03 编辑