python3 自定义函数无法被调用_Access查询中如何调用自定义函数
今天我们给大家分享一下Access查询中调用自定义函数。
在Access的查询中可以直接调用自定义函数，可以帮助我们解决实际工作中一些特殊的查询统计。
接下来，小编用一个网友的问题来教大家调用，我们来看一下实例。
问：如何统计某些词语在歌词中出现在次数？
1第一步：建表
具体的表见下图
2第二步：编写自定义函数
具体的函数如下。这里有一个知识点，就是Split函数，这个以后我们再讲，这里先提一下。
Public Function WordFrequency(ByVal Lyric As String, ByVal Word As String) As String
Dim arr As Variant
Dim brr As Variant
Dim i As Long
Dim countChar As Long
If Lyric = "" Or Word = "" Then Exit Function
If InStrRev(Word, "|") = 0 Then Exit Function
arr = Split(Word, "|")
For i = 0 To UBound(arr) - 1
brr = Split(Lyric, arr(i))
countChar = UBound(brr) - LBound(brr)
WordFrequency = WordFrequency & "“" & arr(i) & "”" & "出现次数：" & countChar & vbCrLf
Next i
End Function
3第三步：建查询
具体的查询我们还是来看下面的截图
SQL语句：
SELECT 歌名, 歌词,分词, WordFrequency([歌词],[分词]) AS 词频 FROM 表2;
最后，我们来看一下运行结果
好了，今天就讲到这里，大家快去试一下吧。
示例下载：
https://pan.baidu.com/s/1tI3WUx42aUvobKK4leLBUA
提取码：jv7w
