ابوخليل

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

انظر المرفق تم التعديل حسب ما فهمت 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 ام انها تزيد وتنقص حسب البيانات المدخلة وحسب الظروف ؟ فإن كانت تتغير فمن غير المستحسن ادراج الارقام داخل الكود وانما نعوض عنها بمتغيرات تمثل ارقام الصفحات بانتظارك ...

تم التعديل حسب الطلب الاول db1.rar

نعم لانه غالبا يتم ادراج اكثر من صنف واحد في الفاتورة وحينها سيتم تكرار اسم الفرع واسم العميل في كل سجل وهذا الشيء غير مقبول في قواعد البيانات اختر واحدا فقط ليكون هو رأس الفاتورة : الفرع او العميل سؤال : لماذا تقحم الفرع في رأس الفاتورة ؟ اليس لكل فرع برنامجه الذي يخصه ؟

انظر هنا http://www.officena.net/ib/index.php?showtopic=49961

تم دمج الموضوعين

تعني رقم المفتاح او الزر في لوحة المفاتيح تجد هنا ارقام المفاتيح http://www.officena.net/ib/index.php?showtopic=48801#entry295956

انا قمت بالتعديل فقط على عجالة لتحقيق الطلب اليك الكود الآن بعد التدقيق ( تم اجراء بعض التقديم والتأخير وحذف مالا يلزم ) Dim rcos, r As Long Private Sub Command1_Click() On Error GoTo Err r = rcos + 20 txtNumbers = "" Dim s For s = rcos To r txtNumbers = txtNumbers & "973" & txtnum & " , " DoCmd.GoToRecord , , acNext rcos = rcos + 1 If rcos = r Then Exit Sub End If Next s Err: If Err.Number = 2499 Then Exit Sub End Sub Private Sub Form_Load() rcos = 1 End Sub

If KeyCode = 13 Then DoCmd.GoToRecord , , acNewRec End If تم تطبيق الكود على الحقل n يمكنك نقله الى اي حقل تريد 1.rar

هما اخوان الا ان الاستعلام اكثر مرونة هذا مثال للاستاذ محمد صالح يعالج هذا الأمر mas123-nameparts.rar