ابوخليل

السلام عليكم

توكل على الله وامض فيما عزمت عليه بارك الله فيك

قيد النظر ... تم عمل الاستعلام يمكنك بناء التقرير عليه ولاحظ ان الكفلاء مختلفين ايضا yatem2.rar

عملك الموجود بالمثال ممتاز 100% ولماذا تعمل علاقة بين جدول الايتام وجدول التفاصيل .. ما يلزم لا حظ اني من الاساس لم اضع هذه العلاقة واذا احتجنا اليها نضعها في الاستعلام

لا يوجد في المثال جدول واذا فقط ام اليتيم او المسؤل عنه يتكون من : الاسم ورقم الاتصال فيمكن اضافة حقلين في جدول اليتيم ولاحظت انك لم تضف شيئا على المثال يجب ان تعمل عليه ، وتضيف النماذج والتقارير اللازمة ، وتوافينا بما يستجد

السلام عليكم حتى تعين اخوانك على مساعدتك ، حاول ان تضع طلبا واحد فقط في كل مرة

مطلوبك غير واضح حاول صياغة سؤالك بطريقة أخرى

السلام عليكم اخي الكريم يجب الاهتمام باختيار عنوان مناسب وايضا يجب الاقتصار على طلب واحد تم تعديل العنوان ، والطلب

هذا موضوع تجد فيه بغيتك

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

وعليكم السلام استبدله بهذا Private Sub Cus_Mob_BeforeUpdate(Cancel As Integer) Dim phone As Integer phone = DCount("Cus_Mob", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]") If phone > 0 Then If MsgBox(" هذا الموبايل مكرر لللاعب رقم" & DLookup("[Cus_Num_D]", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]"), vbInformation + vbMsgBoxRight, "رقم مكرر") = vbOK Then Cancel = -1 Undo End If End If End Sub

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

اهلا استاذ حلبي حقيقة الكود يوجد به اسطر زائدة عن الحاجة وكنت اخذته نسخ ولصق . فشكرا لك ،، قمت بتنسيق الكود وتحديث المرفق 'هذا الحدث سيعمل عند وجود خطأ في مصدر بيانات النموذج 'وحيث اننا جعلنا في المثال في جدول التفاصيل حقل الكفيل وحقل المكفول كلاهما مفاتيح 'أي لن نسمح بتكرارهما مجتمعين Private Sub Form_Error(DataErr As Integer, Response As Integer) 'اذا كان الخطأ مخالف لقواعد الفهرسة ومفاتيح الجدول أي تكرار ما لا يسمح بتكراره If DataErr = 3022 Then 'تجاهل الخطأ واستمر Response = acDataErrContinue 'تراجع عما تم كتابته Undo 'تنبيه صوتي Beep 'ورسالة MsgBox "ادخال خاطىء" 'نهاية الشرط End If 'نهاية الحدث End Sub

تفضل اخي الكريم المثال يبين الفكرة حاول ان يزيد مجموع الارقام في الفرعي عن الرقم الموجود في النموذج الرئيسي 2003UP.rar

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

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

احتاج لبعض الوقت .. سأعمل لك بما يسمح به وقتي ان شاء الله فلا تستعجل الرد

طيب اخي هل تسمح لي بالتصرف بالمسميات (اسماء الحقول والجداول ) لانه من الافضل ان تكون التسميات بحروف انجليزية حتى تتمكن من قراءة الاكواد بصورة صحيحة ويسهل عليك التعلم والتطوير الذاتي علما ان جميع ما سيظهر للمستخدم سيكون بحروف عربية

اذا عليك ان تشرح طبيعة العمل على ارض الواقع وبالتفصيل باعتبارك تستعمل الدفاتر والسجلات الورقية 1- المدخلات 2- الاجراءت 3-النتائج . المكان يسع الجميع وشكرا لخلقك النبيل

اذا يجب ان تعيد النظر في التصميم

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

السلام عليكم هل في الفرضية ان لليتيم اكثر من كفيل سابق ؟

SUB تعني الجدول الكود يقوم بمسح اي كلمة في العمود قبل عملية النسخ واللصق

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

غالب الامتدادات 3 حروف تفضل اخي عبدالله تم التعديل جلب وإيداع الصور3.rar