كيف يتم كتابة كود لحفظ القيمة في الجدول

استخدم هذا الكود

Private Sub Ctl23_Click()
	Dim RS As Recordset
	Set RS = CurrentDb.OpenRecordset("a1")
	RS.AddNew
	RS!n = Me.aa
	RS!mn = Me.NoFile
	RS!nname = Me.bb
	RS!amount = Me.a2
	RS!adate = Me.a1
	RS.Update
	MsgBox "تم الحفظ", vbMsgBoxRight, "الفريق العربي للأكسس"
end sub

الله يعطيك العافية ولكن أريد التعديل على الكود التالي حيث أن هذا الكود يضيف القيمة لجميع العملاء والمطلوب إضافة القيمة للعميل المختار من القائمة :

CurrentDb.Execute "UPDATE a1 SET a1.amount = a1.amount +" & Me.a2 & ";"

تفضل اخى

CurrentDb.Execute "UPDATE a1 SET a1.amount = a1.amount + " & Me.a2 & " WHERE (((a1.n)=" & Me.n & "));"

مشكور أستاذ أبو يوسف الله يعطيك العافية