كل الانشطه

ما شاء الله لا قوة إلا بالله زادكم الله من فضله

أستاذنا العبقرى / عبدالله بشير عبدالله سلمت يداك وزادكم الله من فضله

اخي @المهاجر ابو معاذ تم تعديل المرفق ليعمل بعد نقر زر التعديل اخي العزيز @Foksh دعني أخالفك الرأي في كلامك هذا يفترض بالكود أن يكون في الحد الأدنى من التكرار وطالما أنك قمت في جملة If بالتحقق من الشروط وتعيين خاصيتي السماح بالتعديل والسماح بالحذف في النموذج الفرعي هذا يعني أنه عند إنتهائها أي في End If يكون قد تم النحقق من الشروط وتعديل الخاصيتين وما قمت به أنا هو أني أخذتها عالجاهز وقمت بتعيين نفس النتيجة للنموذج الرئيسي وللتأكد لو راجعت نتائج التعديلين (الخاص بي والخاص بك) ستجد أنها نفس النتيجة وذلك لأنه لم يتم إجراء التعديل على كود النقر على الزر تحياتي بعد التعديل.rar

جزاك الله كل خير

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

وعليكم السلام ورحمة الله وبركاته تم تعديل تعبئة الكموبكس بالعناصر منعا للتكرار وكلما اضفت لونا او مفاسا او صنفا جديد سيتم اظافته للقائمة تلقائيا جرب واعلمني بالنتائج 1فلتر.xlsm

شكرا استاذ عللى التعب من اجل المساعدة والوصول الى حل يرضي لديا ملاحظات بسيطة : - بخصوص التقرير 6 لايلزم اخفاء البينات الاخرى بل اظهر الخطوط من k1 الى k8 اخفاء الخط يتم الا في السطر الذي به بيانات النقل فقط اعرف ان الامر صعب استاذي العزيز ولكن لايصعب على الخبراء نفعنا الله بعلمهم المشكلة انه يظهر كل البنات الاكبر من 18 سنة وهذا معقول ولكن فما بنات متزوجات فكيف يتم اخفائهن في التقرير 7 حاولت التعديل على الفورم A3 وعملت فيه فورم فرعي A3_SUB لكي اخدد فيه البنات التي يتم اظهارهن في التقرير 7 فلم افلح وفقكم الله وسدد خطاكم

جرب المرفق توجد 9 حصص دين بدون عربى OK جمع بشرطين.xlsx

السلام عليكم و رحمة الله و بركاتة الزملاء الكرام وأعضاء المنتدى الموقرين، تحية طيبة وبعد، نتشرف بإبلاغكم، بفضل الله وتوفيقه، اكتمال المرحلة التطويرية النهائية لتطبيقنا المبارك: [القرآن الكريم]. نأمل أن يكون هذا العمل وقفاً رقمياً مستداماً، وأن يكتب أجره لمن ساهم في إنجازه مادياً وتقنياً. دعوة للمراجعة الفنية وضمان الجودة (Quality Assurance): قبل الإطلاق الرسمي والتعميم، ندعوكم، خاصةً من ذوي الخبرة التقنية والمستخدمين المتمرسين، لتحميل النسخة التجريبية والمشاركة في مراجعتها بدقة وعمق. إن الهدف الجوهري من هذه المرحلة هو: ضمان جودة الأداء: والتأكد من توافق التطبيق مع المعايير التقنية واحتياجات شرائح المستخدمين المتنوعة. تحديد نقاط التحسين: واكتشاف أي مواطن خلل أو قصور فني ووظيفي يتطلب تعديلاً. تحقيق التكاملية: للوصول إلى أفضل تجربة مستخدم ممكنة. نؤكد استعداد فريق العمل لدمج وتطبيق الملاحظات البنّاءة التي تصب في مصلحة الهدف العام للتطبيق، مع الالتزام التام بإعادة نشر النسخة المحسّنة والموثقة لجميع المساهمين والجمهور، تحقيقاً لمبدأ "الصدقة الجارية والمنفعة العامة". ختاماً، ندعو المولى عز وجل أن يتقبل هذا الجهد المشترك وأن يجعله في ميزان حسنات كل من شارك في بناء هذا العمل وفي تحسينه ونشره. مع خالص التقدير والامتنان، حسين الحمادي ابو يوسف القران الكريم.xlsm

السلام عليكم مطلوب معادلة لجمع عدد الحصص لمادة معينة ( اللغة العربية مثلا )لصف معين ( الصف الأول مثلا) المواد موجودة في العمود (E) و رقم الصف الدراسي موجود في العمود (D) و عدد الحصص المطلوبة جمعه بالشرطين موجود في العمود (I) و النتيجة المطلوبة كالتالي عدد حصص اللغة العربية للصف الأول هي عدد حصص اللغة العربية للصف الثاني هي جمع بشرطين.xlsx

السلام عليكم ورحمة الله اللاخوة الكرام الملف المرفق يوجد بداخله فورم رقم 1 اريد ان اقوم بعمل فلترة بداخله كما هو موضح اقوم بتحديد عدة اختيارات من داخل combo box واظهارها النتيجة داخل list box كود العميل العمود رقم A واللون العمود رقم E بمعنى اظهار عدد 2 عمود فقط داخل الليست بوكس واكون شاكر لحضراتكم فلتر.xlsm

نعم أخي الكريم 👌🏻

السلام عليكم ورحمة الله أعتقد أن المعادلة (وهي معادلة صفيف أي يجب تأكيدها بـ CTRL+SHIFT+ENTER) تكون بالشكل التالي: =IFERROR(INDEX('01'!C$7:C$1020; SMALL(IF(('01'!O$7:O$1020=TRANSPOSE({"محول إلى";"محولة إلى"})); ROW('01'!O$7:O$1020)-6); ROWS($A$1:A1))); "") أو =IFERROR(INDEX('01'!C$7:C$1020, SMALL(IF(('01'!O$7:O$1020=TRANSPOSE({"محول إلى","محولة إلى"})), ROW('01'!O$7:O$1020)-6), ROWS($A$1:A1))), "") والله أعلم

مشكورين ولكم خالص التحية والتقدير

نضيف قنوات يحتاج لك قائمة قنوات من مجموعات الى قنوات مع البحث والمفضلة وتحديث الروابط بجدول بسيط تسلم الانامل استاذ @Foksh ينقصها فك سرفرات

توسيــــــــــــــــــــــــــع واستكمال 1- استكمال ادوات التحكم بحجم المؤشر وطول النص والمساف لكل نص 2- زيادة المؤشرات من 10 الى 120 نص ومؤشر يلتف مره واحد كمجموعات اذا انتها يعيد 3- يمكنك الزايد الى 219 مع بعض التصحيحات يمكنك ضم في مشروعك هنا توضيح اشلون تزيد 😇 -=-=-=-=-=-=-=-=-=-=-=-=-=--=-=--=-=-=[ New ] المرفق اسفل الفيديو : تحميل المرفق https://www.mediafire.com/file/x49j7p0bdtmks60/T_V_OpenSures_V_2-3.rar/file

لتسهيل قبل التوسيــــــــــــع اداة بسيطة للتحكم وادراج الصورة في النموذج والتسمية وعدتة خيارات مع امكانية تحديد حذف العناصر واعادة او التعديل مع بعض توزيعات الهندسية ومن غير تسمية وايضا خلف بعض فقط عدل الكود والمزيد وصممة شبة لعبة بدقايق ما راي استاذ @Foksh مع اضافة اداة استاذ @Moosak للنجمة وتحديد العناصر مع التعليمات [V.1]:"============================================="(^) تحميل المرفق بعد الفيديون + شرح استاذ @Moosak تحميل المرفق https://www.mediafire.com/file/dhqsr8ud8cdn96i/Control_Disain_Ms_V_1.rar/file

تحية طيبة أخي @Foksh تقصد في جدول tblInvoiceDetail هو الخيار الانسب

تم ضبط التقرير 6 مع النموذج 3 بصورة احترافية .. لا تتيح مجالا للأخطاء وتم ضبط المكفولين في تقرير7 .. لصعوبته ... بقي عليك اكمال التقرير 7 واعتقد انه يسير ومفهوم لديك يتم فتح تقرير المكفولين فقط عند اختيار الاب ( الزوج) بشرط كونه على قيد الحياة Database29.rar

أخي الكريم ، كان حلك بسيط جداً وهو بإضافة جملتين فقط للتفعيل وجملتين للمنع ، كود حدث في الحالي للنموذج :- Private Sub Form_Current() On Error GoTo ErrorHandler Dim frmSub As Form If Not IsNull(Me.تحليلى_البيع) Then Set frmSub = Me.تحليلى_البيع.Form If Me.NewRecord Then Me.أمر19.Caption = "إغلاق" frmSub.AllowEdits = True frmSub.AllowAdditions = True frmSub.AllowDeletions = True Me.AllowEdits = True Me.AllowDeletions = True ElseIf frmSub.RecordsetClone.RecordCount > 0 Then Me.أمر19.Caption = "تعديل" frmSub.AllowEdits = False frmSub.AllowAdditions = False frmSub.AllowDeletions = False Me.AllowEdits = False Me.AllowDeletions = False Else Me.أمر19.Caption = "إغلاق" frmSub.AllowEdits = True frmSub.AllowAdditions = True frmSub.AllowDeletions = True Me.AllowEdits = True Me.AllowDeletions = True End If End If ExitHandler: Set frmSub = Nothing Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء تحميل البيانات", vbCritical + vbMsgBoxRight, "" Resume ExitHandler End Sub أو كما أشار إليك الأستاذ @منتصر الانسي ، باستعمال جملة منع و منح صلاحية التعديل فقط ( انا قمت بمنع التعديل والاضافة والحذف ) - باستعمال جملته التالية ولكن في مكانها الصحيح :- Me.AllowEdits = frmSub.AllowEdits وكود الزر لا تعديل عليه بعد التعديل.zip

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

📺 قريباً.. انتظرونا في النسخة الأولى من Foksh TV - فوكش تي ڤي 2025 . الفيديو مقتطف ، لمحاولة تصغير حجم الملف نسخة تجريبية بإصدار 64 تحتوي 3 قنوات حالياً ، وهي قيد التطوير 😉 FokshTV - 64.zip

السلام عليكم ورحمة الله وبركاته وبها نبدأ يمكنك استخدام خاصية "البحث والاستبدال" (Ctrl + H) مع تنسيق خاص لتحقيق ذلك. 1. اضغط Ctrl + H لفتح نافذة "استبدال". 2. أدخل القيمة التي تبحث عنها في حقل "البحث عن". 3. اترك حقل "استبدال بـ" فارغًا. 4. اضغط على زر "تنسيق" (Format) في قسم "استبدال بـ". 5. اختر لون التعبئة (Fill color) الذي تريده. 6. اضغط "موافق" (OK). 7. اضغط "استبدال الكل" (Replace All). سيتم تلوين جميع الخلايا التي تحتوي على القيمة التي تبحث عنها باللون الذي اخترته.

السلام عليكم ورحمة الله وبركاته تسلم بشمهندس منتصر بارك الله فيك