access中使用自己編寫的函數

新建表tb
ID cc xm
1 a hello
2 dd text,doc
3 dd text,jpg
4 aa mo

新建模塊，加入代碼
Function test(a As String, d As String) As Boolean
    test = False
    s = Split(a, ",")
    For Each p In s
        If InStr(1, p, d, vbTextCompare) > 0 Then
            test = True
            Exit For
        End If
    Next
End Function

新建查詢，查詢包含jpg字符串的行
SELECT *
FROM tb
WHERE (((test([xm],"jpg"))<>False));

運行結果
ID cc xm
3 dd text,jpg