Conditionally Required In Field Rules

[Zradene]

Hi Guys, I have a Character field which I have set as Auto Increment. I have the Data Entry set to Conditionally Required.
The condition is based on another character field being equal to 'YES', and if this is true I want the auto incremented value to display the next value.
If <> 'Yes' I want the field to stay blank. I have set the Simple Default Expression to "000001".
For some reason the incremented next value still displays even if the conditional field is <> 'Yes'.
Maybe I am missing something here? I have also tried to do this using the field rules on the form itself with no success.
Both fields are contained within a set of 2 databases.

[Tom Cone Jr]

Re: Conditionally Required In Field Rules

The Conditionally Required data entry field rule simply prevents the user from saving the new record if a field value is required. It does NOT prevent the auto-increment rule from supplying a value.

[Zradene]

Re: Conditionally Required In Field Rules

Hi Tom, ok mate I hear where your coming from. Any suggestions on how I should tackle this then ?

Many thanks.

[Stan Mathews]

Re: Conditionally Required In Field Rules

Code the cansaverecord event in the field rules.

if another character field being equal to 'YES'
grab the greatest value in the field presently set to autoincrement
increment that value
put that value in the field presently set to autoincrement
end if

and remove the autoincrement rule.

[Zradene]

Re: Conditionally Required In Field Rules

Hi Stan, thanks for the info. I shall give this a try right now.

Much appreciated.

[Zradene]

Re: Conditionally Required In Field Rules

I am not quite getting this Tom, I am getting an error message "Table not in change or Enter mode".

[Stan Mathews]

Re: Conditionally Required In Field Rules

tbl = table.current()
if alltrim(tbl.fld1) = "Yes"
tbl.id =increment_value( tablemax("aexptest",".T.","id"))
end if

Where fld1 is the field to check for "Yes"
aexptest is the table name
id is the previously autoincremented field

[Zradene]

Re: Conditionally Required In Field Rules

Stan.jpg
Hi Stan, that ID field (CERT) is putting in an incremented number even if the FLD1 (MOTOR) is NO ?
see attached

[Stan Mathews]

Re: Conditionally Required In Field Rules

That's not the code I gave you.

You're trying to write a field rule for the testing_items table based on a value in the product table? Ain't gonna happen. Alpha doesn't support set field rules.

You should be able to code the cansave event for your data entry form. I'd have to see a sample set and support files to assist.

[Zradene]

Re: Conditionally Required In Field Rules

Stan, I've got this all working now, but I notice the increment still increases even though the non Motors are = to No.
What I am hoping to do is only allow the increment to increase if the Motor = "Yes".
I need to log the numbers when a motor is "Yes", as 000001, 000002, 000003, 000004 etc without having missing increments in between when the Motor = "No".
Fred

[Zradene]

Re: Conditionally Required In Field Rules

Ahh, I see.

[Zradene]

Re: Conditionally Required In Field Rules

Stan, happy to send you the complete program via Dropbox if you want to take a look.
What I have at the moment is almost perfect, just need the increments to run in sequence.
Fred

[Stan Mathews]

Re: Conditionally Required In Field Rules

Just show the code and tell where you're using it. Not just a picture of the code, copy and paste here or attach a text file. If you're doing this on a form attach a screen shot of the form in design mode where we can see the object names.

[Zradene]

Re: Conditionally Required In Field Rules

The code being used in the Field Rules within the main table structure, NOT the field rules on the form itself. Screen Shot attached.Stan2.jpg
tbl = table.current()
if alltrim(Product->Motor) = "Yes"
tbl.Cert =increment_value( tablemax("Testing_Items",".T.","Cert"))
end if

[Stan Mathews]

Re: Conditionally Required In Field Rules

If you're going to persist with creating a table level field rule which relies on something outside of the table (Product->Motor), at least reference the value as a form object rather than a table->fieldname.

Place the motor field on the form, even if you want to hide it. Check the object name of this new field so you can properly reference it (should be motor, doesn't matter as long as you verify and use what it is).

Then

tbl = table.current() 'I assume the testing_items table is the parent of the set upon which the form is based?
if alltrim(motor.value) = "Yes"
tbl.Cert =increment_value( tablemax("Testing_Items",".T.","Cert"))
end if

I generally recommend checking for the form being open when field rule code depends upon that situation. That way the code doesn't error if you perform record entry outside of the form.

if is_object("yourformname")
tbl = table.current() 'I assume the testing_items table is the parent of the set upon which the form is based?
if alltrim(motor.value) = "Yes"
tbl.Cert =increment_value( tablemax("Testing_Items",".T.","Cert"))
end if

end if