Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problem with Alias does not exist
Message
 
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Miscellaneous
Thread ID:
01684254
Message ID:
01684296
Views:
39
>Hi,
>
>Could someone suggest why I am having a problem (actually not me but the customer) in the following segment of code:
>
>The container with the text box has a property control_source. This property has a value V_WORK.EMPLOYEE
>
>The code then checks is the value of the field EMPLOYEE in the cursor V_WORK has been change. Here is the code:
>
>
>		cControlSource = ALLTRIM( this.control_source )
>		IF EVALUATE( cControlSource ) == OLDVAL( cControlSource )		
>			RETURN .T.
>		ENDIF 
>
>
>The problem occurs on the line above, EVALUATE( cControlSource ) == OLDVAL( cControlSource ), and it does
>ALIAS IS NOT FOUND. I verified that the entry in .control_source exists as described above.
>
>TIA.
>
>UPDATE. the following code checks that the alias V_WORK exist and is open. This code, below, is before the code above (just in case someone wonders if the alias is indeed exists and open
>
>
>IF !EMPTY( this.control_source )
>	cAlias = SUBSTR( ALLTRIM(this.control_source), 1, AT('.',ALLTRIM(this.control_source)) - 1)
>	IF SELECT( cAlias ) > 0
>		cControlSource = ALLTRIM( this.control_source )
>		IF EVALUATE( cControlSource ) == OLDVAL( cControlSource )		
>			RETURN .T.
>		ENDIF 
>      ENDIF
>ENDIF
>
I could never duplicate the problem (above) on my system. Borislav came the closest to explaining why the problem occurred; even though his code error message was different than what the customer would get.

I changed my code, as suggested by many, replaced the OLDVAL ("V_WORK.EMPLOYEE") with the OLDVAL() and two parameters, parsing the "V_WORK.EMPLOYEE" into two values. I enclosed the new code into TRY CATCH (just so that the customer does not see the error, but I can read it in a hidden log).
So far, after two days, the new code works and no error in the hidden log.
I may remove TRY CATCH at some point as I understand that it slows down the processing. Although nobody yet complained.
Thank you all for your help!
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
Previous
Reply
Map
View

Click here to load this message in the networking platform