Is it possible to stop Access automatically saving data when you navigate through your records using <next record>, <prev record> buttons on a Bound form? I'm using bound forms to write back to an SQL Server database, but I do not want this to happen automatically. I'm hoping that I do not have to control this using unbound forms! It means a lot more coding!!

You can set the form properties to AllowEdits: NO. Then when you do wish to Edit the form, you will need a button to change the form properties to AllowEdits: Yes.

Regards,

Beth M

 Correct me if I'm wrong, but it's not that JScully doesn't want to allow edits. That is desired. It's that he/she doesn't want Access to save any edits until desired. AllowEdit should be set to YES, but there's no AutoSave OFF or NO option.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Good point Greg. But, if they did wish the recordset to be Read Only unless a certain criteria was met (say permission level) then the AllowEdits No would do the trick.

Beth M

I can't find the autosave property and would like to control bound forms more precisely. I think a user should have the ability to indicate when an update or insert takes place through clicking a button and the autosave property sounds like my answer. Could you tell me how to find it. I assume it is a property of the form but it doesn't seem to be listed in the properties box.

Another way to go might be to ask the user if they want to save changes to the current record or not:

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strResponse As String

    If Me.Dirty Then
        Select Case MsgBox( _
            Prompt:="This record has been changed" & _
                vbCrLf & "Do you want to save?", _
            Buttons:=vbExclamation Or vbYesNo)
        Case vbYes
            'Save changes to current record before advancing
            'to next record.
            DoCmd.RunCommand acCmdSave
        Case vbNo
            'Discard changes to current record before advancing
            'to next record.
            DoCmd.RunCommand acCmdUndo
        End Select
    End If
End Sub

HTH,

Bob

Oops...can loose the Dim strResponse As String declaration. Didn't use it after all.