الرجاء مساعدتى فى حل مشكله حفظ البيانات

[alaa1122]

السلام عليكم عندى مشكله عند عملية حفظ البيانات فى شيت DATABASE .

واريد معادلة طرح من 

عندى مشكله فى يوزر فورم 2

عند عمليه  بحث عن اى رقم سيريل  وتعديل البيانات وحفظ البيانات  مره اخرى يظهر خطا فى هذا الكود

For i = 2 To Application.WorksheetFunction.CountA(Database.Range("A:B"))

عمليه الطرح داخل اليوزر فورم

Amount paid- Balance

Reservation HOTEL(2020).xlsm

[Ali Mohamed Ali]

وعليكم السلام-تفضل تم تعديل الفورم وضبطه

Reservation HOTEL(2021).xlsm

[alaa111]

السلام عليكم  أ /Ali Mohamed Ali

شكرا لحضرتك

وربنا يجعلو فى ميزان حسناتك