"Required" Field rule hiccups

[Stephen Williams]

I am continuing to tweak my application into better Version 5 compliance.

An annoying thing happens when I edit data in the top parent table in forms based on a set. In several cases the change will not save, with the error message "Field Rule is Required: FIELDNAME". The required field is in a linked child table, and all field rules throughout the set are in compliance. Heck, I only changed one field in the parent table. I have not changed the child table, only the parent. and nothing that has to do with data affecting linking.

I will hit [esc] to cancel changes, then redo the edit, click to one other field and hit [F9] to save, and everything saves as expected.

Anyone else see this issue, have a clue?

[Peter.Greulich]

RE:

Yep, its a nasty bug.

Do a search on: "SOLUTION for REQUIRED FIELDS"
by Robert Carolina

The work-around is ugly. But we are grateful to Robert's diligent efforts.

Peter

[Stephen Williams]

Tbank you!

What a great forum!

Thanks Peter!

[Blake]

RE:

What I've done for this is create a small function that tests for blanks on the form and prevents the save, while highlighting the errant control.

You aren't testing the table, but the control on the form, and you pass the control names to the function as a comma-separated listed ("FieldControl1,FieldControl2"). I think A5 defaults to making control names the same as the field name, so it works out.

(This routine also allows changing the warning level for required field. Hope it helps!)

'Date Created: 20-Feb-2003 03:32:15 AM
'Last Updated: 20-Feb-2003 03:32:15 AM
'Created By :
'Updated By :
function RequiredFieldMissing as L(list as c, handling = 0 as N)

DIM I AS N
DIM s AS C

RequiredFieldMissing = .T.

for I = 1 to w_count(list,",")
s = word(list, i, ",")
if trim(eval(S+".text"))="" then
evaluate_template(S+".activate()") 'select that control
select
case handling = -1
case handling = 0
statusbar.set_text("A required field ("+S+") is blank.")
ui_beep(UI_ASTERISK_BEEP)
case handling = 1
ui_msg_box("Error!", "A required field ("+S+") is blank.")
end select
exit function
end if
next I
RequiredFieldMissing = .F.
end function