Instead of a message, try turning your mouse cursor to an hourglass and back. The code is as follows:
-
DoCmd.Hourglass True
-
DoCmd.Echo False
-
'Your Code here >>>>>>DoCmd.OpenQuery, etc.
-
DoCmd.Echo True
-
DoCmd.Hourglass False
Regarding preventing duplicate updates, I suggest the following:
1. Add a new field to your table>>>DateLastModified (datatype= dateTime)
2. Add this field to your update query.
3. Place the following constraint in the criteria row of new field ..... <> Date()
4. Test it out. It should update only those records with a date different than today.