Solved

How do I Resolve the "Data has Been Changed" Error

Posted on 2013-05-30
6
359 Views
Last Modified: 2013-06-03
I have created a form (see attached) where the user can input data from a spreadsheet into the appropriate table based on the option button selected.

The problem I am facing is that when the user selects any of the option buttons and does the import for the first time, it works fine. However, when they try to do it again with a different button, the error, "The Data Has Been Changed, Another User Edited This Record...".

It still works, but I do not want this message to keep popping up and am not sure how to resolve it.
Form-Error.jpg
0
Comment
Question by:geeta_m9
  • 3
  • 2
6 Comments
 
LVL 84

Accepted Solution

by:
Scott McDaniel (Microsoft Access MVP - EE MVE ) earned 250 total points
ID: 39208539
Without seeing your code it's hard to provide suggestions, but in general it's a good idea to do this before those types of operation:

If Me.Dirty Then Me.Dirty = False

This forces Access to save any changes, which can sometimes avoid that error.

You'll also get this error if you're trying to manipulate data in the records that are on the form, if those are dirty. In general you should either (a) perform all data manipulations in code or (b) perform all data manipulations through the form.

But again, without seeing the code it's hard to advise ....
0
 
LVL 57

Assisted Solution

by:Jim Dettman (Microsoft MVP/ EE MVE)
Jim Dettman (Microsoft MVP/ EE MVE) earned 250 total points
ID: 39208545
You use the forms OnError event to check the errors and respond.

Two variables are passed in by Access; ErrNum and response.

Errnum is the error that the form encountered.

You set Response to tell Access what to do, which is either act normally (pop up a error message) or just continue (you will put up your own message).

Jim.
0
 

Author Comment

by:geeta_m9
ID: 39208554
Where would I put the code?
0
Ransomware: The New Cyber Threat & How to Stop It

This infographic explains ransomware, type of malware that blocks access to your files or your systems and holds them hostage until a ransom is paid. It also examines the different types of ransomware and explains what you can do to thwart this sinister online threat.  

 

Author Comment

by:geeta_m9
ID: 39208564
I am attaching two files. One is the form that has the option buttons and the other is the code in the module that it calls.
Form--Code.txt
Module-Code.txt
0
 
LVL 57
ID: 39208682
Hard to say.  Open the form and in the OnError event, place a STOP.

Then give it a go.   If you hit the stop, then the error is occuring in the form.

 If not, then it's in either one of your GetData... procedures or GetDataFromSpreadsheet().   Without any error handling (which you should add), there's no way to tell.

Jim.
0
 

Author Comment

by:geeta_m9
ID: 39216486
With your help, I managed to stop the error from popping up. On the "On Error" event of the form, I inserted the following code:

If DataErr = 7878 Then
        Me.Dirty = False
        Response = acDataErrContinue
End If
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

My experience with Windows 10 over a one year period and suggestions for smooth operation
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.

765 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question