what is the save command code in ms access?

[emmannuelle15]

hello guys im a beginner in programming .. i have a problem in saving option in access... in access when you type information in fields it automatically save in database if you click the next button command even if you are not clicking the save button..
and i want is, the data will not be save if the save button command is not using..

(sorry for the grammar english is not my first language)

hope you understand my point .. thank you :)

[NeoPa]

Hi Emmannuelle.

There are two parts to this question :

1. What code is used to save a record?
2. How do I ensure it only saves when I use the save code, and not simply when the operator moves to another record?

For #1 I have a routine as the code itself is such that it doesn't look like it's going to save the record.

'SaveRec() Saves the current record on frmMe.
Public Sub SaveRec(frmMe As Form)
    'No error handling here.  Should be handled by calling code if required.
    'This code is a little weird but how saving has been implemented in Access.
    frmMe.Dirty = False
End Sub

This is part of a standard module that can be called by the code from any Form.

For #2 we use a variable that is only set to allow saves from the part of our code where we want the saves to succeed. The variable is set as Private in the Form's code module. In the BeforeUpdate() Event handler code you use the Cancel parameter if that variable isn't set, so the save fails.

Private blnAllowSave As Boolean
...
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Not blnAllowSave Then
        Cancel = True
        Call MsgBox(Prompt:="Please use the Save Button to save your changes." _
                  , Buttons:=VbOKOnly Or VbInformation _
                  , Title:=Me.Name)
    End If
End Sub
...
Private Sub cmdSave_Click()
    blnAllowSave = True
    Call SaveRec(frmMe:=Me)
    blnAllowSave = False
End Sub

[emmannuelle15]

thank you sir NeoPa i will try it sir.. ill post here if it works
thanks a lot :D

[emmannuelle15]

sir NeoPa your 2nd code really did work .. but im having a problem in the save code...

Private Sub cmdsave_Click()
  Public Sub SaveRec (frmMe As Form)
frmMe.Dirty = False

End Sub
End Sub

thats where the error is ... i think i write it wrong in the code

[twinnyfo]

emmannuelle15,

First, you should do a direct copy and paste of the code provided by NeoPa. It is clear from your last post that this did not happen.

When you think of a procedure, think of it as a distinct unit of code. Anything between the Private Sub [NameOfProcedure]() and End Sub statements are autonomous and can't have anything inside except what belongs specifically to that procedure.

For your preivous post remove lines 1 and 6 to start. You must also have the second portion of NeoPa's code in your form's VBA module. It should work "as is", using your command button.

Hope this hepps.

[NeoPa]

Indeed. Use Copy/Paste (Recommended) or, if that's not possible because your names are different, at least Copy/Paste first, and then change only those names you need to.

If you can simply copy visually then fine, but you need to be able to do it 100% reliably if you do. Why bother though, when using Copy/Paste is both easier and more reliable?

[emmannuelle15]

sir twinnyfo and sir NeoPa thank you for the advice i really appreciate it.. ill keep it in mind :D

[twinnyfo]

Were we able to resolve your primary issue?

[emmannuelle15]

yes sir :D thank you

[NeoPa]

Good to see. This is a helpful thread as many need help with exactly that.