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

بانتظار النتيجة واتمنى ارفاق لقطة شاشة حية من التجربة مع رأيكم من واقع التجربة تجربة شيقة.zip

انت الاجمل اتفضل يا استاذ @Moosak جزاكم الله خيرا لتلبية دعوتى اتمنى لا تتفزع من هذا المرفق 😄 Moosak.accdb

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

الملف يحتاج بعض التعديلات ..... قمت بتعديل بعضها انظر اليوزر الاول واليوزر الثاني وكلاهما الباس 123 asd.rar

تفضل ...... تصدير للاكسيل.rar

انشاء مجلد واحد او العديد من المجلدات دفعة واحدة CreateMultiFolders.mdb

لا يوجد دالة لهذا الغرض ولكن الدوال المعرفة في vba تؤدي الغرض بعد تمرير رقم index للشيت إلى الدالة Function ShName(n As Long) As String ShName = Sheets(n).Name End Function وطريقة استدعائها لجلب اسم الشيت صاحب الترتيب 1 مثلا =ShName(1) بالتوفيق

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

السلام عليكم 🙂 برامج الاكسس ممكن ان يصيبها العطب corruption لعدة اسباب ، وبرامج تصليح العطب يجب ان تكون من ضمن مكتبة برامج المبرمج 🙂 يُعتبر برنامج DataNumen Access Repair من احد البرامج المهمة في اصلاح ملفات الاكسس المعطوبة ، والآن الشركة تعطي النسخة الاحدث 2.9 للإستعمال الشخصي الغير تجاري ، مجانا ، من موقعهم : https://www.datanumen.com/access-repair/ انزلته وجربته ، بس لاحظت ان البرنامج بطيء بالمقارنة مع بعض البرنامج الاخرى ، ولكن لا تنسى أنها نسخة مجانية (للإستعمال الشخصي الغير تجاري) 🙂 جعفر رجاء استعمل رابط الشركة حتى تنزل آخر نسخة هناك ، بينما ارفق هنا النسخة 3 (احتياطا ، اذا غيرت الشركة رأيها لاحقا والغت النسخة المجانية ، فتكون عندنا هنا النسخة المجانية 🙂 ) daccr.zip

انشاء مجلد واحد او العديد من المجلدات دفعة واحدة CreateMultiFolders.mdb

جميلة تسلم ايدك

شكر وتقدير واحترام من اخيك استاذنا ابا جودى

جرب كده ده من اعمال الاخوة بالمنتدى اضفته الى قاعدتك الباس USER 123 asd.rar

وبارك فيك ز...

تم يعطيك العافية ..................................

السلام عليكم ابا جودى عمل جميل وت جربة شيقة

الله .. الله .. الله على هذا الجمال 🤩 نورنا يا أستاذنا العزيز .. الله يزيدك من خيره وواسع فضله ..

اجعل التنسيق Medium Time

تفضل التعديل ترجمه.accdb

يزيد فضلك أخي أبا جودى زالت المشكلمة وجزاك الله خيرا

تفضل جرب هذا سيتم اخفاء الجداول و الإستعلامات Set db = CurrentDb For Each tdf In db.TableDefs If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then Application.SetHiddenAttribute acTable, tdf.Name, True End If Next For Each tdf In db.QueryDefs If Not (tdf.Name Like "~sq*") Then Application.SetHiddenAttribute acQuery, tdf.Name, True End If Next

اتفضل هنا ان شاء الله تجدون طلبكم

انسخ الملف والصقه الي الاصدار 32 C:\Windows\System32 ولإصدار 64 بت في C:\Windows\ SysWOW64 ولو مظبطش الافضل اعمل اعادة تثبيت الي الاوفس

شكرا جزيلا استاذ @أ / محمد صالح علي اهتمام حضرتك جزاك الله كل خير بارك الله فيك

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

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

فكرة جديدة لاحتساب تاريخ نهاية الصلاحية بدون بدون حتى كتابة تاريخ الصلاحية داخل الجدول ExpirationDate.mdb

احتساب تاريخ نهاية الصلاحــــــــ( Expiration Report ) ـــــية ExpirationDate.mdb

تفضل البحث بجزء من الإسم او الرقم دورة inputbox (1).accdb

عليكم السلام هذا يعني أن نتيجة البحث هي الرقم صفر وهو يساوي التاريخ المذكور ويمكنك التخلص منها باستعمال دالة if =if(vlookup(lookup_value, table_array, col_index_num, [range_lookup])=0,"",vlookup(lookup_value, table_array, col_index_num, [range_lookup])) طبعا مع تغيير معاملات الدالة VLOOKUP للموجود في ملفك بالتوفيق

ممكن مرفق مصغر للمطلوب للتطبيق

ليس هناك داع لهذا كله ضع هذا الكود في حدث اغلاق ورقة العمل كما تلاحظ وسوف يحفظ نسخة تلقائية بتاريخ اليوم .. أسهل واحسن وذلك في دليل في نفس المجلد الذي به ملف العمل .. باسم saveit ... قم بانشائه على جهازك Private Sub Workbook_Deactivate() Dim saveFilename As String Dim savedate As String savedate = Format(Date, "yyyyMMdd") Application.DisplayAlerts = False saveFilename = ThisWorkbook.Name ActiveWorkbook.SaveAs ThisWorkbook.Path & "\saveit\" & saveFilename & savedate Application.DisplayAlerts = True End Sub

أنشئت هذا البرنامج للأستعمال الشخصى فانا من قام بجلب الكلمات من احدى المواقع وقمت بترجمتها بجوجل واعرضه هنا ربما 😀يفيد احد صغير او كبير هذا البرنامج ناطق يضم اكثر 3000 كلمة انجليزية مستخدمة فى المحادثات ومترجمة ( اى من يعرفهم يفهم 90% من محادثات اللغة الانجليزية ) With 2,500 to 3,000 words, you can understand 90% of everyday English conversations, English newspaper and magazine articles, and English used in the workplace وهو يصلح ان يضع فيه اى اسئلة واجوبة للاختبار واخفاء الاجوبة او الاسئلة كما يقوم البرنامج بقراءة اللغة الانجليزية فى الخانة الاولى عند ضبط الاعدادات وهو يصلح للكبار والصغار ومراجعة المناهج يسمح ويفضل نشره او جزء منه للمنفعه العامة يحتاج البرنامج مكتبة microsoft speech object library والتى تحتوى على ملف sapi.dll واختيارها وتوجد هذه المكتبة فى الويندوز Text-to-Speech (TTS) ويجب تفعيلها وضبطها وهذا مثال بسيط فى التعامل مع مكتبة نطق النص تبديل نص الزر أخفار واظهار العناصر تمكين وعدم تمكين العناصر(السماح بالكتابة و والتعديل) التعامل مع السجلات الرسائل النصية واختيار الزر الافتراضى انشاء فلتر وتنشيطه اخفاء شاشة الاكسيس والقوائم اغلاق نموذج اخر فتح نموذج اخر طرق منع تحذيرات النظام واستعادتها التعامل مع دالة Select Case استعلام الحذف استعلام الاضافة استعلام التحديث اخفاء النماذج من التعديل اخفاء الجداول من التعديل النموذج المنقسم عمل ميكرو متعدد استخدام دالة DCount استخدام نص يعتمد على قسمة حقلين تنسيق الحقل للحصول على نسبة مئوية استخدام نص التلميح control tip text التعامل مع زر الاختيار استخدام الدالة العشوائية مع تحديد مجالها الانتقال الى سجل عشوائى تنسيق العنصر على حسب قيمته استخدام وسائل تصدير البيانات معظم الاحداث انشئت ميكرو وتم تحويلها الى vba ملحوظة يمكن استيراد البيانات الى الجدول لمن يعرف وننوه ان البرنامج يصلح للدراسة سواء كان كبير او صغير يمكن الاستفاده منه وانوه ان الترجمة حرفية يمكنك تغييرها للأفضل ان رأيت ذلك البرنامج انشئ على اكسيس 2019 64 بت وويندوز 10 نفعكم الله به للتنزيل من هنا https://gofile.io/d/7UWmB7 اضغط هنا للتنزيل من موقع خارجى او التنزيل من المرفقات 3000Words.zip

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

إخوانى الأعزاء أساتذتى وعمالقة هذا المنتدى العظيم أحببت أن أشارك معكم بموضوع بسيط بطريقة سلسة وهو طريقة حساب العمر بالتفصيل أرجوا أن ينال رضاكم Age Calculator.rar

بارك الله فيك أخ ياسر فتحي تقبل تحياتي

http://www.mediafire.com/download/2ut575z5k6q9s7h/برنامج_الكومى_لعمل_الارقام_السرية.rar تم التعديل بتاريخ 14 ديسمبر 2014

أساتذتى وأصدقائى وأحبابى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته وبعد ,,,, فكرت أن أقدم هدية الى منتدانا العريق فى العام الجديد 2015 إن شاء الله ففكرت أن أقدم موضوعا لم يسبقنى اليه أحد أو موضوع قلّ الحديث عنه (على ما أعتقد والله أعلم ) وهو موضوع تشغيل الفديو على الاكسل وهو موضوع حاولت العمل فيه من العام الماضى ولم أفلح فبحثت وصولت وجولت شرقاّ وغرباَ الفترة الماضية حتى جمعت أشلاء الموضوع المتناثرة هنا وهناك وتمكنت بفضل الله من بغيتى وها أنا أقدمه لكم هدية فى العام الجديد جعله الله عز وجل عام خير وبركة على مصر والمصريين وكافة المسلمين . ملحوظة : 1 - البرنامج لا يشغل كل الامتدادات 2- أنتظر ردودكم وملاحظاتكم . طبتم وطاب مقامكم ,,,تحياتى للجميع moktarplayer 2015 ©.rar

استاذ مختار تسلم ايديك جزاك الله كل خيراً

أستاذى ياسر الأستاذ عبدالموجود بدر السلام عليكم ورحمة الله وبركاته وبعد,,, أولا - شرفنى مروركم الكريم . ثانيا - والله ما قصدت بغلق محرر الأكواد إلا الخير . كل ما هو هنالك أنى قصدت الآتى : أ – اضافة عنصر التشويق والاثارة للموضوع . ب – اختبار مدى قوة حماية البرنامج ومدى صموده أمام طرق كسر الحماية فى الاكسل ( أدعوكم الى كسر حماية البرنامج وإخبارى ). ج – وهو الأهم أن البرنامج لازال فى مرحلة التطوير . د – جارى العمل على تشغيل معظم امتدادات الفيديو ( يمكنكم الآن تشغيل : mpeg - avi - wmv - mpg - asf ) وبعد كده يا أحباب معقوله اللى يقدم هديه لحبايبه يقدمها مفتوحة ولا يقدمها مغلفة بالسلوفان ؟!!!! ( الكلام موجه لأخى ياسر ) *** ومع كلٍ بمجرد الانتهاء من اضافة الامتدادات الشهيرة سأرفعه مفتوحاً أيضا بإذن الله تعالى سأضع معظم امتدادات الصوت وكذلك امتدادات الصورة أيضاً. كلمة أخيرة عايز أقولها للزملاء وهى أن أكواد البرنامج الأصلية صراحةً ليست لى طبعأ وانما هى حصيلة بحث طويل فى المنتديات هنا وهناك. لا تنسونا من صالح الدعاء لى وللمرحوم أبى . رحم الله موتانا وموتاكم وجميع موتى المسلمـــــــــــين .... اللهم آمين

عمل جميل ورائع ولكن كنت اتمني ان نعرف بعضالامتادات التي يقوم بتشغيلها

جزاك الله خير وجعله في ميزان حسناتك

غاية في الإبداع غاية في الروعة غاية في الجمال غاية الغاية أن تتحقق الغاية

السلام عليكم ورحمة الله أخي الكريم السيد عبد الفتاح، إن أمر عرض الصور في الإكسيل تم تناوله عدة مرات بطرق مختلفة في المنتدى... أقدم لك منها ما قدمه أخونا الكريم عمر الحسيني حفظه الله بواسطة دالة مستحدثة سماها VLOOK_PIC في الملف المرفق... ألق نظرة عليها لعلها تكون لك حلا للمسألة... وهناك طرق أخرى تجدها في المنتدى... أخوك بن علية VLOOK_PIC.rar

اشكرك استاذي الفاضل ولن ظهرت لي هذه الرسالة .....