error 424 - oject required

[geraldk]

Getting error in this code when I am deleting a record in a table:

'getting temp values
Dim Matrixtempvalue As Double

If Me.txtMatrixID = 1 Then
   Martixtempvalue = Me.txtMatrixID + 1
Else
   Matrixtempvalue = Me.txtMatrixID - 1
End If

MsgBox "Are you sure you like to delete this record?", vbYesNo, "Deleting Record"

If vbYes Then
   Call Me.editform 'unlocks text boxes
   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 'it errors out here.
   DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
   MsgBox "Record Deleted", vbInformation
   Call Me.noneditform 'locks text boxes

   Dim Martrs As Object
   Set Martrs = Me.Recordset.Clone
   Martrs.FindFirst "[MatrixID] = " & str(Matrixtempvalue)
   Me.Bookmark = Matrixrs.Bookmark
Else
   MsgBox "Nothing Deleted"
End If

Me.Form.RecordSource = "SELECT tblMatrix.MatrixID, tblMatrix.EmpID, tblMatrix.TrainMatrixID, tblMatrix.LegendID, tblMatrix.MatrixDate " _
& " FROM tblMatrix " _
& " WHERE (((tblMatrix.EmpID)=[forms]![frmEmployee]![txtEMPID]));"
Me.Form.Requery
Me.lstMatrixTrain.Requery

DoCmd.SetWarnings True

[June7]

Review this thread http://www.pcreview.co.uk/forums/acm...-t1644622.html

[geraldk]

I have this same code in another form to delete a record and it works. I compare to what I have in the other form and they are the same.

[June7]

Don't know, never use DoMenuItem, I use RunCommand.

Try it, if it fixes issue, regardless of the other form's success, keep it, if not then reveals something worse is wrong with code. Seems like VBA doesn't recognize a record is selected and maybe for some reason it isn't. Step debug, follow code as it executes, maybe you can see what goes wrong.