Delete button

[ykhamitkar]

Hi there,

I have ms access continuos form.

I tried to put a delete which would delete the current record. but it doesnt work
It doesnt give any error message either.

Following is the code I used

On Error GoTo Err_Command48_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command48_Click:
Exit Sub

Err_Command48_Click:
MsgBox Err.Description
Resume Exit_Command48_Click

Please help,

Yogesh

[BradHodge]

Is this a subform that is set to continuous?

I ran your code from a continuous form (no subforms) without any problem. If however you run it on a parent form that has child subforms, you don't get anything. In which case you could add Me.YourSubFormName.SetFocus before telling it to delete the record.

Brad.

[hyperpau]

Is this a subform that is set to continuous?

I ran your code from a continuous form (no subforms) without any problem. If however you run it on a parent form that has child subforms, you don't get anything. In which case you could add Me.YourSubFormName.SetFocus before telling it to delete the record.

Brad.

I agree. In fact, on one of my db projects, I needed to program
a Delete button, custom error messages, a BeforeDelConfirm and an AfterDelConfitm just to have it do what I want it to do.