ابو ياسين المشولي

اظن عندما عندما تسنخ اسم العضوء ثم تكتب فتلقائي يتلون

المعذرة اخي د.كاف يار لم اشوفك ردك

الكلي =Abs(Nz(DSum("[sup_depit]";"[ديون الموردين]"))) المورد المحدد =Abs(Nz(DSum("[sup_depit]";"[ديون الموردين]";"[Cus_id]=[Forms]![صرف شيكات]![txtcom]");0))

ماقهمت قصدك ممكن توضح

.Fields.Append .CreateField("هنا ضع الاسم", dbText, 50)

بالتوفيف اخي الكريم

اتفضل Dim db As Database Dim tdfNew As TableDef Dim fldLoop As Field On Error GoTo Err_Command0_Click: Set db = DAO.OpenDatabase(CurrentDb().Name) Set tdfNew = db.TableDefs!basic With tdfNew .Fields.Append .CreateField(Me.[id mon], dbText, 50) End With MsgBox "تمت عملية إنشاء الحقول المحددة بنجاح!!!", vbOKOnly, "رسالة توضيح" Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox "إما أن الحقول المراد إنشاؤها موجودة مسبقاً ، أو أن قاعدة البيانات غير موجودة في المكان المحدد!!!", vbOKOnly, "رسالة توضيح" Resume Exit_Command0_Click try.accdb

محاوله مع الاخوة New Microsoft Access قاعدة بيانات (5).accdb

بالتوفيق شعار تم الحل عندك انت صاحب الموضوع

ارفع ملفك من جديد صار في خطاء عند التحميل

اتفضل ارجو يكون طلبك 2.accdb

بالتوفيق اخي الشربيني123 الله يسعدك

هذه رساله طبيعي وهو بالفعل يحدث صنفين فقط

تسلم اخي الشربيني 123 جرب هذا =DCount("[المرحلة]";"الطالب";"[المرحلة]=4 and [الصف]=" & [الصف] & " ")

انا الان بالمبايل اذا فتحت الاب توب ابشر

اشكرك اخي الشربيني الكود هو عد لي عدد المرحلة اللي في جدول الطالب بشرط المرحله= ١ وهكذا نعم تقد تعدل الكود كما تشاء

وهذ مشروط بالباكورد والتاريخ الرصيدالنهائي: Nz(DSum("[الرصيد الاولي]";"[اطراف الفاتورة]";"[باركود]='" & [باركود] & "'" & " And [التاريخ]<= #" & Format([التاريخ];"yyyy-mm-dd") & "#");"0") Database8 (1).accdb

ارفق مثال للمطلوب مع الشرح

اولا نصيحه ابتعد عن التسميات بالغه العربيه ممكن تسميها بالانجليزي ثم تسميها بالعربي من التسميه التوضيحيه مثلا الرصيد تسميه rased وهكذا لان اللغه العربيه مشكلتها كثيره في الاكواد ثانيا ماهو معيار التاريخ ثلاثه ممكن تصفر الرصيد عبر استعلام تحديث رابعا لم افهم طلبك بالضبط

الكود صحيح عشان انه بالغه العربيه انسخه وبيطلع مضبوط Expr1: Nz(DSum("[rr]";"اطراف الفاتورة";"[aa]='" & [aa] & "'")) aa=باركود rr= الرصيد الاولي Database8.accdb

ممكن تختصر الكود هكذا تمهيدي =DCount("[المرحلة]";"الطالب";"[المرحلة]=1") ابتدائي =DCount("[المرحلة]";"الطالب";"[المرحلة]=2") اعدادي =DCount("[المرحلة]";"الطالب";"[المرحلة]=3 ") ثانوي =DCount("[المرحلة]";"الطالب";"[المرحلة]=4") ونصيحه ابتعد عن التسميات باللغه العربيه من الجدول والحقول والنماذج وكل شي اللغه العربيه تعمل مشاكل كثير في الاكواد وغيرها حال ولو ترمز لها بحرف انجليزي وابتعد عن اللغه العربيه اتفضل دعوة طيبة بظهر الغيب بيان.accdb

اتفضل Expr1: Nz(DSum("[الرصيد الافتتاحي]";"اطراف الفاتورة";"[باركود]='" & [باركود] & "'")) هذا حسب كودك والاصح هو بدل الرصيد الافتتاحي يكون الرصيد الاولى هكذا Expr1: Nz(DSum("[الرصيد الاولي]";"اطراف الفاتورة";"[باركود]='" & [باركود] & "'"))

اخي kaser906 الكود اللي عملته هو لازم تحدد حفظ التقرير واللي انا عملته هو يفتح بدون تحديد حفظ التقرير ولك مني جزيل الشكر كلما كثرت الافكار كلما كانت الفاقده اكثر

عدل كان في خطاء بسم الجدول id الى ss دوام الموظف.rar

اظن هذا ه طلبك DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, CurrentProject.Path & ".PDF", True