ابوخليل

تم التعديل على الاستعلام لحقل المهنة ابحث في المهنة الآن ويمكنك التطبيق على البقية ss2.rar

نعم صحيح القيمة في الجداول ارقام ولكنها تظهر كنصوص داخل النماذج والتقارير

المثال مبتور ، يلزم ادراج الجداول المساندة والتي هي مصدر بيانات مربعات التحرير وعلى كل حال المسألة يسيرة بإذن الله ، وهي ان تقوم بادراج النص من الجدول المساند بدلا من الرقم داخل الاستعلام المصدر ولن تتمكن من ذلك حتى تدرج الجداول المساندة داخل الاستعلام

اعتقد ان استعلام الحسميات بحاجة الى معيار بل اثنين واحد للسنة والآخر للشهر

الطباعة من الوجهين هذه تكون من خصائص الطابعة ، وليس لاكسس يد في ذلك يوجد طابعات تطبع من الوجهين ايضا : البطاقات لها طابعات خاصة ومقاساتها عالمية 5سم في 8سم ويمكن للمستخدم طباعة التعليمات على جميع البطاقات التي لديه وتكون جاهزة للاستخدام على الوجه الآخر

لو ارفقت مثالا لتم التشخيص عن قرب ولكني ارى ان سبب المشكلة هو المعيار & [ID])=0 جربي null بدل الصفر

تم التعديل باضافة : 1- جدول مؤقت 2- استعلام 3- نموذج لاجراء العملية التغييرات التي حدثت على برنامجك : فقط تعديل في مفاتيح جدول OtherDiscount من اجل ضبط التكرار عند الاضافة Discount.rar

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

ما غرضك من ذلك ؟ حيث ان التفاصيل والمجاميع تظهر في النموذج وفي التقرير ايضا

انظر المرفق تم التعديل حسب ما فهمت Fatora4.rar

توزيع ؟ يظهر لي انك تريد تعميم المبلغ وليس التوزيع بمعنى انك تريد تكتب قيمة القسط الشهري للجميع بضغطة زر بدلا من كتابتها واحد واحد هل هذا صحيح ؟

تفضل ابا عمرو البحث بكود الطالب db4.rar

الغياب الفعلي هو العمود الاخير المسمى ghyab اما العمودين الآخرين باسم expr0 ' expr1 فالارقام تعني الايام فرقم 4 يعني الاربعاء ورقم 1 يعني الاحد وهكذا ... لو تمعنت في تصميم الاستعلام لتبين لك ذلك افتح الاستعلام على التصميم وانظر الشرط في العمود الاخير يتبين لك كيف تم الحل فاذا اجتمع 5 ، 1 كانت النتيجة 3 وهي الجمعة والسبت والاحد اما الخميس فقد تم رصده في الحقل السابق امل ان تتضح لك المسألة

تفضل الحل حسب ما فهمت FSaturday.rar

بدون مثال مرفق لا يمكن التشخيص الدقيق ولكن جرب : في الحقل الذي تجري عليه النعديل امسح كلمة Group By الموجودة في حقل الاجمالي

اخونا الكريم اولا لك دعوة منا طيبة فتفضل من هنا http://www.officena.net/ib/index.php?showtopic=41520 ثانيا : ان المثال الاخير يختلف تماما عن اساس الموضوع حيث يشتمل على نموذج فرعي وكما تعلم النموذج الفرعي يحتاج الى مصدر بيانات مستمر ولا يصلح ان نجعل المصدر للنموذجين واحد المهم في المسألة ان اكسس فيه من الامكانيات بحيث انه ينشء هو بنفسه غالب ما تفكر به انظر المثال المرفق فام اكسس لوحده عن طريق المعالج بانشاء نموذج اساسي وآخر فرعي مكتفيا فقط بالجداول وكذلك تم انشاء مربع البحث عن طريق المعالج db3.rar

ان كان المقصود بالخط اسفل الكلمة والموجود في التنسيق في شريط الادوات : فإنه يظهر عندي في الطباعة لو احدكم ارفق مثالا بالمشكلة .

اظهار السعر آليا بعد كتابة الكمية Fatora2.rar

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

يا هلا بزمزم واهل مكة اما البارح ومنظر الكعبة والمطر يا سلالالام

السلام عليكم احبتي اعتقد حسب ما فهمت انه عند الغياب يوم الخميس ويوم الاحد ( الذي يليه ) يتم احتساب الجمعة والسبت فلو غاب يوم الاحد ويوم الخميس الذي يليه ولكنه حضر الاحد الذي يلي الخميس هنا لن يتم احتساب الجمعة والسبت الضابط هو وقوع السبت والجمعة بين يومي غياب اخي ايمن : يوجد خطأ في التخطيط المرفق في الجمع فأنت حسبت الخميس والاحد يومين والناتج 3 والصحيح على ما فهمت انه 4 الخميس والجمعة والسبت والاحد

تفضل وحدة نمطية مع الشرح يمكن من خلالها طباعة الصفحات من تقريرين تنازليا مهما بلغت الصفحات وايضا يمكن تحديد نقطة البداية او صفحة البداية فلو فرضنا ان لديك تقريرين كل واحد منهما يحتوي على 100 صفحة وتريد ان تبدأ الطباعة من الصفحة رقم 20 تنازليا فكل ما عليك هو ان تضع رقم صفحة البداية في الحقل المخصص في النموذج افتح محرر الفيجوال والصق الوحدة النمطية التالية : Function PrintDscOrder(Rep1 As String, Rep2 As String) Dim PgNum As Integer, _ PgNum2 As Integer, PagesCnt As Integer 'اعلان عن متغيرات رقمية تمثل مجمل الصفحات وارقام الصفحات المحددة PagesCnt = Me.RepageCnt.Value 'مجمل الصفحات = قيمة الحقل في النموذج For PgNum = PagesCnt To 1 Step -2 'دوارة تنازلية زوجية PgNum2 = PgNum - 1 'تحديد رقم الصفحة الثانية وهي هنا اقل من الحالية بواحد DoCmd.SelectObject acReport, Rep1, True 'تحديد التقرير الأول DoCmd.PrintOut , PgNum, PgNum2, 1 'طباعة الصفحات المحددة DoCmd.SelectObject acReport, Rep2, True ' تحديدالتقرير الثاني DoCmd.PrintOut , PgNum, PgNum2, 1 'طباعة الصفحات المحددة Next PgNum 'عودة لبداية الدوران End Function 'تصميم وترتيب ابوخليل وفي حدث بعد النقر لزر الطباعة الصق السطر التالي : Call PrintDscOrder("استقطاعات", "استحقاقات") طباعةالصفحات تنازليا من تقريرين.rar

سأعرض الحل هنا مع توضيح بعض النقاط المهمة فالجملة البرمجية التي تستخدم لفتح ثم طباعة الصفحات المحددة من التقرير DoCmd.OpenReport stDocName, acPreview DoCmd.PrintOut acPages, pageFrom, pageTo لا تقوم بالمهمة كما ينبغي وكما رسمت له فمن المعلوم ان تنفيذ هذا الكود سيكون من خلال النموذج لذا يصعب التنفيذ بل يمتنع وتظهر بعض العقبات غير المتوقعة فمنها : - طباعة النموذج بدلا من التقرير وقد يتم طباعة الاثنين معا - عدم طباعة الصفحات المحددة وانما يتم طباعة الجميع - هذا الكود يقوم بفتح التقرير وهذه مشكلة بحد ذاتها حيث يستلزم اخفاؤه او تصغيره ثم غلقه وهل هناك بديل ؟ نعم وهو يقوم بكل لطف وصمت بطباعة صفحات محددة من تقارير عدة والحل سطران فقط ومن اراد الزيادة فعليه ان يكررهما ما شاء الاول يقوم بتحديد التقرير لا فتحه DoCmd.SelectObject acReport, "استقطاعات", True والثاني لطباعة الصفحات المحددة DoCmd.PrintOut , 14, 13, , 1 رقم 1 يمثل عدد النسخ في المرفقات تحقيق وتطبيق طباعة واختيار الصفحات من عدة تقارير.rar

وعليكم السلام ورحمة الله وبركاته عدد النماذج المفتوحة : CountOpenFrms = Application.Forms.Count السؤال الثاني افتح له مشاركة جديدة

اخونا محمد رفعت شكرا لقبول الدعوة اما مسألتك فإنها محلولة بإذن الله فقط لدي بعض الاستفسارات حتى نخرج بالحل على اكمل وجه انت لديك اكثر من تقرير وحسب عرضك هما اثنان وتريد طباعة الصفحات بترتيب معين مثلا تبدأ من النهاية السؤال : هل عدد الصفحات دوما 14 ام انها تزيد وتنقص حسب البيانات المدخلة وحسب الظروف ؟ فإن كانت تتغير فمن غير المستحسن ادراج الارقام داخل الكود وانما نعوض عنها بمتغيرات تمثل ارقام الصفحات بانتظارك ...