check if field exists on a form

[DaveM]

I thank you for any help in advance.
This has probably been covered many times, but I need to test for 4 fields on a form where the code is going to be inserted in a lot of oninit form events.

In other words
id
otherid
3rdid
4rthid
may all be there or maybe only one and it is very time consuming to check and do manually.

basically, I need
if exist id then
else
endif

Each of these fieldThat exist will be a part of a post into one table.

I can get the table name, form name and all else I need.

[Stan Mathews]

Re: check if field exists on a form

list = formname.Child_Enum("r,e=this.FIELD_GET().FULLNAME_GET()" )
will yield a crlf() delimited list in the format

tablename->field1
tablename->field2
etc
var->mydate

[Tom Cone Jr]

Re: check if field exists on a form

Dave,

Are you checking for fieldnames from the table structure, or are you testing for object names for the textboxes displaying field values? I ask because even though these are very different things often the latter are called "fields", too.

Stan's code is building a list of the table field names that are bound to objects in the form, which is probably what you want.

[DaveM]

Re: check if field exists on a form

I am looking for a field on the form, not table field names. I have those.
In other words the form has id already placed on it and it has a name of joe on the for. I need to test for joe.

I have the names of all possible used names and there are 4 of them. Some of them may not have been placed on the form. All of them may be there or 2 or 3?
I have to test for each one and use it if it is on the form. Mostly this will be working on forms built on sets which would make no difference for what I need.

If it is not possible, I can do them by hand.
I hunted everywhere for this before I asked.
This may help:

dim pObj as p 
pObj = topparent.this	

DIM Shared formname AS c
formname = pObj.name()

DIM SHARED fnum AS c = parentform:File_num.value  ' is it there?
DIM SHARED idn AS n = parentform:Id_num.value
DIM SHARED insid AS n = parentform:Inspectid.value
'DIM SHARED clid AS c = parentform:Clientid.value  ' not on the form
dim tble as P
tble = table.open("aatrack",FILE_RW_SHARED)
tble.enter_begin()
tble.userid = var->vcuser
tble.id_num = var->idn
tble.filenum = var->fnum
'tble.clientid = var->clid  ' Not on the form
tble.inspectid = var->insid
tble.formor = var->formname
tble.note = "opened form "+var->formname
tble.enter_end()
tble.close()

[Tom Cone Jr]

Re: check if field exists on a form

Ok,

Dave, you can use the is_object() method of the form object to determine if an object exists. If there is an object in the form named "Clientid" then

is_object("Clientid")

will return true, otherwise it will return false

[DaveM]

Re: check if field exists on a form

I will give that a try.

Thanks Tom

[DaveM]

Re: check if field exists on a form

Tom, Worked GREAT.
Thank you for the insight.

We have to get together for coffee one day soon.

[DaveM]

Re: check if field exists on a form

For those it might help, this is for a logging system. This particular part is for forms and is set in the on init event Simply changing the very bottom of it can make it for most anything, but is set up for my work today. Some can be added and some can be removed as needed.

dim pObj as p 
pObj = topparent.this	
DIM Shared formname AS c
formname = pObj.name()

DIM SHARED fnum AS c   ' probably not the var's you need
DIM SHARED idn AS n
DIM SHARED insid AS n
DIM SHARED clid AS c

if is_object("file_num") then
var->fnum = parentform:File_num.value
end if
if is_object("filenum") then
var->fnum = parentform:filenum.value
end if
if is_object("id_num") then
var->idn = parentform:Id_num.value
end if
if is_object("inspectid") then
var->insid = parentform:Inspectid.value
end if
if is_object("inspectionid") then
var->insid = parentform:inspectionid.value
end if
if is_object("Clientid") then
var->clid = parentform:Clientid.value
end if
if is_object("Clientidentifier") then
var->clid = parentform:Clientidentifier.value
end if
if is_object("Client_id") then
var->clid = parentform:Client_id.value
end if
dim tble as P
tble = table.open("aatrack",FILE_RW_SHARED)
tble.enter_begin()
tble.userid = var->vcuser
if var->idn <> 0 then
tble.id_num = var->idn
end if
if var->fnum <> "" then
tble.filenum = var->fnum
end if
if var->clid <> "" then
tble.clientid = var->clid
end if
if var->insid <> 0 then
tble.inspectid = var->insid
end if
tble.formor = var->formname
tble.note = var->formname+" opened"  'could be changed to saved, closed, etc

tble.enter_end()

tble.close()