Xbasic Guidance Needed

[forskare]

On a browse's OnRowDblClick event, I open a dialog form to enter a new record. Works great if there are existing records. No existing records, then I need to add xbasic to enter a new record.

I'm a bit confused about how to integrate the Exist function with the rest of the code as the script has to check the table for any records that match the keyvalue and if not, open the form and add a new record.

Do I preceed the Exist function with 'if' as:

if(exist("class_id","students","Class_Id"),

and the write the rest of the script which obviously takes mulpiple lines.

Thanks for helping to straighten my path.


kenn

[russ Boehle]

RE: Xbasic Guidance Needed

Kenn,
Are you zooming to a form from a browse?

Russ

[forskare]

RE: Xbasic Guidance Needed

Zooming to a form in modal mode, selected with xdialog.

kenn

[russ Boehle]

RE: Xbasic Guidance Needed

I thought that might be the case. Been there, done that. If you think about it, it makes sense the way it works. If there is nothing to zoom to it doesn't zoom. What I did is use the zoom to change an existing record (record exists). If there is not record, hence nothing to zoom to then I put a button, add a record and it brings up the same form but not through zoom so I can add a record.

Russ

[forskare]

RE: Xbasic Guidance Needed

Yes, I've done something similar but it would appear to me that it can be done through a zoom as well.

Thanks,

kenn

[martinwcole]

RE: Xbasic Guidance Needed

Ken,
try something like this
check the documentation
"scanning" returns true if there are any child records

so
if .not. scanning("childtablename")
then use the enter routine
else
use the search for the key exists routine
end if

[forskare]

RE: Xbasic Guidance Needed

Thanks,

I'll check it out.

kenn

[DiFaz]

RE: Xbasic Guidance Needed

Ken,

If I understand your question correctly, you shouldn't use the "IF()" function as you have tried to do in your example.

Rather, use the "IF" programming statement.

It should look something like this:

if exist("class_id")
{Code for when there is a class_id}
else
{Code for when there is NOT a class_id}
end if

Hope this helps,
Ray DiFazio

[forskare]

RE: Xbasic Guidance Needed

Hi Ray,

Yes, you understood and cleared up some confusion.

Thanks,

How's things in Frisco?

kenn

[DiFaz]

RE: Xbasic Guidance Needed

Ken,

Glad I could help!!

Things are just great here!!

See you in April?

Ray

[forskare]

RE: Xbasic Guidance Needed

Planning on it.

kenn