Hi Alex,
Thanks for the comments,
The reason why I issue a "go top" is base on my previous codes, I cannot seek records when I issue set order to tag "TAGName" (not in the datasession) without issueing go top.
Please do correct any unnecessary commands on my code below..
This is coded under valid procedure of my form...
xcust_id = alltrim(this.value)
If thisform.txtcust_id.value != " " .and. lastkey() = 13
set exact on
Select("ffcust")
Set order to tag custid
*Go Top
Seek(xcust_id)
If found()
lget = .f.
Thisform.txtcompany.value = Custname
thisform.txtcontact.value = contname
*thisform.txtpostcode.value = postcode
thisform.txtaddress.value = address
thisform.txtcity.value = city
thisform.txtcountry.value = country
thisform.txtoff_tel.value = tel
thisform.txtext.value = " "
thisform.txtmobile.value = ""
thisform.txtemail.value = email
xcust_id = thisform.txtcust_id.value
* some code block
*
else
Messagebox("Customer Id not Found!",0+64,"Record Search",1500)
IF messagebox("Do you want to add now?",4+32+512,"New Customer")=6
do form new-ffscustomers with xCustid
ELSE
lAppend = .F.
Endif
Endif
Endif
If empty(xcust_id) .and. lastkey() = 13
keyboard Chr(32)
lseek = .t.
Do form forms\sele-fcust
Endif
Thanks.
Jojo R. dela Cuesta
Dalplus Technologies
http://www.dalplus.com