Hi,

(I posted this question, but did not receive a response, perhaps I
should rephrase)

I do not want users to get execute the following code simultaneously.
That is, if user 1 is in the middle of this routine and adding records
from rstAddThese to rstToHere, then I do not want to let user 2 to do
the same:

-----------------------------

   Set db = CurrentDb()

   BeginTrans

   Set rstToHere = db.OpenRecordset("SELECT * FOR tbl_Blah...")
   Set rstAddThese = db.OpenRecordset("SELECT TOP 10 ID FROM qry_Blah")

   Do While Not rstAddThese.EOF
      rstToHere.AddNew

      rstToHere!ID = rstAddThese.Fields("ID")
      rstToHere!RA = CurrentUser()
      rstToHere.Update

      rstAddThese.MoveNext
   Loop

   CommitTrans

   rstAddThese.Close
   rstToHere.Close

   db.Close

-----------------------------

Does a VBA mechanism exist to accomplish this? The transaction does seem
to do the trick (unless I tested it incorrectly).

I cannot find one, nor can I find a solution on the newsgroups.

I have thought about creating a locks table in which each user
attempting this operation will write their username before continuing.
Each user will check if another user has written their username into the
table and wait until that record is removed to proceed. Is this a viable
alternative? Has anyone solved a problem such as this in a similar way?

Thank you in advance.

raj