今天我們給大家分享一下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;
最後，我們來看一下運作結果
好了，今天就講到這裡，大家快去試一下吧。