代码改变世界

Access如何判断字符串从左边第一个数字为5

2015-05-25 13:58  starlet  阅读(993)  评论(0编辑  收藏  举报

步骤如下:

1、打开VBA(ALT+F11)
2、右键模块=》插入=》模块
3、粘贴以下代码:

Public Function CutStr(chkStr As String) As String
'截取字符串中第一个数字符
Dim i As Long
For i = 1 To Len(chkStr)
If Mid(chkStr, i, 1) Like "[0-9]" Then
CutStr = Mid(chkStr, i, 1)
Exit Function
End If
Next i
CutStr = chkStr
End Function

4、保存,关闭VBA

5、在access中新建查询,在默认的语句后面增加where条件
SELECT ......FROM 表 where CutStr(字段)== 5