Ahmed_J

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

اخي العزيز قلت لك توجد عدة طرق لاستيراد ملف الاكسل من الاكسس والاكواد تختلف حسب نوع الاستيراد اول شيء لابد انك من عندك قاعدة بيانات اكسس مع ملاحظة التالي: 1- هل لديك جدول بالاكسس مشابة لجدول الاكسل وعاوز تنزل البيانات فيه 2- ام عاوز كود لتكوين جدول لتنزيل البيانات فية ارجو ارفاق ملف لكي يتم التعديل عليه تحياتي لك

السلام عليكم توجد اكثر من طريقة لاستيراد ملفات الاكسل الى الاكسس احدى هذه الطرق هذا الملف لاحد الاخوة بالموقع اول شيء تختار مسار الملف ثاني شيء تختار اسم ورقة العمل من القائمة المنسدلة تحت مسار الملف ثالث شيء تضغط على البيانات من ملف اكسل اتمنى ان يكون المطلوب Ju_ Import Frome Excel File.rar

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

السلام عليكم استاذ @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