Delete Record Button and Getting a "compile error"

[JHNielson]

This is a very simple question....

I have a form that looks up Records for an unbound drop-down list.
It has worked just fine up until last night.

Now the button on the form to delete a record doesn't work. i get a
"compile error: method or data member not found".

The code for the drop-down is this:

Private Sub REC_ID_COMBO_AfterUpdate()
    Dim rs As DAO.Recordset
 
    If Not IsNull(Me!REC_ID_Combo) Then
        'Save before move.
        If Me.Dirty Then
            Me.Dirty = False
        End If
        'Search in the clone set.
        Set rs = Me.RecordsetClone
        rs.FindFirst "[REC_ID] = """ & Me!REC_ID_Combo & """"
        If rs.NoMatch Then
            MsgBox "Not found: filtered?"
        Else
            'Display the found record in the form.
            Me.Bookmark = rs.Bookmark
        End If
        Set rs = Nothing
    End If
End Sub

The code to delete a record is:

Private Sub Command389_Click()
On Error GoTo Err_Command389_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_Command389_Click:
    Exit Sub
 
Err_Command389_Click:
    MsgBox ERR.Description
    Resume Exit_Command389_Click
 
End Sub

One more bit of information... when I point the record source to another table (that is mostly identical) the button works fine. But when I point it back to my ERR_REC table, I get the error again.


Can anyone please help. I have been working on this for 6 hours and have found no answers.

[Rabbit]

Does it tell you which line is causing the problem?

[JHNielson]

First, I apologize about the double post. I didn't realize I had double posted. My browser hung in submitting the post, so I resent it. It must have got through the first time.


Second, when I run the command, the yellow error points to the first line the: Private Sub Command389_Click()

The cursors highlights the msgbox error.description.


Thanks for the help

[Rabbit]

Well, the error means that it can't find the description property of the object err. I know it exists so perhaps you're missing a reference, did you check those?

[JHNielson]

Well, the error means that it can't find the description property of the object err. I know it exists so perhaps you're missing a reference, did you check those?

You're right I found the missing reference. I knew it was something simple, but after staring at it so long I was running out of ideas.

Thanks for your help. You're a life saver

[Rabbit]

You're right I found the missing reference. I knew it was something simple, but after staring at it so long I was running out of ideas.

Thanks for your help. You're a life saver

Not a problem, good luck.

[Denburt]

If I might may I make a suggestion that could save you a headache in the future?

Instead of using:

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

Try using:

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDelete

So much more reliable, Domenuitem relies on Microsoft never changing menus....
Sketchy at best.