qathi

أخي الوزير @AlwaZeeR أشكرك على جهدك وعملك الرائع يعمل بشكل جيد أذا كان حقل منفرد فقط لكن لا أعرف بخصوص أدراج أكثر من حقل يبدو أنه لم يفلح معي .. هذا مثال أتمنى منك التعديل علية Database1.rar

بارك الله فيك على ماتقدمة من عطاء نسأل الله أيتقبلها منك وأن يكون عملك هذا .. وغيرها من الاعمال صدقه جارية لك ولوالديك

ألتزاماً بقوانين المنتدى وحتى لا اطلب في الموضوع السابق أحتاج عند نقل السجل من جدول الى أخر.. اذا كان رقم المورد موجود في الجدول الاخر يتم تغيرة تلقائيا بزيادة رقم عن رقم اخر سجل في الجدول الاخير مع العلم الكود التالي للتاكد من وجود نفس الرقم من جدول الاخير If DCount("SuID", "[Contacts_T]", "[SuID]= " & Me.SupplierID) > 0 Then المطلوب كود على طريقتين كل واحد مستقل عن الاخر: الاولى: يحدث الزيادة في الجدول الاخير وليس في الاول والثانية: في الجدول الاول والثاني

للرفع ..

الله ينور عليك أخي @مسفر بالفعل نجح الأمر معي

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

شكرا استاذ @عبد اللطيف سلوم على ردك .. لكن الكود يظهر خطاء

شكرا أخي @AlwaZeeR على ردك لكن الكود لا ياتي بالنتيجة المطلوبة

عند التاكد من وجود نفس الرقم من جدول يتم عمل الكود التالي If DCount("SuID", "[Contacts_T]", "[SuID]= " & Me.SupplierID) > 0 Then MsgBox "كود المورد موجود في دليل الهاتف", vbCritical, "تنبية" فكيف سيكون في الحالة النصية للتاكد من وجود اسم معين في جدول قبل حفظ البيانات ؟؟؟

أبادلك نفس الشعور ؟؟ تعتبر من أروع أبدعات هذا المنتدى العريق .. فأعمالها خالدة في أذهاننا نسأل الله لها الخير والفلاح في الدنياء والأخرة

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

أستاذنا الغالي @أبو إبراهيم الغامدي أشكرك على كل جهد بذلته حتى وصلت لهذه النتيجة وأعتذر عن تاخر ردي لك لأ أعرف ما أقول لك لكن أما أني لم أفهم طريقتك لجهلي بها أو بسبب معرفتي القاصرة لأخفي عليك قمت بنسخ النماذج والمديول لبرنامجي وبعد كثير من المحاولات لكن لم أفلح في تطويعه لما أريد .. بسبب ظهور أخطاء عندي لأ تنتهي .. وأليك هذا الطلب لما أريد .. أذا أمكنك تعديلة - أتمنى الاستغناء عن النموذج المسمى FRM_CUSTOM_PROPERTIES لا أريده .. والاكتفاء بانواع السند التي بالحقل Stype بالنموذج SandExpense_F، وكذلك الادخال القيم بالنموذج FRM_NEW_VALUE - يوجد مشكلة لا يقبل اكثر من نوعين لنوع السند - عند وضع قيمة من LST_STYPE_VALUE في السجل الثاني للنموذج الفرعي ExpenseDate_Sub يبداء بعمل اخفاء للسجلات السابقة ولا يظهرها .. ألا بعد الكتابة اليدوية شاكر لك بذلك من وقتك ومجهود وتعاونك معي مرفق ملف للتعديل علية تطبيق قوائم المصروفات ابراهيم الغامدي 2019-7-2.rar

للرفع ..

استاذ @عبد الله قدور ممكن الملف الذي قمت بشرحة في المقطع الفيديو السابق

امين .. امين .. امين

ماشاء الله عليك يا @ابا جودى ماهذا الابداع ..؟؟ والاحلى الاسم .. سبقتنا به نتمناه كلنا ذلك ..

لا عليك @ابا جودى شفاك الله وعافاك .. طهور أن شاء الله

وهو كذلك .. لا عليك كما قلت العد سيبدا أن كتب لنا الحياة بعد عيد الفطر طبعاً أحب الهدايا جداً .. بالانتظار

والله أنت الصادق .. المعذرة منك أستاذي .. بالفعل هذه الايام مباركة ولا تعوض يكون الخير في ما اختارة الله لنا .. لا عليك ساكون بانتظارك .. في وقت تفرغك سادعو لك .. بارك الله فيك

يا @ابا جودى لا تنسى مازلت أنتظر مضى تقريباً 31 يوم

هههههههه @ابا جودى اليوم عايز منك قبل الفطور دعوة حلوه .. وبالمثل أدعو لك قبل الفطور متفقين ..

هههههههه

للرفع ..

فائدة دالة Nz للتعويض عن القيمة الفارغة محمد القاضي

تفضل @الشربيني123 ضع الكود التالي حقل نص94 =Nz([مدة_الاجازة3];0)+Nz([مدة_الاجازة2];0)+Nz([مدة_الاجازة1];0) مرفق الملف: 0.accdb