Private Sub имя_LostFocus()
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.AccessConnection
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("@s", adInteger, adParamInput, , Me!id)
cmd.Parameters.Append prm
cmd.CommandText = "P02_23"
cmd.Execute , , adExecuteNoRecords
Set cmd = Nothing
Set prm = Nothing
Forms![Форма3]![клиент] = Forms![Форма3]![клиент] +  1 
Me.ResyncCommand = "P02_1 " & Me!id
Me.Dirty = False
 'Me.Recordset.Resync adAffectCurrent 

End Sub

Private Sub имя_LostFocus()
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.AccessConnection
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("@s", adInteger, adParamInput, , Me!id)
cmd.Parameters.Append prm
cmd.CommandText = "P02_23"
cmd.Execute , , adExecuteNoRecords
Set cmd = Nothing
Set prm = Nothing
 'Forms![Форма3]![клиент] = Forms![Форма3]![клиент] + 1 
Me.ResyncCommand = "P02_1 " & Me!id
 'Me.Dirty = False 
Me.Recordset.Resync adAffectCurrent  '- здеся выдавал ошипку 
 к сожалению уже не могу воспроизвесть...

End Sub