qathi

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

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

شكرا أخي @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

أستاذ @أبو إبراهيم الغامدي تفضل الملف .. طبعاُ أعمل على أوفيس 2016 32Bit Database1.accdb

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

موضوع جميل .. أرى أخي @ابا جودى عندما تتحدث عن الأصدار فأنك تتحدث عن أصدارات ماذا عن أصدار 2007 وما فوق

قبل كل شيء كل الشكر والتقدير لك أستاذنا الرائع @أبو إبراهيم الغامدي ماأدري ما أقول لك لكن .. أبداع ماشاء الله جربت المثال مرة أخرى لكن على عجالة بدون تفحص وتمعن لكن وجدت أشكاليتين هما: أولاً: يقوم بتجميع القيم في سطر واحد .. أنظر للصورة ثانياً: في حالة كنت أريد التطبيق في أكثر من قائمة ListBox فكيف يكون الأمر .. أتوقع أنك قرائت كل الردود السابقة لهذه المشاركة مرفق الملف للتطبيق D3.accdb

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