better syntax in A97 statement

[MLH]

I have an A97 application with a form (frmEditOwners).

Here's a code snippet for deleting current record...

Private Sub DelOwnerRecBtn_Click()
On Error GoTo Err_btnCloseOwnerEditForm_Click
Dim ThisForm As String, MyReply As Byte
ThisForm = Me.Name

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

Exit_btnCloseOwnerEditForm_Click:
Exit Sub

Err_btnCloseOwnerEditForm_Click:
Dim r As String, k As String, Message3 As String
r = "The following unexpected error occurred in Sub
btnCloseOwnerEditForm_Click, line #" & Erl & ", CBF on " & ThisForm &
"."
k = CRLF & CRLF & str$(Err) & ": " & Quote & Error$ & Quote
Message3 = r & k
MsgBox Message3, vbExclamation, "Unexpected Error - " & MyApp$ &
", rev. " & MY_VERSION$
Resume Exit_btnCloseOwnerEditForm_Click

End Sub

There's some other syntax I should be using in place of the DoMenuItem
command, right? I believe the syntax show to be old Access 2.0 syntax.
What's the preferred syntax for the desired action?

[Nick Coe \(UK\)]

RunCommand is what you need to look up.

--
Nick Coe (UK)
http://www.alphacos.co.uk/
AccHelp is now free/donateware

In news:jc********************************@4ax.com,
MLH typed:

I have an A97 application with a form (frmEditOwners).

Here's a code snippet for deleting current record...

Private Sub DelOwnerRecBtn_Click()
On Error GoTo Err_btnCloseOwnerEditForm_Click
Dim ThisForm As String, MyReply As Byte
ThisForm = Me.Name

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

Exit_btnCloseOwnerEditForm_Click:
Exit Sub

Err_btnCloseOwnerEditForm_Click:
Dim r As String, k As String, Message3 As String
r = "The following unexpected error occurred in Sub
btnCloseOwnerEditForm_Click, line #" & Erl & ", CBF on " &
ThisForm & "."
k = CRLF & CRLF & str$(Err) & ": " & Quote & Error$ &
Quote
Message3 = r & k
MsgBox Message3, vbExclamation, "Unexpected Error - " &
MyApp$ & ", rev. " & MY_VERSION$
Resume Exit_btnCloseOwnerEditForm_Click

End Sub

There's some other syntax I should be using in place of
the
DoMenuItem command, right? I believe the syntax show to be
old
Access 2.0 syntax. What's the preferred syntax for the
desired
action?