By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,688 Members | 1,893 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,688 IT Pros & Developers. It's quick & easy.

Need to have a save dialog for any data changes

P: n/a
I have a client who wants to have Access ask to save changes anytime
data is changed or added into the database. I'm not really an Access
guy, I actually run their servers, but have been dropped into the roll
because I have some understanding of it. Any help would be greatly
appreciated, they have me on a serious time line and I've been pulling
my hair out all day over this. Thanks in advance.
-Walter

Nov 13 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
wa*****@gmail.com wrote:
I have a client who wants to have Access ask to save changes anytime
data is changed or added into the database. I'm not really an Access
guy, I actually run their servers, but have been dropped into the roll
because I have some understanding of it. Any help would be greatly
appreciated, they have me on a serious time line and I've been pulling
my hair out all day over this. Thanks in advance.
-Walter


-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Walter,
My condolences. You should tell the cheapskates to hire an Access
developer. I knew of another network admin who agreed to work on an
Access project - blew the project & then quit in a huff.

Anyway... your problem can be solved in a number of ways.

Usually, when a user finishes entering data & closes the form or moves
to another record, the current record is saved (or attempted). This
attempt runs the Form's BeforeUpdate event. That is an ideal place to
have a "Save?" dialog. Here's how:

Open the form in Design view.
Open the form's Properties dialog box (double-click on the form).
On the main menu bar click: View > Code.
There are 2 "drop-down" boxes in the top of the VBA module, click on the
left-hand one and select Form.
Click on the right-hand drop-down box & select BeforeUpdate, the cursor
will move to the event procedure.
Enter this code inside the Sub:

Const MSG_SAVE = "Save this Record?"

Dim intAnswer As Integer

intAnswer = MsgBox(MSG_SAVE, vbQuestion+vbYesNoCancel, "Save Record")

Select Case intAnswer
Case vbNo: Me.Undo
Case vbCancel: Cancel = True
' Case Else: Do nothing, which = Yes, save the record
End Select

--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQjHmyoechKqOuFEgEQK8XQCfWZ9R6IjMLkdUhHogi8Z8SG iJa7AAoJgL
z3jEC+ouJwxMLXwlx0/pRjyi
=Gnhm
-----END PGP SIGNATURE-----
Nov 13 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.