ابوخليل

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

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

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

وعليكم السلام تفضل كما فهمتك من طلبك ويمكن ان يكون الحل بطريقة اخرى بحيث تستغني عن الرسالة مثلا اذا تم التأشير على الخانة يتم حماية حقل العنوان فلا يمكنه التحرير او الاضافة 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

تفضل test122.rar

اتوقع امكانية ذلك على الاصدار 2007 وأعلى ولم اجرب آمل ان تجد الاجابة من خبراء المنتدى

وعليكم السلام تم التعديل على المثال بحيث يتم رفع صورة ثم نسخها على اي امتداد اتمنى يكون هو مطلوبك جلب وإيداع الصور2.rar

وتفضل مثال : يحفظ رقم اللون الذي يتم اختياره في الجدول تسجيل اللون في الجدول.rar

الحق يا بوعبدالله ان فهم السؤال نصف الاجابة وانا لم اصل الى فهم المسألة بعد ‘ لاني لم افهم المراد بالضبط وحتى لا يطول انتظارك كتبت لك

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