大小写问题，救命！！！！啊

forhonour

个位大大，小弟又有问题了！
在access 中大小写不被系统区分，比如下面程序句：
If "20A="20a" Then
     Ok=True
Else
     OK=False
End If
在监视窗口中观察变量OK的值，为True.
本人讨厌这设定，请问，我希望系统可以向Excel VBA,或C++那样，将A和a区别对待！个位大大，帮帮忙，告诉我怎么做，谢谢！！

Henry D. Sy

vba好像不分大小写，想想变通的方法。

forhonour

恶 垃圾的功能！ 别的都做的好好的 干什么要access做成这个鸟样？真傻x

djt

Option Compare Binary
Sub test()
If "20A" = "20a" Then
     ok = True
Else
     ok = False
End If
MsgBox ok
End Sub

liwen

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

我想要个 让系统自动区分大小写的解决方案，就是让他对 A 和 a区别对待

liwen

5#djt  的回答己给你解决了呀

djt

Option Compare Binary
Sub test()
If "20A" = "20a" Then
     ok = True
Else
     ok = False
End If
MsgBox ok
End Sub

chuang0321

对5#的精简一下

          If StrComp("20A", "20a", vbBinaryCompare) = 0 Then
            MsgBox "ok"
           Else: MsgBox "no"
          End If

forhonour

楼上几位的 高手啊 我希望得到的答案不是那个 貌似精简的 输出 OK NO 而是我要取消 Access 对大小写一视同仁的 设定！！！！！！！！！！！！！！！！