problems with my delete button

[Octagon6]

I'm still a little confused on my delete button. Instead of it deleting the current record, it deletes all the records in the table. Can you review my code and tell me what I need to change? thanks in advance.

lcchoice = ""
lcchoice = MESSAGEBOX("Are you sure you want to delete this record?",4,"Warning&quot

IF lcchoice = 6 then
SET DELETED ON
USE oms_requests
DELETE FOR request_no = ALLTRIM(thisform.txtrequest_num.Value)
PACK
MESSAGEBOX("Record Deleted",0,"FYI&quot
GO bottom
ELSE
ENDIF

 

[craigsboyd]

Well based on your code I am assuming that Request_no is a character field and you may try changing:

request_no = ALLTRIM(thisform.txtrequest_num.Value)

TO

request_no == ALLTRIM(thisform.txtrequest_num.Value)



Slighthaze = NULL

 

[Mike Gagnon]

Octagon6

Why use a FOR condition? You are already on the record to be deleted.

SET DELETED ON
lcchoice = ""
lcchoice = MESSAGEBOX("Are you sure you want to delete this record?",4,"Warning")
IF lcchoice = 6 
    USE oms_requests
    DELETE 
    PACK ** not advisable in a network situation
    LOCATE
ENDIF

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[DSummZZZ]

DELETE FOR will delete any record matching the criteria, which in this case could be all of them since an empty txtrequest_num could result in a non-exact match of all records.
You should probably find the record you want deleted first, then delete it.

LOCATE FOR request_no == ALLTRIM(thisform.txtrequest_num.Value)

IF FOUND()
   DELETE
ENDIF

Dave S.