ACCESS VBA代码输入函数Acchelp_StrDataIsExist（），运行时为什么提示：函数未定义？

Private Sub 项目批准文号_AfterUpdate()
If Acchelp_StrDataIsExist("项目明细表", "[项目批准文号]", " & Me.项目批准文号 & ") = True Then
MsgBox "你输入的项目批准文号已经存在，请重新输入", vbCritical, "警告"
Me.项目批准文号.SetFocus
Me.Undo
Exit Sub
End If
End Sub

http://www.accessoft.com/article-show.asp?id=6039