alwasili قام بنشر مايو 8, 2017 مشاركة قام بنشر مايو 8, 2017 لإخوة الكرام اعضاء المنتدى ارجوا مساعدتي في وضع الكود المناسب .لدي جدولان .جدول اليتيم .جدول اليتيم مرسل .يتم ارسال البيانات من جدول اليتيم إلى جدول اليتيم مرسل ............قبل الارسال أريد أن يبحث في جدول اليتميم مرسل هل سبق اضافة اليتم لنفس الكفيل أم لا . اذا تم اضافته يعطيني رسالة .اذا لم تتم الاضافة يقوم بالارسال .التوضيح اكثر في الصورة المرفقة . yahya.rar رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 8, 2017 مشاركة قام بنشر مايو 8, 2017 السلام عليكم هل في الفرضية ان لليتيم اكثر من كفيل سابق ؟ رابط هذا التعليق شارك More sharing options...
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.rar تم تعديل مايو 8, 2017 بواسطه Shivan Rekany 1 رابط هذا التعليق شارك More sharing options...
alwasili قام بنشر مايو 8, 2017 الكاتب مشاركة قام بنشر مايو 8, 2017 15 دقائق مضت, ابوخليل said: السلام عليكم هل في الفرضية ان لليتيم اكثر من كفيل سابق ؟ نعم اليتيم له أكثر من كفيل رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 8, 2017 مشاركة قام بنشر مايو 8, 2017 اذا يجب ان تعيد النظر في التصميم رابط هذا التعليق شارك More sharing options...
alwasili قام بنشر مايو 8, 2017 الكاتب مشاركة قام بنشر مايو 8, 2017 (معدل) 17 دقائق مضت, 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.rar شكراً لك أستاذنا القدير .. هنا لا يسمح لليتم بكفيل آخر .. فقط تم منعه من نفس الكفيل اريد أن يسمح لليتم بكفيل آخر 2 دقائق مضت, ابوخليل said: اذا يجب ان تعيد النظر في التصميم ممكن تساعدني بمثال بسيط للتصميم استاذنا أبو خليل تم تعديل مايو 8, 2017 بواسطه alwasili رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 8, 2017 مشاركة قام بنشر مايو 8, 2017 اذا عليك ان تشرح طبيعة العمل على ارض الواقع وبالتفصيل باعتبارك تستعمل الدفاتر والسجلات الورقية 1- المدخلات 2- الاجراءت 3-النتائج . 25 دقائق مضت, Shivan Rekany said: واعتذر منك استاذنا @ابوخليل ما رأيت مشاركتك لان النيت عندي ضعيف كتير المكان يسع الجميع وشكرا لخلقك النبيل 1 رابط هذا التعليق شارك More sharing options...
alwasili قام بنشر مايو 8, 2017 الكاتب مشاركة قام بنشر مايو 8, 2017 17 دقائق مضت, ابوخليل said: اذا عليك ان تشرح طبيعة العمل على ارض الواقع وبالتفصيل باعتبارك تستعمل الدفاتر والسجلات الورقية 1- المدخلات 2- الاجراءت 3-النتائج تم ارفاق صورة جديدة توضح المطلوب رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 8, 2017 مشاركة قام بنشر مايو 8, 2017 طيب اخي هل تسمح لي بالتصرف بالمسميات (اسماء الحقول والجداول ) لانه من الافضل ان تكون التسميات بحروف انجليزية حتى تتمكن من قراءة الاكواد بصورة صحيحة ويسهل عليك التعلم والتطوير الذاتي علما ان جميع ما سيظهر للمستخدم سيكون بحروف عربية رابط هذا التعليق شارك More sharing options...
alwasili قام بنشر مايو 8, 2017 الكاتب مشاركة قام بنشر مايو 8, 2017 6 دقائق مضت, ابوخليل said: طيب اخي هل تسمح لي بالتصرف بالمسميات (اسماء الحقول والجداول ) لانه من الافضل ان تكون التسميات بحروف انجليزية حتى تتمكن من قراءة الاكواد بصورة صحيحة ويسهل عليك التعلم والتطوير الذاتي علما ان جميع ما سيظهر للمستخدم سيكون بحروف عربية نعم تفضل عدل كما تشاء استاذنا الكريم رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 8, 2017 مشاركة قام بنشر مايو 8, 2017 احتاج لبعض الوقت .. سأعمل لك بما يسمح به وقتي ان شاء الله فلا تستعجل الرد رابط هذا التعليق شارك More sharing options...
alwasili قام بنشر مايو 8, 2017 الكاتب مشاركة قام بنشر مايو 8, 2017 الان, ابوخليل said: احتاج لبعض الوقت .. سأعمل لك بما يسمح به وقتي ان شاء الله فلا تستعجل الرد خذ راحتك سأكون في الانتظار وتقبل شكري مقدماً رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 8, 2017 مشاركة قام بنشر مايو 8, 2017 تفضل هذه افضل واسهل طريقة اراها تناسب المشروع تفقد المثال وانظر في الجداول وحقولها وكيف تم ترتيبها تختار الكفيل وتدرج المكفولين تحت اسمه في النموذج الفرعي جرب حاول تكرر المكفول مرة اخرى عند الكفيل النموذج الفرعي يصب في جدول التفاصيل الذي يوجد فيه تفصيل التسديد من خلال هذا الجدول نستطيع بناء العديد من التقارير سواء للكفلاء او المكفولين اعمل نموذجا جديدا على جدول الكفلاء لاضافة او تعديل كفيل ايضا اعمل نموذجا جديدا على جدول يتيم لاضافة يتيم جديد او التعديل عليه بقي بعض الضوابط التي ستحتاجها مثل ضبط مواعيد السداد والتنبيهات عند قرب موعد السداد وغيرها والتي سوف تبرزها الحاجة طبعا يمكنك اعادة تصميم النماذج بما يناسب ذوق المستخدم هذه هي الخطوة الاولى وانا جاهز للعون والمساعدة yatem.rar رابط هذا التعليق شارك More sharing options...
alwasili قام بنشر مايو 8, 2017 الكاتب مشاركة قام بنشر مايو 8, 2017 11 دقائق مضت, ابوخليل said: تفضل هذه افضل واسهل طريقة اراها تناسب المشروع تفقد المثال وانظر في الجداول وحقولها وكيف تم ترتيبها تختار الكفيل وتدرج المكفولين تحت اسمه في النموذج الفرعي جرب حاول تكرر المكفول مرة اخرى عند الكفيل النموذج الفرعي يصب في جدول التفاصيل الذي يوجد فيه تفصيل التسديد من خلال هذا الجدول نستطيع بناء العديد من التقارير سواء للكفلاء او المكفولين اعمل نموذجا جديدا على جدول الكفلاء لاضافة او تعديل كفيل ايضا اعمل نموذجا جديدا على جدول يتيم لاضافة يتيم جديد او التعديل عليه بقي بعض الضوابط التي ستحتاجها مثل ضبط مواعيد السداد والتنبيهات عند قرب موعد السداد وغيرها والتي سوف تبرزها الحاجة طبعا يمكنك اعادة تصميم النماذج بما يناسب ذوق المستخدم هذه هي الخطوة الاولى وانا جاهز للعون والمساعدة yatem.rar بارك الله فيك أخي الكريم أبو خليل وأسأل الله أن ينفع بك ويجعل كل ما تقدم في موازين حسناتك وليس لنا غناً عن مساعدتكم . تقبل تحياتي . أخوكم يحيى واصلي رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر مايو 8, 2017 مشاركة قام بنشر مايو 8, 2017 استادنا / ابو خليل ادا تكرمتم ممكن شرح الكود فانا لم افهمه مع مرعاة اني مبتدأ رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مايو 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 رابط هذا التعليق شارك More sharing options...
alwasili قام بنشر مايو 11, 2017 الكاتب مشاركة قام بنشر مايو 11, 2017 في ٨/٥/٢٠١٧ at 22:23, ابوخليل said: تفضل هذه افضل واسهل طريقة اراها تناسب المشروع تفقد المثال وانظر في الجداول وحقولها وكيف تم ترتيبها تختار الكفيل وتدرج المكفولين تحت اسمه في النموذج الفرعي جرب حاول تكرر المكفول مرة اخرى عند الكفيل النموذج الفرعي يصب في جدول التفاصيل الذي يوجد فيه تفصيل التسديد من خلال هذا الجدول نستطيع بناء العديد من التقارير سواء للكفلاء او المكفولين اعمل نموذجا جديدا على جدول الكفلاء لاضافة او تعديل كفيل ايضا اعمل نموذجا جديدا على جدول يتيم لاضافة يتيم جديد او التعديل عليه بقي بعض الضوابط التي ستحتاجها مثل ضبط مواعيد السداد والتنبيهات عند قرب موعد السداد وغيرها والتي سوف تبرزها الحاجة طبعا يمكنك اعادة تصميم النماذج بما يناسب ذوق المستخدم هذه هي الخطوة الاولى وانا جاهز للعون والمساعدة yatem.rar بارك الله فيك أخي الكريم أبو خليل وأسأل الله أن ينفع بك ويجعل كل ما تقدم في موازين حسناتك وليس لنا غناً عن مساعدتكم . تقبل تحياتي . أخوكم يحيى واصلي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.