Есть форма . В этой форме в одном из полей , а именно в поле txt1 выбираю значение из списка, источник которых поле txt2; и после события “после обновления” должно обновиться поле txt3 . Проблема в том, что появляется сообщение “конфликт записи”. Вполне допускаю, что допустила где-то лишнее событие, которое запускается одновременно с имеющимся. Если кому не лень, подскажите вероятные ошибки.
Акц2002 mdb

может быть я здесь что-то не дописала...

Private Sub txtSistBlParent_AfterUpdate()

On Error GoTo ErrHANDLEr

Dim s As String
Dim st
Dim strNomARM
Dim strStik
Dim strPr2
Dim srtPar2 As String
Dim strNomVn As String
Dim strModelARMID As String

strNomARM = Form_frmQryARM.nARM
' MsgBox ("3text:" & strNomARM & ":")
strStik = Form_Frmgaga_tblModelARM1Sub.txtStiker
' MsgBox ("4text:" & strStik & ":")
strPr2 = Form_Frmgaga_tblModelARM1Sub.txtprim2
' MsgBox ("5text:" & strPr2 & ":")

Form_Frmgaga_tblModelARM1Sub.txtP.SetFocus
srtPar2 = CStr(Form_Frmgaga_tblModelARM1Sub.txtP.Text)
' MsgBox ("6text:" & srtPar2 & ":")

st = strNomARM & "-" & strStik & strPr2 & IIf(IsNull(srtPar2), "", "-" & srtPar2)
' MsgBox ("7text:" & st & ":")

strModelARMID = CStr(Form_Frmgaga_tblModelARM1Sub.ModelARMID.Value)
' MsgBox ("8text:" & strModelARMID & ":")
s = "UPDATE gaga_tblModelARM SET nVnutr='" & st & "' WHERE ModelARMID=" & strModelARMID
MsgBox ("8text:" & s & ":")
'CurrentProject.Connection.Execute (s)
DoCmd.RunSQL s
Form_Frmgaga_tblModelARM1Sub.Requery

ErrHANDLEr:

End Sub