alwasili قام بنشر مايو 8, 2017 قام بنشر مايو 8, 2017 لإخوة الكرام اعضاء المنتدى ارجوا مساعدتي في وضع الكود المناسب .لدي جدولان .جدول اليتيم .جدول اليتيم مرسل .يتم ارسال البيانات من جدول اليتيم إلى جدول اليتيم مرسل ............قبل الارسال أريد أن يبحث في جدول اليتميم مرسل هل سبق اضافة اليتم لنفس الكفيل أم لا . اذا تم اضافته يعطيني رسالة .اذا لم تتم الاضافة يقوم بالارسال .التوضيح اكثر في الصورة المرفقة . yahya.rarFetching info...
ابوخليل قام بنشر مايو 8, 2017 قام بنشر مايو 8, 2017 السلام عليكم هل في الفرضية ان لليتيم اكثر من كفيل سابق ؟
Shivan Rekany قام بنشر مايو 8, 2017 قام بنشر مايو 8, 2017 (معدل) اهلا بك في منتداك منتدى اوفيســــــــــــــــــــــنا اتفضل اليك هذا الكود Private Sub رقم_الكفيل_BeforeUpdate(Cancel As Integer) If Len(Me.رقم_الكفيل & "") <> 0 Then If DCount("[idyatem]", "[اليتبم مرسل]", "'=[رقم الكفيل]" & Me.رقم_الكفيل.Column(0) & "'" & _ " And [الاسم]='" & Me.الاسم & "'") > 0 Then MsgBox "يوجد يتيم آخر لنفس الكفيل " Cancel = -1 Else ارسال_Click End If Else End If End Sub واليك ملفك بعد تعديل لكن القي نظرتا الى كود الارسال عندك واعتذر منك استاذنا @ابوخليل ما رأيت مشاركتك لان النيت عندي ضعيف كتير yahya.rarFetching info... تم تعديل مايو 8, 2017 بواسطه Shivan Rekany 1
alwasili قام بنشر مايو 8, 2017 الكاتب قام بنشر مايو 8, 2017 في 8/5/2017 at 15:17, ابوخليل said: السلام عليكم هل في الفرضية ان لليتيم اكثر من كفيل سابق ؟ Expand نعم اليتيم له أكثر من كفيل
alwasili قام بنشر مايو 8, 2017 الكاتب قام بنشر مايو 8, 2017 (معدل) في 8/5/2017 at 15:20, Shivan Rekany said: اهلا بك في منتداك منتدى اوفيســــــــــــــــــــــنا اتفضل اليك هذا الكود Private Sub رقم_الكفيل_BeforeUpdate(Cancel As Integer) If Len(Me.رقم_الكفيل & "") <> 0 Then If DCount("[idyatem]", "[اليتبم مرسل]", "'=[رقم الكفيل]" & Me.رقم_الكفيل.Column(0) & "'" & _ " And [الاسم]='" & Me.الاسم & "'") > 0 Then MsgBox "يوجد يتيم آخر لنفس الكفيل " Cancel = -1 Else ارسال_Click End If Else End If End Sub واليك ملفك بعد تعديل لكن القي نظرتا الى كود الارسال عندك واعتذر منك استاذنا @ابوخليل ما رأيت مشاركتك لان النيت عندي ضعيف كتير yahya.rarFetching info... Expand شكراً لك أستاذنا القدير .. هنا لا يسمح لليتم بكفيل آخر .. فقط تم منعه من نفس الكفيل اريد أن يسمح لليتم بكفيل آخر في 8/5/2017 at 15:35, ابوخليل said: اذا يجب ان تعيد النظر في التصميم Expand ممكن تساعدني بمثال بسيط للتصميم استاذنا أبو خليل تم تعديل مايو 8, 2017 بواسطه alwasili
ابوخليل قام بنشر مايو 8, 2017 قام بنشر مايو 8, 2017 اذا عليك ان تشرح طبيعة العمل على ارض الواقع وبالتفصيل باعتبارك تستعمل الدفاتر والسجلات الورقية 1- المدخلات 2- الاجراءت 3-النتائج . في 8/5/2017 at 15:20, Shivan Rekany said: واعتذر منك استاذنا @ابوخليل ما رأيت مشاركتك لان النيت عندي ضعيف كتير Expand المكان يسع الجميع وشكرا لخلقك النبيل 1
alwasili قام بنشر مايو 8, 2017 الكاتب قام بنشر مايو 8, 2017 في 8/5/2017 at 15:41, ابوخليل said: اذا عليك ان تشرح طبيعة العمل على ارض الواقع وبالتفصيل باعتبارك تستعمل الدفاتر والسجلات الورقية 1- المدخلات 2- الاجراءت 3-النتائج تم ارفاق صورة جديدة توضح المطلوب Expand
ابوخليل قام بنشر مايو 8, 2017 قام بنشر مايو 8, 2017 طيب اخي هل تسمح لي بالتصرف بالمسميات (اسماء الحقول والجداول ) لانه من الافضل ان تكون التسميات بحروف انجليزية حتى تتمكن من قراءة الاكواد بصورة صحيحة ويسهل عليك التعلم والتطوير الذاتي علما ان جميع ما سيظهر للمستخدم سيكون بحروف عربية
alwasili قام بنشر مايو 8, 2017 الكاتب قام بنشر مايو 8, 2017 في 8/5/2017 at 16:29, ابوخليل said: طيب اخي هل تسمح لي بالتصرف بالمسميات (اسماء الحقول والجداول ) لانه من الافضل ان تكون التسميات بحروف انجليزية حتى تتمكن من قراءة الاكواد بصورة صحيحة ويسهل عليك التعلم والتطوير الذاتي علما ان جميع ما سيظهر للمستخدم سيكون بحروف عربية Expand نعم تفضل عدل كما تشاء استاذنا الكريم
ابوخليل قام بنشر مايو 8, 2017 قام بنشر مايو 8, 2017 احتاج لبعض الوقت .. سأعمل لك بما يسمح به وقتي ان شاء الله فلا تستعجل الرد
alwasili قام بنشر مايو 8, 2017 الكاتب قام بنشر مايو 8, 2017 في 8/5/2017 at 16:45, ابوخليل said: احتاج لبعض الوقت .. سأعمل لك بما يسمح به وقتي ان شاء الله فلا تستعجل الرد Expand خذ راحتك سأكون في الانتظار وتقبل شكري مقدماً
ابوخليل قام بنشر مايو 8, 2017 قام بنشر مايو 8, 2017 تفضل هذه افضل واسهل طريقة اراها تناسب المشروع تفقد المثال وانظر في الجداول وحقولها وكيف تم ترتيبها تختار الكفيل وتدرج المكفولين تحت اسمه في النموذج الفرعي جرب حاول تكرر المكفول مرة اخرى عند الكفيل النموذج الفرعي يصب في جدول التفاصيل الذي يوجد فيه تفصيل التسديد من خلال هذا الجدول نستطيع بناء العديد من التقارير سواء للكفلاء او المكفولين اعمل نموذجا جديدا على جدول الكفلاء لاضافة او تعديل كفيل ايضا اعمل نموذجا جديدا على جدول يتيم لاضافة يتيم جديد او التعديل عليه بقي بعض الضوابط التي ستحتاجها مثل ضبط مواعيد السداد والتنبيهات عند قرب موعد السداد وغيرها والتي سوف تبرزها الحاجة طبعا يمكنك اعادة تصميم النماذج بما يناسب ذوق المستخدم هذه هي الخطوة الاولى وانا جاهز للعون والمساعدة yatem.rar
alwasili قام بنشر مايو 8, 2017 الكاتب قام بنشر مايو 8, 2017 في 8/5/2017 at 19:23, ابوخليل said: تفضل هذه افضل واسهل طريقة اراها تناسب المشروع تفقد المثال وانظر في الجداول وحقولها وكيف تم ترتيبها تختار الكفيل وتدرج المكفولين تحت اسمه في النموذج الفرعي جرب حاول تكرر المكفول مرة اخرى عند الكفيل النموذج الفرعي يصب في جدول التفاصيل الذي يوجد فيه تفصيل التسديد من خلال هذا الجدول نستطيع بناء العديد من التقارير سواء للكفلاء او المكفولين اعمل نموذجا جديدا على جدول الكفلاء لاضافة او تعديل كفيل ايضا اعمل نموذجا جديدا على جدول يتيم لاضافة يتيم جديد او التعديل عليه بقي بعض الضوابط التي ستحتاجها مثل ضبط مواعيد السداد والتنبيهات عند قرب موعد السداد وغيرها والتي سوف تبرزها الحاجة طبعا يمكنك اعادة تصميم النماذج بما يناسب ذوق المستخدم هذه هي الخطوة الاولى وانا جاهز للعون والمساعدة yatem.rarFetching info... Expand بارك الله فيك أخي الكريم أبو خليل وأسأل الله أن ينفع بك ويجعل كل ما تقدم في موازين حسناتك وليس لنا غناً عن مساعدتكم . تقبل تحياتي . أخوكم يحيى واصلي
الحلبي قام بنشر مايو 8, 2017 قام بنشر مايو 8, 2017 استادنا / ابو خليل ادا تكرمتم ممكن شرح الكود فانا لم افهمه مع مرعاة اني مبتدأ
ابوخليل قام بنشر مايو 9, 2017 قام بنشر مايو 9, 2017 اهلا استاذ حلبي حقيقة الكود يوجد به اسطر زائدة عن الحاجة وكنت اخذته نسخ ولصق . فشكرا لك ،، قمت بتنسيق الكود وتحديث المرفق 'هذا الحدث سيعمل عند وجود خطأ في مصدر بيانات النموذج 'وحيث اننا جعلنا في المثال في جدول التفاصيل حقل الكفيل وحقل المكفول كلاهما مفاتيح 'أي لن نسمح بتكرارهما مجتمعين Private Sub Form_Error(DataErr As Integer, Response As Integer) 'اذا كان الخطأ مخالف لقواعد الفهرسة ومفاتيح الجدول أي تكرار ما لا يسمح بتكراره If DataErr = 3022 Then 'تجاهل الخطأ واستمر Response = acDataErrContinue 'تراجع عما تم كتابته Undo 'تنبيه صوتي Beep 'ورسالة MsgBox "ادخال خاطىء" 'نهاية الشرط End If 'نهاية الحدث End Sub
alwasili قام بنشر مايو 11, 2017 الكاتب قام بنشر مايو 11, 2017 في 8/5/2017 at 19:23, ابوخليل said: تفضل هذه افضل واسهل طريقة اراها تناسب المشروع تفقد المثال وانظر في الجداول وحقولها وكيف تم ترتيبها تختار الكفيل وتدرج المكفولين تحت اسمه في النموذج الفرعي جرب حاول تكرر المكفول مرة اخرى عند الكفيل النموذج الفرعي يصب في جدول التفاصيل الذي يوجد فيه تفصيل التسديد من خلال هذا الجدول نستطيع بناء العديد من التقارير سواء للكفلاء او المكفولين اعمل نموذجا جديدا على جدول الكفلاء لاضافة او تعديل كفيل ايضا اعمل نموذجا جديدا على جدول يتيم لاضافة يتيم جديد او التعديل عليه بقي بعض الضوابط التي ستحتاجها مثل ضبط مواعيد السداد والتنبيهات عند قرب موعد السداد وغيرها والتي سوف تبرزها الحاجة طبعا يمكنك اعادة تصميم النماذج بما يناسب ذوق المستخدم هذه هي الخطوة الاولى وانا جاهز للعون والمساعدة yatem.rarFetching info... Expand بارك الله فيك أخي الكريم أبو خليل وأسأل الله أن ينفع بك ويجعل كل ما تقدم في موازين حسناتك وليس لنا غناً عن مساعدتكم . تقبل تحياتي . أخوكم يحيى واصلي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.