كل الانشطه

السلام عليكم لدي نموذج فرعي فيه اريد عند وضع الماوس أم الزر تظهر القائمة المسندلة اليكم الصورة فيها الشرح 1 قاعدة بيانات.accdb _1146714590913439_8483909941377199527_n.bmp

هل توقف عمل البرنامج VBA CODE DOCTOR حاولت استخدمة و لكن تلك الرسالة الدائمة حتى بعد التكرار Error: Server Error The server encountered an error and could not complete your request. Please try again in 30 seconds. منتظر الرد

انا وجدت معادله بالبحث عنها ولكن توزع على مدار الاسبوع كاملا حتى لو اليوم لا يوجد به حصص فيمكن تعديلها لتلبية المطلوب =if( mod(m7,5)>0,Mod (M7/5)+1,Mod (M7/5)

تسلم وكلك ذوق يا غالي ربنا يهديلكم الاحوال ويهدينا جميعا لما يحبه ويرضاه

والله أجمل حاجة فيك يا ممدوح - ومن غير ما تزعل - هي صراحتك اللي بعرفها من أيام المجموعة يا فنان .. وبعدين انت بتتكلم عن ايه بالظبط هنا :- ما فيش حاجة أصلاً صدقني .. ده مجرد نكاش وهزار برمجي 😂

انا بحبكم انتم الاتنين وبعزكم فالله واللي بيعرفني فيكم كويس او لما كنت بخش علي جروب الواتس يعرف اني مدب ومبعرفش اجامل وفنفس الوقت حتي لما بختلف مع حد مبهاجمش بالعكس ببعد ( مش ضعف او هروب ) خالص دا لملاشاه الاحتكاك اولا وفنفس الوقت لان مينفعش الحب يتبدل كرهه او اسفاف والإ كان يبقي نفاق من الاول ثانيا وثالثا واخيرا زي مالناس بتتعلم منكم ومن اراءكم هتتعلم من اسلوبكم ده برضو راجعون نفسكم واسف عالاطاله

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

السادة الافاضل الرجاء عمل كود بحيث يتم استدعاء البيانات الموجودة في الشتات من 1 الي 6 في الشيت خطة الاحتياجات مجمـــــــع للمدارس ابريل 2026 بحيث يكون الكود مفتوح لعدد 150شيت او اكثر عمل كود استدعاء لاكثر من شيت.rar

أما إن كان كلامك نابع من هذه المشاركة :- ولو عاوز كامل المحادثة أرفقها برضو ، فأنا سأقوم بإرفاق نفس الملف اللي بعتهولك وهو من فكرة انت طرحتها ، وانا كنت استعملت أسلوب التشفير والتشويش لو صح التعبير على ملفك اللي انت شاركت بيه ، ويبدو إن الفكرة عجبتك لدرجة إنك ما قدرتش تفك التشفير - رغم أن الأكواد قدامك - لكنها متشفرة . أما موضوع السطر اللي انت مسكت بيه وهو كان خيطك الوحيد علشان تحاول تشوه سمعتي على الملأ . فهو مجرد واحد من مجموعة أكواد لا تعطي أي نتيجة سوى أنها تخلي أي شخص متلك يروح لحتى تانية انا رسمتهاله ( فاكر ) ، وحددتله أني عايزه يروح ليها .. يعني أمشيك بالكود على مزاجي . وحقيقة عبارتك فإنت متعب نفسك ليه ورايح وجاي وبتلف مع نفسك .. خليك شجاع وما تحاولش تجرب أي ملف أنا برفقه ، ده لو الفضول ما قتلش فيك حته كدة ولا كدة . وفيما يلي ، مقطع مصور للفكرة اللي شاركتها مع الإنسان محمد عصام ولا أياً كان اسمه الحقيقي . وحقيقة التشويش والتشفير اللي عملته 😏 وهذا الرد للمشرفين فقط علشان تكون الأمور أوضح . مع أني لست مطالب بتوضيح أو تبرير ، ولكني أمام الله قد برأت ذمتي مع أفكاري أمامكم . صلاحيات 2026.zip

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

بالفعل هذا ما أريده وهو عدد الحصص الزياده عن نصابة . بحيث يتم توزيع حصص الزيادة على مدار الاسبوع .فلو كان له ٣ ايام حضور في الأسبوع يتم توزيع ٣ حصص على ٣ايام واذا كان حضوره على مدار الاسبوع يتم التوزيع على مدار الاسبوع .وبفرض عدد الحصص ٦ والاسبوع ٥ ايام حضور يكون التوزيع كل يوم ١ حصة ويوم ٢ حصه مثال للتوضيح مثال للتوضح والمطلوب.xlsm

مباااادرة جميلة وجيدة ، على الأقل نراكم ونسعد بمواضيعكم أينما حللتم

للأسف .. لم أفهم المطلوب نهائياً !! يعني مثلاً انت تريد تقسيم العدد 3 الموجود في الخلية N9 على الخلايا من M10 - M14 ؟؟؟؟؟؟؟ لو فعلاً ما تقصده ، فعلى أي أساس ؟؟ وما الشروط ؟؟ وكيف تريد التنفيذ 🤷🏻‍♂️

شكراً لك أخي الكريم ، وأسعدني مرورك حفظك الله ورعاك ، وجزاك الله خيراً على مرورك الكريم أنا بعتذر منك جداً والله أني مش قريب منك . ومش قادر أساعدك وأديك حباية أسبرين تمنع التجلطات ، لأني شكلي مأثر فيك جداً 😟 ، وده مخليني أشعر بالذنب والله أني مش قادر أساعدك . حياك الله أخي الكريم ، فقدناك ومشاركاتكم وتفاعلكم فنذ فترة .. ونسأل الله أن لا يعيننا على أذية البشر ..

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

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

الفكرة رقم ( 2 ) عند الضغط على زر الامر تظهر الصورة عند الضغط على الصورة يفتح نموذج لتكبير الصورة عند الضغط على الصورة فى نموج يتم تكبير الصورة عند اعادة الضغط مرة أخرى على الصورة يتم استعادة الحجم الاصلى للصورة صورة قاعدة بيانات 02.zip

اتفضل عند الضغط على زر الامر تظهر الصورة عند الضغط على الصورة يفتح نموذج لتكبير الصورة عند الضغط على الصورة فى نموج التكبير يتم اغلاق نموذج التكبير صورة قاعدة بيانات.zip

انت تانى ؟ نصيحة لوجه الله تعالى الاستاذ الفاضل مثله مثل الهواة الذى لا يبحثون عن المعلومات ولا يتأكدون منها بل والأدهى من ذلك يفرحون فقط بالاكواد وما تحققه لحظيا و التى لا يعرفون عن ماهيتها شئ على المدى البعيد فى احد مرفقات التفعيل خاصته استخدم جزء يخص الكتابة على Master Boot Record : تقريبا مثل CreateFile مع \\.\PhysicalDrive0 او شئ من هذا القبيل لو لم تخوننى ذاكرتى ويشهد الله تعالى من فوق سبع سموات على ذلك اخبرت سيادته آنذاك الوقت ان هذا الاستخدام بتلك الطريقة لذلك الكود يسبب مشاكل وتلف فى الهارد ديسك ولكنه لم يقتنع ... وهو حر طبعا له على النصيحة لا اكثر من ذلك ولا أقل وقدمتها لوجه الله تعالى وطبعا ده مش بيحصل بالصدفة ده بيكون : متعمد تصميم سيء جدا ولكن لن نسئ به الظن ونتهمه ان هذا متعمد لذلك وجب التنويه من باب الاحتياط ونصيحة لوجه الله تعالى على وجه العموم عدم محاولة تجربة اى اكواد تخص الكتابة على الهارد ديسك غير معروفة أو غير مفهومة حتى يتم التأكد من هذه الاكواد عدم محاولة تجربة قواعد مشفرة Accde وغير مقروئة ولا يمكن الوصول الي الاكواد فيها لمعرفة ماهيتها ... منعا لوقوع الاضرار طبعا الموقف اللى صار بينى وبين سيادته اشهد الله تعالى واقسم بالله تعالى والله وتالله وترب الكعبة انه حصل لو هو حابب يكذبنى هو حر ويتحمل الذنب امام الله واللى يشكك فى كلامى يبحث ويسأل اهل العلم والله الموفق

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

ماشاء الله تبارك الله الحقيقة عمل جبار وابداع وفقك الله ونفع بك وبعلمك اخي الكريم @Foksh

السلام عليكم لدي نموذج يوجد فيه أزرار أريد عند الضغط على الزر ضورة 1 تظهر الصورة 1 داخل النموذج الاصفر وهذا عند الضغط على الزر صورة2 تظهر الصورة 2 داخل النموذج الاصفر وعند الضغط على الصورة داخل النموذج الاصفر تكبر الصورة صورة قاعدة بيانات.accdb

ماشاء الله تبارك الرحمن الله يقويك ويعطيك العافيه يارب ويحفظك ربي ونفع بك الناس

أخي @بلانك ، بعد السلام عليكم ورحمة الله وبركاته .. الأصل ان ترفق ملفك غير محمي بكلمة مرور لمحرر الأكواد . نظراً لأن العمل لن يكون في المعادلات كونك تستعمل الدائرة Shape . لذا ترفق بنا فيما بعد لتلافي هذا الخطأ أيضاً عليك اختيار عنوان صحيح وذو دلالة للمطلوب . وليس عنواناً مبهماً استفسارياً ، حتى لا يتعرض موضوعك للإغلاق مخالفاً لقواعد المشاركات .. وعليه ومن خلال النظر للملف ودون محاولة مني لكسر حمايته ، جرب الدالة التالية واستدعيها في زر خاص بها :- Sub CountShapesPerRow() Dim ws As Worksheet Dim shp As Shape Dim r As Long Dim countRow(10 To 14) As Integer Dim countRow2(18 To 22) As Integer Set ws = ThisWorkbook.Sheets("Sheet1") For Each shp In ws.Shapes For r = 10 To 14 If Not Intersect(ws.Range("C" & r & ":J" & r), shp.TopLeftCell) Is Nothing Then countRow(r) = countRow(r) + 1 End If Next r For r = 18 To 22 If Not Intersect(ws.Range("C" & r & ":J" & r), shp.TopLeftCell) Is Nothing Then countRow2(r) = countRow2(r) + 1 End If Next r Next shp For r = 10 To 14 ws.Range("M" & r).Value = countRow(r) Next r For r = 18 To 22 ws.Range("M" & r).Value = countRow2(r) Next r End Sub ما لم تفلح معك الفكرة ، اعد رفع الملف بدون حماية محرر الأكواد إذا تكرمت .

الكثير منا حاول استعادة تطبيقات ومشاريع له موجودة على الإنترنت بهدف التعديل والتطوير . وبعد الإستفسار الذي طرحته في هذا الموضوع هنا - ولم أجد حلاً مجانياً سوى مقترحات الإخوة ( مشكورين جميعاً ) - كان هناك العديد من المقترحات حول برامج وأدوات مدفوعة تتطلب اشتراكاً مقابل مبالغ مادية عالية جداً ؛ رغم كفاءتها لمن جربها ونصح بها . لذا كانت خطوتي الأولى بالتوجه لكسر حماية آكسيس عند التعامل مع ملفات Accde\Mde حصراً ، بأنها لا تسمح لنا سوى استعادة الجداول والاستعلامات تقريباً . وهنا تمت منافسة العديد من هذه البرامج والأدوات كخطوة أولى - في الشرق الأوسط - وعربياً ، بأنه لا احتكار بعد اليوم للأجانب في مثل هذه الأدوات . وعليه فقد قمت بإطلاق الإصدار الأول من هذه الأداة بأسلوب بسيط جداً لاستخراج مكونات قاعدة البيانات كاملة ( بدون أكواد الـ VBA ) ، توفيراً للوقت والجهد في البدء من نقطة الصفر . ودون الإطالة ، دعوني أدخل صلب الموضوع :- مميزات الأداة :- 1️⃣ الأداة بعد تجربتها على عدة إصدارات ، أصبحت قادرة على التعامل مع الإصدارات من أكسيس 2000 وحتى آكسيس 365 بفضل الله . 2️⃣ الأداة قادرة على التعرف على تفاصيل قاعدة البيانات الـ Accde بإحصاء عدد مكوناتها ( جداول وتقارير ونماذج ومديولات واستعلامات ) ، وإصدار الأوفيس تقريباً بنسبة 80% من خلال الزر Get Version . 3️⃣ الأداة قادرة على فتح وضع التصميم للنماذج والتقارير في صيغة الـ Accde من خلال الزر Dump Access . 4️⃣ الأداة أيضاً قادرة على استخراج جميع المكونات لقاعدة البيانات Accde بعد كسرها ، من خلال الزر Crack File ، واستيرادها إلى قاعدة بيانات جديدة فارغة خالية من أي حماية او أكواد VBA . 5️⃣ من خلال الزر DNA DB File ، ستصبح الأداة قادرة على تحليل الشيفرة الوراثية ( اسم أطلقته على هذه الوظيفة ) ، وجلب كافة أكواد الـ VBA للمشروع كاملاً متكاملاً كما هو في أصله ، قبل حفظه بصيغة Accde . ( قيد العمل وتستغرق وقتاً لبناء مكتبة خاصة بها مبنية على ملف VBA7.Dll ) . 7️⃣ الأداة تدعم التحديث الهوائي OTA - فكرة نفذتها سابقاً - حال صدور أي تحديثات جديدة . لذا لا حاجة لحذف الملف وتحميل الإصدار الجديد ، وستعمل النسخ المفعلة كما كانت عليه دون تأثر . طريقة العمل على الأداة :- 1️⃣ بعد فتح الأداة ، ستكون المدة التجريبية لها 7 أيام . ومن ثم تفتح لكم الواجهة الرئيسية . ونبدأ بالزر الرئيسي Recovery الموجود أقصى يسار الواجهة في الأعلى . 2️⃣ سيظهر لنا الزر Select DB لاختيار ملف قاعدة البيانات . 3️⃣ يجب إختيار إصدار أوفيس المتوافق مع الملف الذي تم اختياره سابقاً ، من الجزء Select DB File Version ، بشكل يدوي . 4️⃣ لتجربة فتح وضع التصميم ، جرب الوظيفة في الزر Dump Access . وسيتم انشاء المجلد FokshDump على سطح المكتب . وعند انتهاء الأداة من وظيفتها ، اذهب للمجلد وافتح قاعدة البيانات الناتجة وجرب وضع التصميم - واستمتع 😎 . 5️⃣ لتجربة استخراج جميع المكونات ( جداول ، تقارير ، نماذج ، ماكرو ) ، بعد اختيارك لقاعدة البيانات واختيار الإصدار المتوافق معها ، فقط ما عليك سوى النقر على الزر Crack File . وستلاحظ أن المشروع الذي اخترته تم فتحه تلقائياً ويتم معالجته وإعداده لمرحلة الكسر وحذف بصمة مايكروسوفت أوفيس منه لينتقل الى مرحلة الإستيراد الكاملة . لذا اتركه يعمل كما يريد ( ستلاحظ انه يقوم بفتح التقارير والنماذج واغلاقها تلقائياً والتعامل مع الرسائل .... إلخ تلقائياً ) . لذا لا تقاطعه عزيزي المستخدم 😁 . 6️⃣ تستطيع في أي مرحلة النقر على الزر Stop لإيقاف العملية كاملة . واجهة الأداة :- تفعيل الأداة :- 💢 تركت المجال لتجربة الموضوع الذي طرحته سابقاً هنا ، لتجربة التفعيل بشكل كامل على مستخدمين متعددين ، لمن يرغب 😎 . تحميل الأداة :- لإصدارات آكسيس 64 بت ، في المرفقات ، وتعمل بشكل سليم .. للإصدارات آكسيس 32 بت ، لإجراءاتكم بالتجربة .. الواجهة مقتبسة من برنامج AccessFIX المدفوع . Accde Dumper.zip Accde Cracker - 32.zip