Needs Help

[richardplr]

Hi

Please Help:

1. I hope someone can help me on the code for product code (I mean if I try in the product code, if trace, all data will appear and if untrace, then message prompt say " RECORD NOT FOUND"


Tks

regards,

 

[Fizzio]

Have a look at this doctored image. It shows a new (unbound) text box (txtSearch) that you can add to your form. (I suspect the current Product Code is bound to a table field)

On the After_Update() of this box, try the following code

dim rsSearch as recordset
if len(me.txtSearch) > 0 then
set rsSearch = me.recordsetclone

with rsSearch
.FindFirst "[Product Code] = '" & me.txtSearch & "'"

If .NoMatch then
msgBox "No Record Found"
else
me.bookmark = .bookmark
end if
end with
me.txtSearch = Null

Halfway through typing this, I suspect this is not what you are looking for. Is this code correct or do you want te interrogate another table (linked to the Product Table) to see if there is a trace on the product?
Enlighten me if I am incorrect.