undefined function error in query

[patrichek]

Hi All,
i borrowed and slightly modified one of PHV's functions and now I can't get it to run in an update query.

Here's the code for the function:

Public Function getPhoneNum(strPhone)
Dim i As Integer, x As String, s As String
If Len(Trim(Nz(strPhone, ""))) = 0 Then Exit Function
For i = 1 To Len(strPhone)
  x = Mid(strPhone, i, 1)
  If IsNumeric(x) Then s = s & x
Next i
getPhoneNum = Format(s, "##########")
End Function

here is my query sql:

UPDATE Contacts SET Contacts.WorkPhone = getPhoneNum([WorkPhone]);

I'm getting "undefined function 'getPhoneNum' in query" error. I've checked the references in vb and i have none missing.
Any help would be appreciated.

thanks!

 

[patrichek]

ok, nevermind. I figured it out. I had named the module 'getPhoneNum' which you can't do.

thanks PHV