Problems with .active, any suggestions Please?

[Graham Wickens]

trying to edit the "active" field on my browse. where am I going wrong?

thx

Code is as follows:

on error goto error_routine
active_field = topparent.active(.f.)
t = table.current()
t.fetch_first()
while .not. t.fetch_eof()
t.change_begin()
eval("t."-active_field) = No_Diacritics(eval("t."-active_field))
eval("t."-active_field) = Repl_strings(eval("t."-active_field))
t.change_end(.t.)
t.fetch_next()
end while
end

FUNCTION no_diacritics AS C (input_string as C)
no_diacritics=CHRTRAN(Input_String,"ÊÈéáãæâêéàî˜óñËÛÏšñŽñÕËüçôäúèÉëÉ","EEeaaaaeeaionEUIsnZnOEucoaueEeE")
END FUNCTION

FUNCTION repl_strings as C (input_string as C)
find_strings = <<%find%
ã
é
°
%find%
repl_strings = <<%repl%
a
e
-
%repl%
repl_strings = stritran_multi(input_string,find_strings,repl_strings)
END FUNCTION

error_routine:
err_msg = error_text_get(error_code_get())
script = error_script_get()
line = error_line_number_get()
ui_msg_box("Error",err_msg+" error occured at line "+alltrim(str(line,4,0))+" in Script "+alltrim(script))
end​

I keep getting error message

Command does not work in change or Enter Mode
Error occured at Line 8

[Ronald Anusiewicz]

Graham,

I’m a very simple person. You have to understand that you are intimately familiar with your code and what you are trying to do. I’m looking at your code and I’m trying to understand what you are doing. Again, I’m a very simple person.

I recommend that you turn on line numbers in your code. It would make it easier for me any anyone else trying to help you.

I also recommend the use of the “debug(1)” function allowing one to step through the code one line at a time.

Lastly, I would recommend building a very simple table and browse to test on. All you would need is a table with enough records to test your functions and a single column. What usually happens with me, when I build a simple example to submit to the message board, I usually find the error.

That said, it appears to me that the line throwing an error is:

eval("t."-active_field) = Repl_strings(eval("t."-active_field))

Your error message is saying because the table is in change mode, something in the function you called can not run.

I would change your code to:

on error goto error_routine
debug(1)

I would put debug(1) in each function if needed.

[armasoft]

Remember to remove/comment out any debug(1) statements once you've finished with them or the runtime will halt each time one is reached. This is very painful in V12 as the debug windows doesn't show up in the runtime.

[Ronald Anusiewicz]

Graham,

For the benefit of others on the message board, did you resolve this issue?