Forms :: Closing All Forms And Saving Records First

I have had some issues caused by users exiting the database entirely when they realise that they have entered something incorrectly; this in turn has caused problems re-opening the half finished record (the last step of the record creation is to allocate it a unique reference number, which is then used to re-open the record for editing on a point and click form) - now, this is entirely my fault for expecting users to clear up behind them or to exit properly.

So, I am making some changes - when the dashboard form opens it removes the database window close button. I have a separate close button which has the following code:

Code:
Private Sub cmdGoodbye_Click()
Do While Forms.Count > 0
DoCmd.CLOSE acForm, Forms(0).Name, acSaveNo
Loop
DoCmd.Quit
End Sub

However, I would like to add a line to automatically save any records before closing each form - is this possible?