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