Ahmed_J

السلام عليكم اتفضل هذا رابط الموضوع اتمنى ان يكون المطلوب تحياتي

السلام عليكم استاذ @jjafferr الله يبارك فيك شكرا للمعلومة الرائعة اردت صاحب الموضوع استاذ @kanoryا ن يقوم بالتصحيح لان واضح انها دالة ثانية لانها منتهية End Sub لكي نقوم بالتجربة النهائية تحياتي للجميع

UP

السلام عليكم اولا انا احب العمل بالوحدات النمطية لاني اعمل وحدة نمطية واحدة لكل النماذج وبصراحة لااعرف سيئات ذلك ثانيا حسب طلبك تقول الحساب في الوحدة النمطية وانت تريد التعامل مع النصوص ( ابتدائي واعدادي وثانوي وتمهيدي وابناء عاملين ) المهم اخي العزيز من الافضل ان ترفق ملف توضيحي لطلبك وحسب فهمي لطلبك يمكن استخدام دالة Select Case او دالة IF في الوحدة النمطية تحياتي

السلام عليكم اساتذتي الاعزاء ظهر لي خطا في Module1 الاولى بعد End Function كما في الصورة تحياتي للجميع

تفضل اخي الكريم استخدم دالة nz او اجعل قيمة افتراضية للحقل =0 المجموع: Nz([num1];0)+Nz([num2];0) New Microsoft Access قاعدة بيانات.accdb

السلام عليكم استاتذتي الاعزاء ارجوا تحميل الملف بصيغته النهائية بعد التعديلات والذي يدعم اللغة العربية وفقكم الله وجعلها في ميزان حسناتكم تحياتي للجميع

استاذ @ابو البشر انا عملت نفس الكود لكنني لم انتبه الى (زر التمكين) شكرا لك

تسلم استاذ @Khalf لانني رايت النموذج الخاص بي في مثالكم قلت يمكن؟؟؟ اجد طلبي انا اعتذر منك تحياتي

حاولت استاذي @ابو البشر لكن تبقى القائمة المنسدلة فعالة وغير مغلقة ☹️ تحياتي

بارك الله فيك استاذ @Khalf عاشت ايدك على المجهود الكبير للتوضيح عن طلبي السابق مرفق ملفين الملف الاصلي والملف الجديد الملف الاصلي فيه كود للبحث في النموذج الرئيسي والنموذج الفرعي وهو يعمل جيدا اردت فقط ان انقل عملية البحث والحقول الى نموذج جديد (نموذج البحث المتقدم) بحث يكون مثل بحث نظام الاكسس عن طريق نموذج اخر كما في الصورة تحياتي الملف الاصلي.rar الملف الجديد.rar

السلام عليكم استاذ @ابو البشر بارك الله فيك ارجوا منك اكمال الكود بحيث لانستطيع التعديل على القائمة المنسدلةنفسها تصبح غير قابلة للتعديل كما في الصورة

لسلام عليكم اساتذتي الاعزاء مرفق برنامج لاستاذة ( ام عهود) الله يحفظها لاحتساب الاقساط الشهرية المطلوب: في حقل القسط عندما نختار (تم الدفع) يصبح السجل في النموذج المستمر غير قابل للتعديل (Me.A.Enabled=False) وشكرا لكم za-AKSAT-Pro-LAST- (1).mdb

السلام عليكم تفضل استاذي العزيز حقل محسوب IIf([نوع الحركة]="شراء";[الكمية]+([كمية مجاني]*[الشد]);0) test1.accdb

تدلل استاذي العزيز بالخدمة تحياتي

استاذي العزيز المشكلة عندك بالنماذج لاتقرا السجلات كان النماذج غير مرتبطة بالجداول ايفونة البحث تعمل بصورة طبيعية الحل : من بيانات - ادخال البيانات - قم بتغيير نعم الى لا (قم بتعديل كل النماذج بنفس الطريقة) تفضل الملف بعد التعديل اتمنى يكون المطلوب تحياتي بيانات الموظفين.rar

بارك الله فيكم استاذتي الاعزاء استاذ @jjafferr استاذ @Eng.Qassim جعلها الله في ميزان حسناتكم تحياتي

السلام عليكم لدي نموذج فية رقم (عدد صحيح) مكون من 6 مراتب المطلوب: تقريب الرقم الى اقرب الف (ثلاث مراتب فقط) تحياتي للجميع test.accdb

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

عند فتح النموذج FrmMain يفتح FrmNotReg وهذا Activation Number 00000000-0000-0000-0000-00241D23C84C

استاذ @ابو جودي بيفتح عادي جدا ثم قمت بنسخ الملف الذي فتحته بالجهاز الاول الى جهاز ثاني وبيفتح عادي تحياتي لك

اخي العزيز هذا الكود يعمل شو هي المشكلة عندك فية Dim X Dim i i = DLookup("[الاسم]", "BeneficiaryT", "[card]=[رقم الهوية]") & " " & DLookup("[اسم الاب]", "BeneficiaryT", "[card]=[رقم الهوية]") & " " & DLookup("[العائلة]", "BeneficiaryT", "[card]=[رقم الهوية]") X = DLookup("[رقم الهوية]", "BeneficiaryT", "[card]=[رقم الهوية]") If Not IsNull(X) = True Then MsgBox "رقم الهوية" & " ( " & [card] & " ) " & " تم تسجيله مسبقاُ" & "بأسم" & " " & i, vbCritical, " تنبيه" Undo DoCmd.FindRecord X Else: Exit Sub: End If DoCmd.RefreshRecord

عاشت ايديكم استاتذي الاعزاء بارك الله فيكم وجعلها في ميزان حسناتكم طلبي بسيط والله (فتح نموذج البحث المتقدم ويكون البحث في النموذج الرئيسي والفرعي معا) يعني البحث عن اسماء رب العائلو وافراد العائلة معا وانا لااعرف كيف ربط بين النموذج الفرعي والرئيسي لكي يتم البحث تحياتي لكم

شكرا جزيلا لكم استاذ تي الاعزاء بارك الله فيكم لي طلب اخير في حقل القسط عندما نختار (تم الدفع) يصبح السجل في النموذج المستمر غير قابل للتعديل (Me.A.Enabled=False) وشكرا لكم

up