validating information

[Donnie Mayes]

After a user presses a button and asked for the Serial_number to find, it will search for that serial number. If they enter some off the wall number like 999999, it will bring up the last serial number, which to date is 133082. Can I make this not happen. What I'm saying is if they enter an off the wall number, that is not in the current database, can I display an error and force them to re-enter? They will be scanning the serial number, so that should eliminate the mis-entry, but I'd like to be safe. Any thoughts?

[Thomas Henkel]

RE: validating information

Donnie,

Why not use the "Key_exist" function?? If the user enters a serial number, compare what they entered with existing numbers (provided the serial number is an index). If the key doesn't exist, then send a message box stating so and force tem to re-input the number.

Tom Henkel

[Stan Mathews]

RE: validating information

I assume you are using a button to "goto" the desired record.

You should be able to code xbasic to store the current record number to a variable, store the desired serial number to a variable, perform the search, check the desired serial number against the serial number of the fetched record, display a message if they don't == exactly match, and return to the original record number.

That's the process I think will work. Let us know if you need help with the coding.

[Donnie Mayes]

RE: validating information

Stan,

If it was in COBOL or C, I could do it, but I'm relatively new to xbasic. Any help on the coding would be great. Thanks.

[Mick Magnuson]

RE: validating information

Hi Donnie - Here is a script attached to a button on a form to find our serial numbers. You will have to substitute your .dbf and index names were needed.

dim shared tbl as p
dim shared part as c
dim vserial as n
dim query.description as c
dim query.options as c
dim query.order as c

tbl=table.current()
tbl.index_primary_put("serial")
part=ui_get_text("Find A Serial Number","What is the number?")
vserial=val(alltrim(part))
if part="" then
tbl.index_primary_put("serial")
tbl.fetch_first()
parent.resynch()
end

else
query.description="Snumber"
query.order="invert(date)"
query.options=""
query.filter="vserial=serialno"
indx=tbl.query_create()
rec_count=indx.records_get()
Recs=rec_count
if rec_count=0 then
ui_msg_box("","Serial Number "+upper(ltrim(part))+" not found. Displaying all records.",ui_attention_symbol)
tbl.index_primary_put("serialno")
parent.resynch()
end

else

tbl.index_primary_put("serial")
parent.resynch()
end if
end if
end

[Tom Cone Jr]

RE: validating information

Donnie,

Are you doing the scanning with a table lookup field rule?

-- tom

[Donnie Mayes]

RE: validating information

Not using a lookup, just a comparison.

[Tom Cone Jr]

RE: validating information

Ok. However, if you haven't considered using a table lookup it might help. It's an easy way to assure that the user always enters a value which exists in the lookup table. They just pick the one they want right off the list.

-- tom

[Donnie Mayes]

RE: validating information

Thanks. We'll give that a shot.

[Pat Bremkamp]

RE: validating information

Donnie,
I do the same thing. Try this code in the onDepart event of the field:

dim shared vSn as c
dim pTbl as p
dim pIndx as p
dim recno as n
if alltrim(vSn)=""
end
end if
pTbl=table.current()
pIndx=pTbl.index_primary_put("serialno")
recno=pTbl.fetch_find(vSn)
if recno

[Thomas Henkel]

RE: validating information

Attached is a script we use to force our workers to find clients by specific indexes. We require the workers to input specific data based on thier search selection. We verify that the input data exists, then, if OK, go to the records. It is fairly intricate, and I don't expect that you will use the entire thing, but I hope it helps you to get your desired results.

Tom Henkel