Mandatory field in GRID if checkbox checked

[den1s]

Hi,

I am trying to place a condition on a field in my GRID. I have a checkbox in the same grid. If the checkbox is checked then FIELD2 must not be blank on SUBMIT of the page.

I cant seem to get my head around achieveing this.

Can anyone help?

Denis

[Phil Rolf]

Re: Mandatory field in GRID if checkbox checked

have you tried going to Validation Rules under Data Value and set your expression there?

[den1s]

Re: Mandatory field in GRID if checkbox checked

Thanks Phil,

I thought that might be it.

I am trying to convert this into xbasic....

if "COMPLETED" = .T. then "COMPLETION_NOTES" Must not be empty

COMPLETED is a logical checkbox.
COMPLETION NOTES is a memo field.

Can you possibly offer some help to convert this for the CUSTOM EXPRESSION in the Data Value Validation Field?

Thanks in advance.

Denis

[Phil Rolf]

Re: Mandatory field in GRID if checkbox checked

I could not seem to get things to work in the validation rules. However, go to events for BeforeValidateExistingRecords and place the following.

function BeforeValidateExistingRecords as v (DataSubmitted as P, Args as p, PageVariables as p)
with PageVariables
if (DataSubmitted.completed = .t. .and isblank(DataSubmitted.COMPLETION_NOTES) then 
    Result.Cancel = .t.
    Result.ErrorHTML = "No Data In Completion Notes"
    exit function
end if
end with
end function

I have not tested this so I may have some of the formating incorrect.

[den1s]

Re: Mandatory field in GRID if checkbox checked

Phil,

Thanks for trying, there was a syntax error in the code which i fixed (i think). But then it came back with 'NO SUCH FIELD'. I recreated the Datasubmitted statements manually using the buit in 'INSERT' function. So i assure you the fields do exist.

if (DataSubmitted.completed) = .t. .and. isblank DataSubmitted.COMPLETION_NOTES) then 
    Result.Cancel = .t.
    Result.ErrorHTML = "No Data In Completion Notes"
    exit function
end if

Denis

[Phil Rolf]

Re: Mandatory field in GRID if checkbox checked

for the isblank to work you need the following and you can eliminate the () around the completed field

isblank(DataSubmitted.COMPLETION_NOTES)

[den1s]

Re: Mandatory field in GRID if checkbox checked

Phil,

I republished the entire database (just in case). The code now looks like this.

if DataSubmitted.completed = .t. .and. isblank (DataSubmitted.COMPLETION_NOTES) then 
    Result.Cancel = .t.
    Result.ErrorHTML = "No Data In Completion Notes"
    exit function
end if

I get the following error.

Error executing BeforeValidateExistingRecords event handler: command: if DataSubmitted.completed= .t. .and. isblank(DataSubmitted.COMPLETION_NOTES No such field

Denis

[Peter.Greulich]

Re: Mandatory field in GRID if checkbox checked

I think isblank() might want a field, not an web page object reference. How about:

alltrim(DataSubmitted.COMPLETION_NOTES) = "" ?

[den1s]

Re: Mandatory field in GRID if checkbox checked

Peter,

Thank you for attempting this. I have since changed the fields names. The code i now have is

if DataSubmitted.ACTION_STATUS = "Completed" .and. isblank(alltrim(DataSubmitted.STATUS_NOTES) = "")  
    Result.Cancel = .t.
    Result.ErrorHTML = "No Data In Completion Notes"
    exit function
end if

Error executing BeforeValidateExistingRecords event handler: command: if DataSubmitted.ACTION_STATUS = "Completed" .and. isblank(alltrim(DataSubmitted Argument is incorrect data type

Is this what you meant?

Denis

[Peter.Greulich]

Re: Mandatory field in GRID if checkbox checked

Try dropping the isblank. My suggestion evaluates the object.value to null - i.e. ""

[den1s]

Re: Mandatory field in GRID if checkbox checked

Peter,

Thanks again, but I made the change as you suggested and the record just saved as normal, despite 'Completed' being selected on radio button and the 'Status Notes' being empty.

function BeforeValidateExistingRecords as v (DataSubmitted as P, Args as p, PageVariables as p)
with PageVariables
if DataSubmitted.ACTION_STATUS = "Completed" .and. alltrim(DataSubmitted.STATUS_NOTES) = ""
    Result.Cancel = .t.
    Result.ErrorHTML = "No Data In Completion Notes"
    exit function
end if
end with
end function

Denis

[peteconway]

Re: Mandatory field in GRID if checkbox checked

From what you have said � I take it you don�t want to actually check the box � but have it appear checked if there is something placed in the completed notes field.

I do this often; it allows you to alert a user to the fact that there is information in field on another page or under another tab or even linked page without them having to display it to find out.

You can this using either a calculated field in the table or on the fly as a calculated field in the grid.
If( completed_notes >��,true,false) � you get the idea.

[den1s]

Re: Mandatory field in GRID if checkbox checked

Peter,

Sorry if i diddnt make myself clear. As i was developing the requirement changed, so the initial first description has changed later this this thread.

So to confirm, i have a radio button (ACTION_STATUS) with three options,

Accepted
Declined
Completed

Below the radio button, i have a Text Area Box (STATUS_NOTES).

So, when a user selects one of the three options in the radio button, the STATUS NOTES text area must not be blank. So basically, if you select completed, declined or accepted you MUST enter something in the Text Area also.

I hope this clears up any confusion i have caused.

Denis

[peteconway]

Re: Mandatory field in GRID if checkbox checked

You need to use a Dialog.