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

forhonour

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

forhonour

Option Compare Binary

这就是答案 我懂了

xyxj1974

Access及VBA本身不能区分大小写。
1、VBA不区分标识符的字母大小写，一律认为是小写字母；
2、一定要强行区分，请使用ASC值。StrComp也许能区分，没实际使用过

forhonour

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

chuang0321

对5#的精简一下

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

djt

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

liwen

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

forhonour

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

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。

djt

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