Yazma Çakışması

Ekteki örnekte artışı tümüne işle tuşuna basınca sıkıntı yok. Fakat başka bir ürünü seçince yazma çakışması çıkıyor. Bu neden olur yardımınızı bekliyorum.
kullanıcı : Ahmet
şifre : 1

Sayın hegu
Komut14' ki  olay yordamı alttaki şekilde değiştirerek dener misiniz?

Private Sub Komut14_Click()

Uygula = MsgBox("Yüzde tümüne uygulansın mı?", vbQuestion + vbYesNo + vbDefaultButton2, "Uyarı")

If Uygula = vbYes Then

DoCmd.GoToRecord , , acNext

DoCmd.GoToRecord , , acPrevious

SQLtxt = "update Tablo2 set aryzd=" & Replace(Me.aryzd, ",", ".")

CurrentDb.Execute SQLtxt

End If

Me.aryzd.Requery

End Sub

sayın userx emeğine sağlık teşekkür ederim.

Ben de teşekkür ettim. Kolay gelsin.