كيفية الحصول على معلومات في Subform

[wkalo]

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله و بركاته

اريد ان اضع زر يقوم بعملية المراجعة الحسابية لكل سطر في Subform حسب معطيات جديدة موجوده في الForm هل من مساعدة؟؟؟؟؟

مثلا عندي عميل كنت قد انشات له فاتوره في وقت سابق و لكن بعد حين طلب تعديل شرط من شروط الفاتورة و بذلك يجب تعديل طريقة حساب الفاتورة حسب الشرط الجديد

عند تغيير Field في Form يتم تفعيل كود باعادة الحساب للفاتورة الظاهرة على الشاشة حسب الشرط الجديد.

هل من مساعد ؟؟؟؟؟؟؟؟

جزاكم الله كل خير

[rudwan]

أنشى اجراء و استخدمه في النموذج الرئيسي باستخدام مجموعة السجلات

حيث بواسطة هذا الاجراء تستعرض سجلات الفاتورة المحدده واحدا تلو الآخر و تعدلها اذا حققت شرطا معينا

Private Sub Check_Inv()
Dim Fa, Re As dao.Recordset

Set Fa = CurrentDb.OpenRecordset("TableName Of Subform Source")
Fa.Filter = "[SubformID] = " & Me.FormID
Fa.Requery
Set Re = Fa.OpenRecordset
Re.MoveFirst
Do Until Re.EOF
 ' Put Ur Condition Here
Re.Edit
Re![NewValue] = Re![OldVlaue] * [New Formula]
Re.Update


Re.MoveNext
Loop
Re.Close
End Sub

تم تعديل سبتمبر 25, 2005 بواسطه rudwan

[wkalo]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته،،
الى الاخ رضوان
جزاك الله كل خير، كان هذا الجواب المطلوب.