نجوم المشاركات

إنتهيت ولله الحمد.. تم التطبيق والعمل بنجاح أخواني @ناقل @ابا جودى @محب العقيدة .. فقط ينتبه لنقطة مهمة وهي : حقل الإيميل يجب أن يكون نص قصير وليس إرتباط تشعبي XX تفاديا لحدوث الأخطاء .. وكذلك برنامج الآوت لوك يكون مفتوح أثناء الإرسال .. أرفقت الملف للتجربة .. وهذا دليل على النجاح ولله الفضل والمنة : هذا شكل النموذج : Course certificates -Mohd+Moosa.rar

اليك المرفق ان اعجبك نتابع ونكمل باقي الحاجيات تحياتي asso.xlsm

السلام عليكم مشاركة مع احبائي الكرام ناقل عند الضغط علي الزر الاول يختفي الباقي وعند اعادة الضغط عليه يظهر الجميع د.كاف يار عند الضغط علي الزر الظاهر يختفي ويظهر التالي له مع اخفاء الباقي ومشاركتي و ارجو ان تكون مشاركة مفيدة عند الضغط علي اي زر يختفي الباقي وعند الضغط عليه مرة اخري تظهر جميع الازرار الازرار.accdb

السلام عليكم هذا برنامج كشوف المناداة توزيع كل الطلاب كل 3 لجان فى صفحة على خير ما تحبون تفضلوا مع إبداء الآراء يعمل على 2007 ونسخة ل 2003 توزيع اللجان.zip توزيع اللجان2003.zip

اعرض الملف ToolTip - تلميح داخل مربع النص مع علامة مائية عند التركيز - يختفى كل من التلميح والعلامة المائية بمجرد كتابة البيانات داخل مربع النص أو عند فقدان التركيز اذا كان مربع النص لا يختوى على اى قيم صاحب الملف ابا جودى تمت الاضافه 19 أكت, 2021 الاقسام قسم الأكسيس  

من خلال هذا الرابط ستجد حدود جميع مكونات مايكروسوفت أكسس .. (أقصى حد للجداول والاستعلامات والموديولس والماكرو وعدد الحقول وعدد العناصر ووووو… الخ ) https://support.microsoft.com/en-us/office/access-specifications-0cf3c66f-9cf2-4e32-9568-98c1025bb47c

شكرا جزيلا علي المجهود الاكثر من الرائع

أخ hassona229 ياخي ايش اقول، ربي يجزاك خير كل شيء تمام و الكود شغال ربي يحفطك أن شاء الله ما قصرت

تفضل اخى وعذرا لانى اعمل على الهاتف With WS.AutoFilter.Sort .SortFields.Clear .SortFields.Add Key:=Range("b3"), Order:=xlAscending .Apply End with Application.ScreenUpdating = True

كما قلت لك استخدمت الامر فاعطاني رسالة ان غير مدعوم بصيغة بي دي اف على كل حال ارسل لك مرفق يرسل بصيغة rtf لكل شخص تقريره الخاص به وانت قم بلصقه في القاعدة التي عملها الاستاذ ابا جودي 484251183_sendemail.accdb

قبل هذا السطر في الكود ( الكود في مشاركتى ) Application.ScreenUpdating = True ضع هذه السطور WS.AutoFilter.Sort.SortFields.Clear: .SortFields.Add Key:=Range("b3"), Order:=xlAscending: .Apply ليصبح لكود هكذا WS.AutoFilter.Sort.SortFields.Clear: .SortFields.Add Key:=Range("b3"), Order:=xlAscending: .Apply Application.ScreenUpdating = True

بالضبط انا اقصد موضوع التشفير لا ينفع خاصه انه مجرد جهد لا داعي له في حال تم كسر الحماية ,, نسئل الله التوفيق للجميع ,, بخصوص الحماية كنت اقرة عن حاجة اسمها حماية المستخدمين الموجوده في الاكسيس لكنها تعمل في النسخ القديمة فقط ولا تتوفر في النسخ الجديده وحمايتها بصراحتها افضل شيء في الاكسيل حيث لا يمكن للشخص التعديل وا فتح اي نموذج اذا لم يصرح له لكن للاسف لا اعرف فيها الكثير ,, لكن احاول ان ابحث عن هذه الطريقة

يعني اضافة القيمة الجديدة على القيمة السابقة وليس استبدال الامرين مختلفين ؟😕

تفضل فاتورة .xlsm

وعليكم السلام 🙂 عملت استعلام الالحاق مرة اخرى ، وكل شيء اشتغل تمام 🙂 الظاهر انك خاسيت الاعدادات ، وشيء منها ما عجبته السالفه 🙂 حعفر 1407.استعلام التحديث.accdb.zip

نعم ، والبرنامج في العمل قبل كورونا بسنة 🙂 كلامك صحيح ، ولكني لا اقوم بتوليد هذا الرقم ، مجرد اني اقرأه من الجواز او الهوية ، كما هو 🙂 جعفر

بعض أسئلة الاستبيانات تكون ايجابية و الاخرى سلبية ، و فى حال رغبت فى اخذ متوسطات لاجابات محور معين يضم اسئلة سلبية و ايجابية ، يجب عكس النتائج الرقمية المناظرة لقيمة الرد، فمثلا الاصل فى حالة مقياس ليكارد الخماس أن تكون اجابة اتفق جدا = 5 و اتفق = 4 ، .... و هكذا ، فاذا كانت الاسئلة كلها ايجابية و هناك سؤال سلبي فهنا يجب تعديل القيم لاجابات هذا السؤال لتكون اتفق جدا = 1 ، اتفق = 2 ، ... قبل اجراء اية عمليات حسابية على المحور مثل حساب المتوسط مثلا. و اذا كان التفريغ يدويا فيمكن مراعاة ذلك ، اما فى حالة استخدام ادوات الكترونية لجمع الاستبيان فان الارقام تكون مسجلة بالفعل و يجب تعديلها ، و قد تكون العملية مرهقة فى حالة تعدد المتغيرات او كبر حجم العينة. و بالطبع يمكن تعديل الاسئلة لتكون فى نفس المحور ايجابية او سلبية ، و لكن فى بعض الاحيان يكون من الاسهل على مجيب الاستبيان الاجابة عن الصيغة الايجابية او السلبية بحسب المتعارف عليه في بعض مجالات التخصص ، فبصرف النظر عن صحة وجود اسئلة سلبية و ايجابية فى نفس المحور ، للقيام بعملية تعديل (عكس) نتائج عدد من الاجابات لتحويلها من ايجابية الي سلبية بصورة الية ، قمت باعداد دالة فى الاكسيل لتقوم بهذا الغرض (مرفق المثال). لنفرض ان الاجابات الاصلية كانت عن درجة الاتفاق مع كون وقت المشروع مناسب ، و اردتا تغيير الاجابات لتعبر عن كون زمن المشروع غير مناسب كما هو مبين: و ذلك عن طريق استخدام الدالة التالية: Function Reverse_Ordinal2(original_Ordinal As Byte) Dim newVal As Byte Select Case original_Ordinal Case Is = 1 newVal = 5 Case Is = 2 newVal = 4 Case Is = 3 newVal = 3 Case Is = 4 newVal = 2 Case Is = 5 newVal = 1 Case Else newVal = 0 End Select Reverse_Ordinal2 = newVal End Function مرفق المثال و لتشغيله يجب تفعيل الماكرو فى ملف الاكسيل و يتم ادراج الكود فى ملف اخر عن طريق فتح شاشة محرر البيزيك ALT+F11 ثم : السحب للملف الحديد او اختيار ادراج موديول جديد و نسخ الكود او استخدام الدالة و الملف المرفق مفتوح و اذا لم يكن لك خبرة بالتعامل مع الكود ، و لا ترغب فى ذلك ، يمكنك استخدام الملف المرفق مباشرة للتحويل و سحب أو نسخ الدالة للاسفل لتمتد لعدد الاسطر المطلوب ، مع مراعاة تفعيل الماكرو عند فتح الملف لتعمل الدالة ReverseOrdinalLekerd.xlsm

طيب علشان لو حابب تنقل التعدل لقاعدتك انت هذا الروتين الذى تم اضافته الى الموديول والذى ينشئ مسار للصورة تبعا للرقم الشخصى Public Function ImgPath(ByVal intProNo As Integer) ImgPath = CurrentProject.Path & "\Library Files" & "\Pictures\" & intProNo & "\" & Dir(CurrentProject.Path & "\Library Files" & "\Pictures\" & intProNo & "\") End Function وفى مصدر بيانات النموذج والجدول كذلك تم عمل استعلام واضافة الجزء الذى يستدعى الروتين كالاتى ImgPath([PersonalNumber]) وقمت بعمل تسمية لهذا الحقل فى الاستعلام ليكون الحقل باسم Pic فيكون السطر السابق من الكود بالشكل Pic : ImgPath([PersonalNumber]) وفى كل من النموذج , والتقرير نجعل عنصر التحكم فى الصورة يساوى الحقل Pic

تفضل ...... الازرار.accdb

تفضل التعديل الازرار.accdb

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

بسم الله هذا آخر تعديل، اللهم افتح على أخي نزار وسدده في أموره. وهذا شكل جديد لملف الإحصائية الشهرية (التفاصيل داخل الملف) علمًا بأني سأجعل ملفات المشرفين في الون درايف وسأجعل هذا الشيت المرفق لكم هناك واربط ملفاتهم مع هذا الملف. وحاليا الذي أفكر به معادلة (sum) وأربطه بجميع الملفات، صحيح راح يأخذ مني وقت، لكن ربما هذه هي الطريقة الوحيدة!! نسأل الله أن يفتح علينا وعليكم. كشف الغياب - المعدل.xlsm إحصائية الغياب الشهرية - بشكل جديد.xlsx

أحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد http://www.officena.net/ib/index.php?showtopic=44506 http://www.officena.net/ib/index.php?showtopic=46612&page=1 http://www.officena.net/ib/index.php?showtopic=47476&p=299772 http://www.officena.net/ib/index.php?showtopic=49929 . كلمة المرور للدخول 123 ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال أترككم لتجربة البرنامج بانفسكم وارحب بمشاركتكم في اية استفسارات او تعديلات وفقنا الله واياكم للصالحات وجمعة مباركة ادارة الاشتراكات V2.rar

السلام عليكم هذا ملفك وبه الكود اضغط زر RUN وشاهد النتائج برنامج تسيير المدرسة_111.rar

تفضل يا أخي Manage Subscriptions By Dahy al Gharieb.rar

استاذنا الفاضل جمال لا اجد الكلمات لاعبر بها عن سعادتى للتواصل مع شخصكم الكريم ولا تعرف كم السعادة التى اشعر بها من خلال هذا التواصل صحيح ان الاعمال التى عن طريقها يتم التواصل مهمة إلا ان التواصل فى حد ذاته اهم عندى فمثلاً كما تعلم الاستاذ طارق قد اتحفنا بكود رائع ويؤدى العمل به إلا ان التواصل مع خبراء المنتدى كشخصكم الكريم هو اسمى شئ فى هذاالمنتدى وبخصوص الملف الفكرة ببساطه ان يقوم البرنامج بالبحث فى عمود السداد واذا وجد كلمة لم يسدد يقوم بنسخ بينانات العميل وبيانات القسط الفقط الذى لم يتم سداده وقد قمت بعمل حصر يدوى بالنتيجة المطلوبة بعد تحديد خانة بتاريخ الحصر تقبل منى كل حب واحترام ترحيل مبيعات القسط التى جاء ميعاد استحقاقها_222.rar

أخى الحبيب ( admbrk ) لقد قمت بتنفيذ طلب حضرتك فور قرائتة ولكن وقفت بعد الإنتهاء من العمل حيث واجهتنى مشكلة وهى: أولا- أى عمود أقساط سأخذة لعمل شرط السداد أو عدم السداد ( هل القسط الأخير أم عدم سدادة من البداية ) ثانيا - لو أخذت البداية ( أى لم يسدد من بداية القسط فهناك من سدد القسط الأول ولم يسدد أقساط أخرى ؟ ) على العموم سأقوم برفع المرفق الذى تم عملة على عدم سداد القسط من بدايتة وإن لم يكن ) تستطيع حضرتك تغيير عمود القسط وربطة بخلية الشرط كما تحب ) ترحيل مبيعات القسط التى جاء ميعاد استحقاقها 2.rar

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