Displaying Code modules

[GulliverUk]

I would like to display the area within a code module where certain text appears.

The module concerned has numerous lines containing code such as:
If x Then AddErr 35
If y then AddErr 45
etc etc

The code below works (from a form or other module)

Dim l1 as long, l2 as long, c1 as long, c2 as long
Dim bolFound as Boolean
Dim mdl as module
DoCmd.OpenModule "modProcessingBS"
Set mdl = Modules("modProcessingBS")
bolFound = mdl.Find("AddErr 35", l1, c1, l2, c2, True)
debug.print bolFound

Always bolFound is True, but the module display is where it was last opened, not where the line containing "AddErr 35" is to be found. I swear that earlier today Access did exactly this, but no longer. Frustrating. Can anyone help?

I am using Access 2002 - although I doubt it makes much difference!

Many thanks to anyone who can help!

[nico5038]

Don't know why you want the module to open at the found line, but why not use the Edit/Find to determine the location ?
This allows a search per function, module or even all code with a full or partial match of the string....

Nic;o)

[GulliverUk]

Don't know why you want the module to open at the found line, but why not use the Edit/Find to determine the location ?
This allows a search per function, module or even all code with a full or partial match of the string....

Nic;o)

Well, when I view error 35, I want to be able to go straight to the code that generates that error. Why don't I want to use find? Quite simply, it is slow

[nico5038]

Hmm, a slow find is new to me. I've been using it many times and certainly when you have just one module (and set the Find to the "Within Module" scope) I never experienced slow performance.

I only use the module object for extensive automated updates and your .find is a new approach for me :-)

Nic;o)