I copied the routine Update_Hidden_Labels by Aaron Kaplan and tried to execute it after backing up AREV.

The result was that it defaulted to debug with the Message that Line 1 of LC_HIDDENLABEL had no value.

I then looked at DICT SYSWINDOWS LC_HIDDENLABEL and found that the first line was:

@ANS='

To me this is somewhat logical. I am curious as to what the workaround should be.

Thanks to all,

Dale

LC_HIDDENLABEL should have a dictionary forumula of

@ANS="

J=1

For I=2 to @RECORD + 1 )

   HoldAns=@RECORD

   LenAns =Len( HoldAns )

   If LenAns ] 0 Then

      If LenAns =HoldAns : @RECORD

      J += 1

   End

Next I

Don't know why this would not have been there, as it's a system dictionary.

[email protected]

Sprezzatura Group

That is what is in the dictionary. AREV is giving the following message in DEBUG:

'LC_HIDDENLABEL' Line 1. B16Non-Numeric data when numeric required. Zero Used.

Line 1 'LC_HIDDENLABEL' broke because a runtime error was encountered.

Is it referring to the same problem with Forms?

Dale

Betcha you had recalc set to dependencies and then added a field or something like that. Change the Recalc mode to Every Change and see if the problem goes away. Then set it back to what you need

Don Miller

Are you doing this on the windows file? If so, does this happen on a particular window? If so, what window is it?

You might want to copy the formula to a funciton, then have the window do an @ANS=FunctionName()

Then, when the program breaks, it will at least give a line number and variable information so we have something useful to debug.

[email protected]

Sprezzatura Group

Could you enlighten me more on this subject?

Thanks

Dale

This apparantly is occuring when SELECTing the WINDOWS USING SYSWINDOWS WITH LC_HIDDENLABEL.

Where should I put the @ans statement? in the routine that you provided or in the LC_HIDDENLABEL?

thanks

Dale

@ANS always belongs in the dictionary.

However, if you change the dictionary reference to

Declare Function HiddenLabels

@ANS=HiddenLabels()

you can create a function called HiddenLabels which would look like

Function HiddenLabel

Ans="

J=1

For I=2 to @RECORD + 1 )

   HoldAns=@RECORD

   LenAns=Len( HoldAns )

   If LenAns ] 0 Then

      If LenAns =HoldAns : @RECORD

      J += 1

   End

Next I

Return Ans

Now, when the select breaks, the HiddenLabel function will have the error, with a line number and variable access and we can see where it is.

[email protected]

Sprezzatura Group

View this thread on the forum...