Add/Delete Record Button Error

[austinr]

I am creating a form that includes an add and delete button on the form. I have two other databases that these buttons work with. Using the same VB code (and name of the button) in my current database gives me the following error:

"The express On Click you entered as the event property setting produced the following error: A problem occurred while Microsoft Office Access was communicating with the OLE server or ActiveX Control.

*The express may not result in the name of a macro, the name of a user-defined function, or [Event Procedure].

*There may have been an error evaluating the function, event, or macro."

My VB code is as follows for the two buttons:

Option Compare Database
Private Sub add_Click()
On Error GoTo Err_add_Click


DoCmd.GoToRecord , , acNewRec

Exit_add_Click:
Exit Sub

Err_add_Click:
MsgBox Err.Description
Resume Exit_add_Click

End Sub
Private Sub delete_Click()
On Error GoTo Err_delete_Click


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

Exit_delete_Click:
Exit Sub

Err_delete_Click:
MsgBox Err.Description
Resume Exit_delete_Click

End Sub


Any ideas on what may be the problem and how to rectify this error? All help is appreciated. Thanks in advance.

 

[austinr]

Any Ideas?