Command or action Save Record isn't available now? 2

[ApparentlyInept]

Runtime Error 2046
The Command or action Save Record isn't available now.

Anybody know why this error might be coming up? I have it set as a OnClose event.

When I go to debug it highlights the entire DoCmd action.

Private Sub Form_Close()

[highlight]DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70[/highlight]

End Sub

 

[ZmrAbdulla]

Change it to this

Private Sub Form_Close()
If Me.Dirty = True Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
End Sub

Also have a Search on these forums

Zameer Abdulla
_{Jack of Visual Basic Programming, Master in Dining & Sleeping}
Visit Me

 

[ApparentlyInept]

Thx Zameer