عبدالرحمن هاشم

وعليكم السلام ورحمة الله تفضل أخي اطلع على هذا التقرير db2-----.rar

وعليكم السلام ورحمة الله بعد أذن معلمي الفاضل آخر الأرض أعذرني أستاذي قمت بالتعديل أثناء عدم وجود ردود تفضل أخي الكريم هذا مقترح آخر بكود '********************************* 'Code sample courtesy of srfreeman '********************************* Dim SID As String Dim stLinkCriteria As String Dim rsc As DAO.Recordset Set rsc = Me.RecordsetClone SID = Me.NOM.Value stLinkCriteria = "[NOM]=" & "'" & SID & "'" 'Check StudentDetails table for duplicate StudentNumber If DCount("NOM", "Qry", stLinkCriteria) > 0 Then 'Undo duplicate entry Me.Undo 'Message box warning of duplication MsgBox "ÇáÇÓã ãßÑÑ " _ & (SID) & " ãÓÌá ãä ÞÈá." _ & vbCr & vbCr & "ÓíÊã ÇÑÔÇÏß ÇáÂä Çáì ÇáÇÓã ÇáãÓÌá.", vbInformation _ , "ÈíÇäÇÊ ãßÑÑÉ" 'Go to record of original Student Number rsc.FindFirst stLinkCriteria Me.Bookmark = rsc.Bookmark End If Set rsc = Nothing End Sub وقمت بتصحيح العلاقة بين جدول المحيطات والمعلومات المحيطات الفلاحية----UP.rar

تفضل أخي الكريم افتح النموذج FrmQry والذي يمكنك من خلاله معرفة كل العملاء المتأخرين أو لعميل معين وصممت التقارير على ذلك كمبيالة.rar

عذرا تفضل اخي الكريم لا تتعجل اهم شيء هو اتمام العمل ومن ثم إصدار التقارير والذي منه كمبيالة.rar

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

لماذا خطأ؟؟ أظن أن طلبك هو كذلك.. وبالطبع إذا كان شرط الخدمة False فسيكون الإجمالي صفر أم أنك تشير إلى خانة معينة من الخانتين؟

هل اطلعت على هذه المشاركة؟ http://www.officena.net/ib/index.php?showtopic=57251

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

وعليكم السلام ورحمة الله تفضل أتمنى يكون المطلوب Price with conditions.rar

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

أخي الكريم الأفضل أن ترفق مثالك للتعديل عليه

وجدت كود لأختنا الفاضلة للدكتورة زهرة جزاها الله كل خير On Error GoTo Err_cmd9_Click DoCmd.RunCommand acCmdUndo Me.Tab1.Pages(1).SetFocus SendKeys "{ENTER}", True DoCmd.RunCommand acCmdUndo Me.Tab1.Pages(0).SetFocus SendKeys "{ENTER}", True Exit_cmd9_Click: Exit Sub Err_cmd9_Click: MsgBox Err.Description Resume Exit_cmd9_Click End Sub لكني لم أفهم معنى Tab1 وللأسف المنتدى الشقيق الذي به المثال به عطل ووجدت مثال آخر لأستاذنا الفاضل Azhar ولكنه للأسف مع كل صف تعديل في النموذج الفرعي تظهر الرسالة ولا أعلم بالظبط أيهما سيتماشى مع مثال أساس هذه المشاركة منع التعديل http://www.officena.net/ib/index.php?showtopic=55792 أستاذي وأخي العزيز رمهان يعلم الله أنني لا أثقل عليك ولكن من باب البحث عن الحل ؛ فكان الله في عونك بمشغولياتك وريثما تسمح الظروف فشرفنا بالنظر في ذلك الأمر خالص تحياتي

الحمد لله الذي تتم بنعمته الصالحات.. وجزاك الله خيراً على مشاركتك لنا بالحل بعد توصلك له

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

جميل أوي أخي الكريم الكود الذي وضعته في زر استعراض اكثر من تقرير Select Case Reports Case 1 On Error Resume Next DoCmd.OpenReport "Report1", acViewReport Case 2 On Error Resume Next DoCmd.OpenReport "Report2", acViewReport Case 3 On Error Resume Next DoCmd.OpenReport "Report3", acViewReport End Select انا عملت 3 ازرار معلش بقى لسة مبتدئين

وعليكم السلام ورحمة الله هذا مقترح آخر بعد أذن أخي العزيز أسير الشوق Cleaning contracts.rar

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

تفضل أخي أظهرت التاريخ في نموذج البحث وأضفت نموذج للإدخال الجديد أعذرني لست متمكناً في التقارير ولا أعرف سبب تكرار الورق الفارغ ولكنه الآن يكرر ورقة واحدة فقط وحاولت معالجة ذلك ولم أستطع CAF.rar

للرفع

تفضل CAF.rar

تفضل بعد إدراج الرقم الوطني سيدمجه مع Id ويخزنه في رقم العضوية BN1---.rar

راجع هذه المقالة https://msdn.microsoft.com/en-us/library/ee691831%28office.14%29.aspx

ممكن ترفع الصورة مرة أخرى لأنها لا تعمل لكي أدرج التاريخ بالتقرير

وعليكم السلام يوجد في مكتبتي مثالين لتكبير النموذج حسب الشاشة ولكني لم استخدمهما أحدهما تقريبا بالاختيار حسب ضبط الشاشة الحالي أو أقل في الدقة وهو للأستاذ أحمد سليم والثاني يبدو تلقائي - لا أعلم لمن أعذرني لم أجربهما asiliem_ShrinkStretcher.rar db1.rar

السبب في ذلك أخي الكريم لأنك حددت في الاستعلام تاريخ معين يحصر ما بينه فقط ولا يعرض ما قبله أو بعده على العموم أنشأت لك النموذج FrmQ3 وبه تاريخ من وإلى وبه تكتب الفترة بالتاريخ الهجري وسينتج لك المطلوب من الاستعلام Q3 في شكل تقرير بعدما تم تعديل المعيار في الاستعلام Q3 واصبح Between [Forms]![FrmQ3]![Dat_from] And [Forms]![FrmQ3]![Dat_to] Or Is Null * ملحوظة.. عدلت حقل التاريخ في جدول Halat لأنه كان حقل نصي وجعلته تاريخ وضبطت القاعدة على التقويم الهجري أتمنى يكون المطلوب تحياتي DBZer----edit.rar