Record Will Not Save

Can't figure it out. Here is the code:


Private Sub Button_OpenQuest_Click()
On Error GoTo Err_Button_OpenQuest_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Ques_Physician"

stLinkCriteria = "[sbjID]=" & "'" & Me![sbjID] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Me.Visible = False

Exit_Button_OpenQuest_Click:
Exit Sub

Err_Button_OpenQuest_Click:
MsgBox Err.Description
Resume Exit_Button_OpenQuest_Click

End Sub

__________________________________________________ __

I get the message "The command or action 'SaveRecord' isn't available now"