كيف يمكن فعلها بالاكسس

السؤال غير واضح

حاول أن ترفق ملف القاعدة لنفهم السؤال أكثر

ولك تحياتي

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

وسؤال عام ولا يحتاج إلى قاعدة بيانات وهو

السؤال الأول هو جمع حقل من النموذج الفرعي على النموذج الرئيسي لأن بينهم علاقة رأس بأطراف ويظهر الناتج على النموذج الرئيسي اعتقد باستخدام الدالة (Dsum ) لكن لا اعرف الطريقة

السؤال الثاني :- كيف يمكن إخراج عقد مبايعة ليوقع عليه العميل هل يتم أرسال البيانات إلى الوورد او عبارة عن تقرير يأخذ البيانات من جدول العملاء

من جرب عقد المبايعة وماذا حصل معة يفيدنا تحياتي

وشكراً مرة أخرى للرد

بعد إذن مشرفنا أبو حمود

السؤال الأول :

1- انشئ مربع نص على النموذج الفرعي واجعل مصدر بياناته

=Sum([t])

باعتبار أن الحقل المطلوب جمعه هو t

2- انشء حقل فى النموذج الرئيسي وجعل مصدر بياناته ما يلي :

=[f_in1].Form![c]

على اعتبار أن النموذج الفرعي اسمه f_in1 , و الحقل C هو اسم مربع النص فى النموذج الفرعي الذي يقوم بجمع الحقل T

بالنسبة للسؤال الثاني يوجد موضوع عن ارتباط الورد وأكسيس ابحث فيه

أشرف خليل

هذه الطرية تبطئ البرنامج

استخد دالة Dsum

السلام عليكم

أعتقد طريقة أشرف أسرع من استخدام دالة DSum

هذه الدالة عبارة عن كلمة واحدة ولكنها لتأتيك بالنتيجة سوف تقوم بفتح الجدول ومن ثم فلترته ومن ثم عمل تكرار Loop حتى تقوم بالجمع .

تحياتي

ال sum بالفعل أسرع من ال Dsum

لان البيانات التي نجمعها قد تم بالفعل استدعاؤها و ليس مثل ال Dsum كما قال ابو هادي

و قد ذكرت فى الطرح الاول للسؤال وجود شرط

و هذا سيغير فى الاجابة

فنطبيق الشرط مباشرة علي الجمع مع كل سجل باستخدام IF

سيكون بطيئا مع كثرة عدد السجلات

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

و لا يتم تطبيق الجمع مع الشرط

مثال علي تطبيق الشرط علي مصدر بيانات فورم فرعي

Private Sub Combo70_AfterUpdate()

Dim M As String

If Me![Frame779] <> 4 Then

N = "SELECT  CONTRACTS.*  FROM [CONTRACTS]WHERE (((CONTRACTS.[P#]) =Combo70.value)AND (((CONTRACTS.notchoose)=No) AND ((CONTRACTS.Com)='c') or (CONTRACTS.Com)='L'))ORDER BY CONTRACTS.ID;"

Else

N = "SELECT  CONTRACTS.*  FROM [CONTRACTS]WHERE (((CONTRACTS.[P#]) =Combo70.value))ORDER BY CONTRACTS.ID;"

End If

Forms![Update]![ListID].Form.RecordSource = N

End Sub

و بعد ذلك يتم ارسال قيمة n الي مصدر بيانات الفورم الفرعي

Forms![Update]![ListID].Form.RecordSource = N

فبذلك يتم الجمع مباشرة للسجلات الموجودة

و بالمناسبة الطرح الاول للسؤال غير واضح فعلا

و الثاني لم يشتمل علي موضوع الشرط المذكور فى الاول

فرجاء التوضيح لأننا بالطبع لا نعرف مثالك كما تعرفه ;)