VBA Save Record Stopped Working 2

[dmon000]

Any ideas why the save command in this procedure would now return the error message "The command or action 'SaveRecord' isn't available now." It used to work fine.

Thanks!!


Private Sub SAVE_NEW_PT_RECORD_Click()
On Error GoTo Save_New_Patient_Record_Err
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.SetWarnings False
DoCmd.Close acForm, "frm ADD NEW PATIENT"
DoCmd.Close acForm, "frm ROSTER DIET ORDERS"
DoCmd.OpenQuery "qry Append from Patient Temp", acViewNormal, acEdit
DoCmd.OpenQuery "qry Delete Patient Temp Record", acViewNormal, acEdit
DoCmd.OpenQuery "qryDeleteMPINumberRecord", acViewNormal, acEdit
DoCmd.OpenForm "frm ROSTER DIET ORDERS", acNormal, "", "", , acNormal

Save_New_Patient_Record_Exit:
Exit Sub

Save_New_Patient_Record_Err:
MsgBox Error$
Resume Save_New_Patient_Record_Exit

End Sub

 

[TheAceMan1]

How are ya dmon000 . . .

Try this:

[blue]   docmd.RunCommand acCmdSaveRecord[/blue]

See Ya! . . . . . .

Be sure to see FAQ219-2884:

 

[PHV]

I'd replace this:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
with this:
Me.Dirty = False

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[RuralGuy]

I use: If Me.Dirty Then Me.Dirty = False
but...receiving the "not available right not" error could mean there is nothing dirty to save.

HTH RuralGuy (RG for short) acXP winXP Pro
Please respond to this forum so all may benefit