thanks in advance for your help.
I have a simple bar code scan that is scanning an inventory item.
I select the number fine, I move to the record, but I am using a filter
which takes a ton of time.
If I turn off the filter I lose can't move to the record.
this is an example of my code.
What do you suggest?
dim scan_data, Bytes,RowNum
Bytes = Barcode.ScanAvail()
if Bytes > 0 then
if BarCode.TermRecd() then
Tone(5500,75)
scan_data = BarCode.GetScan(0)
Controls("Edit1") = scan_data
Dim Key1, Cntr, Cntrx, Found
Cntr = tables("cartmgnt").count
Cntrx = 1
Found = 0
Tables("cartmgnt").MoveFirst
while Cntr >= Cntrx
Cntrx = Cntrx + 1
Key1 = tables("cartmgnt").fields("INVITEMID")
if Key1 = scan_data then
Found = -1
Button4.ExecAction
Exit While
endif
tables("cartmgnt").MoveNext
wend
if Found = 0 then
MsgBox (scan_data & " ....Item Not Found.")
endif
else
Tone(220,500)
endif
endif
Thanks,
Chuck
--
For information on using the Palm Developer Forums, or to unsubscribe, please see
http://www.palmos.com/dev/tech/support/forums/
