*فورم* الحصول علي عدد السجلات في نموذج فرعي

أضف Text Box فى تذييل الفورم الفرعي و إجعله غير ظاهر

أسميه CCC

ضع به الدالة الآتية

=Count([outID])

ضع Text Box في الفورم الرئيسي و إجعل مصدر بياناته هو الText Box المسمي CCC

=OutList.Form!CCCC

وشكرا

:o

فيه طريقه أخرى تحتاج لمربع نص احد :

1- أنشء مربع نص على النموذج الرئيس باسم عدد_السجلات

2- في حدث عند الحالي للنموذج الرئيس اكتب :

عدد_السجلات = [اسم النموذج الفرعي].Form.RecordsetClone.RecordCount

ولاتنسى أن تغير اسم النموذج الفرعي في السطر السابق باسمه لديك .

إذا أردت أن يتم تحديث مربع النص بالقيمه الجديده حالما يتم الخروج من النموذج الفرعي ولو لم يتم الانتقال بين سجلات النموذح الرئيس ، فضع في حدث عند الخروج للنموذج الفرعي السطر التالي :

Call Form_Current

وللجميع التحية

من الأفضل إستخدام طريقة الأخ أبو حمود

أما الطريقة الأولي فيمكن ان تفيد فى حالة الرغبة فى الحصول علي مجموع

هل يمكن الحصول علي المجموع أيضا بمربع نص واحد ؟؟

الأخ مصراوي

مجموع ماذا ؟

ولك تحياتي

أقصد مجموع أي حقل من الحقول الموجودة في الفورم الفرعي

فعندما أرغب قى ذلك أنفذ ما سبق وصفه عاليا و طبعا مع استخدام Sum بدلا من Count

و هو أن أقوم بعمل صندوق نص غير مرئي فى تذيييل الفورم الفرعي

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

و هذا كله من أجل الحصول علي مجموع حقل معين للسجلات الظاهرة فى الSubForm فى أي وقت

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

الأخ مصراوي

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

Dim rst As Recordset
Set rst = [اسم النموذج الفرعي].Form.RecordsetClone
[اسم مربع النص]=0
rst.MoveFirst
Do Until rst.EOF
[اسم مربع النص]=[اسم مربع النص] + rst![الحقل]
rst.MoveNext
Loop
rst.Close

ولك تحياتي

شكرا أبو حمود

اذا نخلص من ذلك بقاعد عامة و هي انه عند الرغبة فى الحصول علي المجموع لحقل معين أو عدد السجلات فى فورم فرعي ووضعهم علي فورم رئيسي

نستخدم طريقة RecordsetClone للحصول علي عدد السجلات

نستخد طريقة النص المخفي فى التذييل للحصول علي المجموع

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