>I have a client who is having problems -- yet fails to contact us with errors. Our error handling routine
>is now emailing us with diagnostics through ON ERROR. However, I have not been successful in capturing the name
>of the form currently in use. The PROGRAM() parameter returns ERROR (the error .prg) not the calling form.
>
>All is triggered by one ON ERROR command in our startup program.
Try
IF TYPE("_SCREEN.Activeform.Name") = C
lcFormName = _SCREEN.Activeform.Name
ENDIF
--sb--