Merhaba,
Kaydet butonunun tıklandığında olayına aşağıdaki kodu yazarak deneyebilir misiniz?

Dim rs As DAO.Recordset



DoCmd.RunCommand acCmdSaveRecord



If IsNull(Me.irsaliyeno) Or Me.irsaliyeno = "" Then



    MsgBox ("İrsaliye No Boş")

    Exit Sub



End If



Set rs = CurrentDb.OpenRecordset("Select * from ETIKET_OKUT ")



rs.MoveFirst

  

Do Until rs.EOF = True

    DoCmd.SetWarnings False

    DoCmd.RunSQL "UPDATE ETIKET_GIRIS SET IRS_NO = " & Me.irsaliyeno & ", IRS_TARIH = '" & Me.irtarih & "' WHERE (((BARKOD1)='" & rs!barkod & "'));"

    DoCmd.SetWarnings True

      

    rs.MoveNext

    

Loop



MsgBox ("işlem tamam")

Eklediğiniz örnek ve veriye göre 1 alanı güncellemesi lazım.