Access - problema de codigo

tengo un problema con un codigo que he pillado de un libro. este codigo lo tengo en un modulo
'devuelve true si el formulario especificado esta abierto en vista de formulario (no de diseño)

Public Function EstaAb(ByVal strNombreForm As String) As Boolean
Const conVistaDiseño = 0
Const conEstadoObjCerrado = 0

EstaAb = False
If SysCmd(acSysCmdGetObjectState, acForm, atrNombreFrom) <> conEstadoObjCerrado Then
If forms(strNombreFrom).CurrentView <> conVistaDiseno Then
EstaAb = True
End If
End If

End Function

El caso es que llega hasta la linea
If SysCmd(acSysCmdGetObjectState, acForm, atrNombreFrom) <> conEstadoObjCerrado Then

Continuo con la explicacion del problema por que se me ha cortado.

llega hasta la linea antes indicada y da un error de funcion ilegal.
lla mo al modulo funcion desde

dim strfunc as string
strfunc = "EstaAb"

If EstaAb("proyectos_gen") Then
DoCmd.Close acfrom, "proyectos_gen"
End If

no se donde puede estar el problema.
gracias

Hola,

yo creo que el problema puede ser que donde pones "atrNombreFrom" deberia poner "atrNombreForm" prueba a ver y me cuentas....

Muchas gracias este era el problema pero no lo veia.
la dislexia me mata.
gracias.