Delete Record - No Alpha Dialog

[[email protected]]

Can anyone out here tell me a sure fire way to delete a record (using xBasic at the form level) and not have the Alpha dialog appear asking "if I'm really sure?" I have an application where I simply cannot allow the user to respond to the Alpha dialog, because the user could select NO.

I have tried various people's suggestions on this but nothing has worked so far. For example...

Dim tbl as p
tbl=table.get("yourtablename")
tbl.change_begin(.t.)
tbl.delete()
tbl.change_end(.t.)

but this only produces an error. Perhaps something else is missing.

Could anyone make a suggestion here?

Thanks,
Tom

[Tom Cone Jr]

Re: Delete Record - No Alpha Dialog

Tom, your code should work just fine if the table is open already in the current session, and the table is not already in change or enter mode.

Suggest you use debug() to pinpoint the error. Suggest you reveal the exact response you get when Alpha reports the error.

[[email protected]]

Re: Delete Record - No Alpha Dialog

Tom,

I think the form is already in change mode...in which case the command should be ignored, should it not?

I get a

tbl.change_end(.t.)
change must begin first

error

Tom

[Tom Cone Jr]

Re: Delete Record - No Alpha Dialog

Nope. Would throw an error. Can be seen if you use debug and run the script in context.

You can't tell Alpha to put the table in change mode when its already in change mode.

Ditto for enter mode.

Make sense?

The sequence you may need, in pseudo code, would be something like this:

a) get the mode of the form
- if it's ENTER then cancel the pending new record, no delete needed
- if its CHANGE then you need to decide what the user wants to do. Do they want to cancel the pending edits, or do they want to delete the record? If its the latter then your script could commit the record, put the form in VIEW mode, and then delete it.
- if the mode is VIEW then your script should delete the current record just fine

[Tom Cone Jr]

Re: Delete Record - No Alpha Dialog

From the helps, discussing TBL.CHANGE_BEGIN

Note : You cannot use the <TBL>.CHANGE_BEGIN() method or <TBL>.ENTER_BEGIN() methods on a table that is already in either Change or Enter mode. To determine the current mode, use the <TBL>.MODE_GET() method.

[[email protected]]

Re: Delete Record - No Alpha Dialog

Tom,

I'm definitely in ADD mode.

The thing is, depending on what I answer here (Save the record or Don't Save the record) will update other records or not. I give the user a dialog to decide whether he/she wants to save the record or not, and then the script executes. What I can't have is the Alpha script coming back and (potentially) contradicting my dialog.

Tom

[Tom Cone Jr]

Re: Delete Record - No Alpha Dialog

Ok, then what you really meant to ask at the top was not how to delete a record, but how to cancel the entry of a new record if the user, having begun a new record, decides not to save it. Right ?

ps. There is no "ADD" mode in Alpha Five.

[Tom Cone Jr]

Re: Delete Record - No Alpha Dialog

If my understanding is correct you can cancel the pending new record by

- getting a pointer to the table
- verifying mode is ENTER
- then using TBL.ENTER_END() with an argument of FALSE.

check the help file discussion of

Tbl.Enter_end method

for explanation and example code

[[email protected]]

Re: Delete Record - No Alpha Dialog

Sorry for the delay Tom.

Yes, what you described in your next to last post was how I should have written my opening question.

I am in enter mode and I would simply like to give the user the option of not saving the record thus far.

I will try your suggestion now.

Thank you.
Tom

[[email protected]]

Re: Delete Record - No Alpha Dialog

Tom,

Your suggestion worked beautifully. Since I know that I'm in enter mode, I just substituted "enter" for "change" and it worked great. See below...

else if response = 7
dim tbl as p
tbl=table.get("time")
tbl.enter_begin(.T.)
tbl.delete()
tbl.enter_end(.T.)

parentform.close()

Thank you very much for your help!
Tom