试一下用 VBA 函数嵌入ACCESS SQL,我没测试。
select 属性 FROM TableName WHERE InStr(0, '月', 字, vbTextCompare) > 0
InStr 函数
返回某字符串在另一字符串中第一次出现的位置。
InStr([start, ]string1, string2[, compare])
参数
start
可选项。数值表达式,用于设置每次搜索的开始位置。如果省略,将从第一个字符的位置开始搜索。如果 start 包含 Null,则会出现错误。如果已指定 compare,则必须要有 start 参数。
string1
必选项。接受搜索的字符串表达式。
string2
必选项。要搜索的字符串表达式。
compare
可选项。指示在计算子字符串时使用的比较类型的数值。如果省略,将执行二进制比较。
设置
compare 参数可以有以下值:
常数
值
描述
vbBinaryCompare
0
执行二进制比较。
vbTextCompare
1
执行文本比较。
返回值
InStr 函数返回以下值:
如果
InStr 返回
string1 为零长度
0
string1 为 Null
Null
string2 为零长度
start
string2 为 Null
Null
string2 没有找到
0
在 string1 中找到 string2
找到匹配字符串的位置
start > Len(string2)
0