Hello:

I'm trying to figure out how to make the dammed form work properly, in the old days of FPW 2.6 you could have a valid routine like the following:

IF SEEK(myvar)
MESSAGEBOX("The ID number already exists",48,"Sorry but..")
RETURN .F.
ENDIF

Now in VFP the lines are executed and return values per line so this is not possible, and besides, if your table's index is set as Primary, you get an error from the first line:

SEEK(this.value) && Your valid event generates an Error, and there is no way as far as I've seen to keep the cursor in the same field, not even with an error routine that calls the objet's SetFocus event to force this.

MESSAGEBOX("The ID number already exists",48,"Sorry but..")
Myform.myfield.SetFocus

How can I get this to work, the goal is to seek the user's input in the database, from the begining in order to force him to change it if already exists, but still have the index as Primary

Thank you for your help.