Подскажите чайнику как реализовать блокировку записей, чтобы нельзя было изменять то , что редактирует другой пользователь... на уровне транзакций делать ?
Хочется попроще, поскольку еще не разобралась...
Делаю по книжке "Разарботка корп.приложений в Access 2002" Пол Литвин.

две хранимые процедуры,которые заносят SPID - идентификатор процесса SQL Server и идентификатор редактируемой записи в таблицу отдельную.... потом читают таблицу, если запись изменяется то выводится соответствующее сообщение, что нельзя редактировать запись....

CREATE PROCEDURE dbo.procReserveShipment ( @ShipmentId int, @ok int OUTPUT)
AS
SET NOCOUNT ON
DECLARE @error_save int, @rowcount_save int
INSERT INTO tblShipmentReservation (SPID, ShipmentId)
VALUES (@@SPID, @ShipmentId)
SELECT @error_save=@@ERROR, @rowcount_save=@@ROWCOUNT
IF @error_save<>0
SELECT @ok = 0
ELSE
BEGIN
IF @rowcount_save =1
SELECT @ok = -1
ELSE
SELECT @ok = 0
END
RETURN

вставляет в таблицу резервирования новую строчку. Вызывается из обработчика формы Dirty

Private Sub Form_Dirty(Cancel As Integer)
Dim cmdReserve As New ADODB.Command
Dim prm As ADODB.Parameter
On Error GoTo HandleErr
With cmdReserve
.ActiveConnection = CurrentProject.Connection
.CommandType = adCmdStoredProc
.CommandText = "procReserveShipment"
Set prm = .CreateParameter("@ShipmentId", adInteger, adParamInput)
prm.Value = shipment_numb.OldValue
mfOriginalShipId = shipment_numb.OldValue
.Parameters.Append prm
Set prm = .CreateParameter("@ok", adInteger, adParamOutput)
.Parameters.Append prm
.Execute options:=adExecuteNoRecords
If .Parameters("@ok") <> -1 Then
Err.Raise 1
End If

End With
ExitHere:
Set cmdReserve = Nothing
Set prm = Nothing
Exit Sub

HandleErr:
MsgBox ("This record is being edited by another user, Please try again later")
Cancel = True
Resume ExitHere

End Sub

вторая процедура освобождает запись....

CREATE PROCEDURE dbo.procUnreserveShipment (@shipId int)
AS
SET NOCOUNT ON
DELETE tblShipmentReservation
WHERE SPID=@@SPID AND ShipmentId=@shipId
RETURN


вызывается из AfterUpdate
Private Sub Form_AfterUpdate()
Dim cmdUnreserve As New ADODB.Command
Dim prm As ADODB.Parameter
On Error GoTo HandleErr
If mfInserting Then
GoTo ExitHere
End If
With cmdUnreserve
.ActiveConnection = CurrentProject.Connection
.CommandType = adCmdStoredProc
.CommandText = "procUnreserveShipment"
Set prm = .CreateParameter("@shipId", adInteger, adParamInput)
prm.Value = mfOriginalShipId
.Parameters.Append prm
.Execute options:=adExecuteNoRecords
End With
ExitHere:
Exit Sub
HandleErr:
MsgBox ("Unexpected error saving record ")
Resume ExitHere

End Sub

кроме того....

Private Sub Form_AfterInsert()
mfInserting = True
End Sub

Private Sub Form_BeforeInsert(Cancel As Integer)
mfInserting = True
End Sub

чтобы не резервировать запись которая еще не вставлена в таблицу...

В теории это работает... пробовала... только вот иной раз, когда все экземпляры приложений закроешь, то есть уже ничто не может редактировать записи...откроешь один из них , чтобы посмотреть что осталось в этой таблице резервирования - а там есть некоторые записи... не удаляет этот метод все за собой...А как результат, получается что некоторые записи нельзя редактировать , пока руками не потрешь таблицу резервирования...

Никак не могу понять в чем дело...

AfterUpdate()
AfterDelConfirm()
AfterInsert()
BeforeInsert()
Dirty()
Delete()

все эти процедуры описаны... согласно с примерами из книжки...