继续问煮江品茶老师

我服了你的气，呵呵。

第二贴不是又告诉你用CharType函数的查询写法了吗？

Public Function CharType(mystr As String) As String
Dim i As Long
i = Asc(mystr)
Select Case i
    Case -20319 To -10247
        CharType = "简体汉字"
    Case 65 To 90, 97 To 122
        CharType = "英文字母"
    Case 48 To 57
        CharType = "阿拉伯数字"
    Case Else
        CharType = "符号等"
End Select
End Function

2、在查询中引用：

SELECT 物料名称, CharType(Mid([物料名称],Len([物料名称])-1,1)) AS 判断结果
FROM Table1;