Access VBA for Saving data entered in Form

Question

When a user closes the form, Access automatically saves the data entered in database. Thus there is no need to having a Save Button.

But, since most of the users are so habitual in pressing Save button, they will still insist that there should be a Save Button.

What code should be written for the Save button for saving all the data entered in the form.

Also care has to be taken for checking if the data has changed or not. Sometimes users will open the form to view data, then even though though they have not made any changes, they will press Save Button.

Would this code work for you? Private Sub cmdSave_Click() : Msgbox "Data Saved", vbOkOnly : End Sub :) — Darren Bartrup-Cook
– Darren Bartrup-Cook, Commented Mar 21, 2016 at 10:34

Adarsh Madrecha · Accepted Answer · 2016-03-21 10:16:08Z

1

The code for Click event of Save Button

Private Sub cmdSave_Click()
    If Me.Dirty Then    'to check if any data has changed.
        DoCmd.RunCommand acCmdSaveRecord
    End If
End Sub

answered Mar 21, 2016 at 10:16

Adarsh Madrecha

8,20514 gold badges78 silver badges129 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Gustav · Accepted Answer · 2016-03-21 10:23:08Z

1

You can also use Dirty only:

Private Sub cmdSave_Click()
    If Me.Dirty = True Then
        Me.Dirty = False
    End If
End Sub

answered Mar 21, 2016 at 10:23

Gustav

56.5k7 gold badges33 silver badges65 bronze badges

Comments

SunRay · Accepted Answer · 2016-03-21 15:11:06Z

0

I am thinking this is what you want based on the same comments that i got from my colleagues... I always begin with asking a question whether they want to save or not, sometimes users are just playful and mess around with records.

    If me.dirty = true then
            If MsgBox("Are you sure you want to save as " & TempVars!gbl_username    & "? 
                       After saving you will be moved to a new record", _
                       vbYesNo + vbQuestion, "Save Changes") = vbNo Then
                'If answer is no
                    'Do nothing
            Else
               DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70                    
            End If
    End If

answered Mar 21, 2016 at 15:11

SunRay

20014 bronze badges

1 Comment

HansUp Over a year ago

Microsoft deprecated DoCmd.DoMenuItem twenty years ago. They recommend RunCommand instead.

Collectives™ on Stack Overflow

Access VBA for Saving data entered in Form

3 Answers 3

Comments

Comments

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related