>I am trying to set a form up so that the user can enter the necessary codes and then click on the delete button to delete a certain record. Needless to say, it is not working! Below is the code that I have in the click method of the delete button.
>
>SELECT table1
>SEEK ALLTRIM(THISFORM.idcode.Value)+ALLTRIM(THISFORM.idcode2.Value)
>IF FOUND()
> SELECT table1
> DELETE
> WAIT WINDOW 'Record has been deleted.'
>
> THISFORM.Refresh
>ELSE
> WAIT WINDOW Record does not exist'
>ENDIF
>SELECT table1
When you run the code do you get a wait window with the message: "Recod does not exist!"?
If so the record truly doesn't exist or the index doesn't match your seek() command.
Einar
Semper ubi sub ubi.