كل الانشطه

انا مش فاهم السؤال كويس لكن بقدر الامكان حسب فهمى المتواضع استخدم الكود التالى اما على مستوى النموذج او فى وحدة عامة Private m_LastForm As String Private m_LastCombo As String Public Function ToggleDropdCombo(frm As Form, ByVal strObjComboName As String) As Boolean On Error GoTo Err_Handler Dim strObjButtonName As String strObjButtonName = Screen.ActiveControl.Name If m_LastForm = frm.Name And m_LastCombo = strObjComboName Then frm.Controls(strObjButtonName).SetFocus GoTo Clean_Exit Else frm.Controls(strObjComboName).SetFocus frm.Controls(strObjComboName).Dropdown m_LastForm = frm.Name m_LastCombo = strObjComboName End If ToggleDropdCombo = True Exit Function Reset_Exit: Clean_Exit: m_LastForm = vbNullString m_LastCombo = vbNullString ToggleDropdCombo = True Exit Function Err_Handler: m_LastForm = vbNullString m_LastCombo = vbNullString MsgBox Err.Description, vbExclamation, "ToggleDropdCombo" ToggleDropdCombo = False End Function على اعتبار ان زر الامر اسمه : ToggleButtonName وان مربع السرد اسمه : ComboName يكون الاستدعاء بالشكل التالى Private Sub ToggleButtonName_Click() ToggleDropdCombo Me, "ComboName" End Sub ويستخدم نفس سطر الاستدعاء السابق مع زر أخر ومربع تحرير وسرد اخر فقط بتغير : ComboName الى اسم مربع التحرير والسرد الاخر مرفق للتجربة ComboDropdown.accdb

السلام عليكم لدي نموذج فرعي فيه اريد عند وضع الماوس أم الزر تظهر القائمة المسندلة اليكم الصورة فيها الشرح 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 ما لم تفلح معك الفكرة ، اعد رفع الملف بدون حماية محرر الأكواد إذا تكرمت .