Delete button not working if there is code in onCurrent

[accessnewb]

I have a form with some text and combo boxes and onCurrent event of the form, I have set actions for textboxes based on values in combobox. The form gets data from a table. For example, if in the comboBox, the value is "Yes", then a textbox will be enabled onCurrent event, if the value is "No", then the textbox is disabled onCurrent event.

Now I also have a delete button on a form(The delete button is a macro. I used the default access macro). I know this sounds strange, but if the onCurrent code is not commented out, then the delete button acts weird. The button usually asks a confirmation msg asking if I really want to delete one row. But this confirmation msg does not pop up if the onCurrent code is present!!!!

Any ideas why onCurrent and the delete button needs to have a connection?

[ajetrumpet]

are you deleting the current record? try writing the one-liner in code to delete it, then requery the form with another line of code. does it still happen?

[accessnewb]

I manually coded it, but I don't like how it looks. I mean if I use the macro, then the current record gets deleted and I am automatically taken to the next record. If I code with a one-liner, the current record gets deleted, but I am not taken to the next record. I just get #deleted in all my fields.

Umm, sorry to trouble, but are there any sample codes?

[ajetrumpet]

I'm surprised that this code is not found on the net more.

Dim I As Long
I = Me.CurrentRecord
docmd.runcommand(accmddeleterecord)
Me.Requery
DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, I

#DELETED will always be in the form unless you requery it. But requerying it always takes you back to rec #1. Hence, the above code is necessary.

[accessnewb]

Oh this code works! Thanks!