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

اعرض الملف أداة تعميم تنسيق النماذج والتقارير [الجزء الأول] {سلسلة الأدوات المساعدة المخصصة} الحقيقة أني أخذت الكثير من الوقت لإتخاذ القرار في طريقة عرض هذه الأداة ففي الأصل ماهي إلا خيار موجود ضمن خيارات الأكسس ولكنه خيار أكاد أجزم أن الكثير لايعلم عنه شيئاً وكل ماسأقوم به هو الإستفادة من هذا الخيار وتطويرة لإنشاء أداة تقوم بتعميم التنسيق على بقية النماذج وكما ذكرت فنظرا لأن هذا الخيار من الخيارات المهضوم حقها في الأكسس قررت أن أفصل الموضوع إلى مشاركتين الأولى لشرح الخيار وطريقة الإستفادة منه ومن خلال شرح هذا الخيار سنجد أنه سيتم تطبيق تنسيقات القالب على أي نموذج يتم إنشاؤه مع وجود القالب ولن تنعكس هذه التنسيقات على النماذج السابقة لذا ففي المشاركة الثانية سأقوم بالبناء على هذا الخيار لتطوير كود للقيام بتعميم التنسيقات الخاصة بالقالب على جميع النماذج حتى ولو تم إنشاؤها قبل إنشاء القالب مرفق لكم بهذا ملف مضغوط يحتوي على مستند وورد يحتوي على شرح لهذا الخيار وبعض التعليمات المفيدة الخاصة به وملف أكسس للتعرف على عمل الخيار وكما أنوه في كل مرة أرجو قراءة الشرح قبل فتح تطبيق أكسس حتى تتعرف بشكل أوضح على طريقة الإستفادة من خيار قوالب النماذج والتقارير تحياتي صاحب الملف منتصر الانسي تمت الاضافه 02/01/26 الاقسام قسم الأكسيس  

السلام عليكم ورحمة الله وبركاته حل بالكود وان اضفت مواد احرى عدل النطاق في الكود Sub ProcessAndSumData() Dim wsB As Worksheet Set wsB = ThisWorkbook.Sheets("B") Application.ScreenUpdating = False With wsB .Range("B10:I12").ClearContents With .Range("B10:I10") .FormulaR1C1 = "=IFERROR(SUMPRODUCT((A!R3C1:R1828C1=R6C3) * (ISNUMBER(INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0)))) * (INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))>=60)),""/"")" .Value = .Value End With With .Range("B11:I11") .FormulaR1C1 = "=IFNA(SUMPRODUCT((INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))<60) * ISNUMBER(INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))) * (A!R3C1:R1828C1=R6C3)),""/"")" .Value = .Value End With With .Range("B12:I12") .FormulaR1C1 = "=SUM(N(R[-2]C), N(R[-1]C))" .Value = .Value End With End With Application.ScreenUpdating = True End Sub لا تنس تفعيل الماكرو aa2.xlsb

يسرّنا مشرفي قسم الآكسيس أن نعلن عن انطلاق سلسلة من التحديات الشهرية التي سيتم نشرها في قسم الآكسيس حصراً ، حيث سيتم طرح سؤال أو فكرة بموضوع - مثبت شهرياً - كنوع من أنواع التحدي والمثابرة لجميع الأعضاء في المنتدى . وستُعرض المشاركات التي تم اعتمادها بالتصويت من قبل الأعضاء كافةً من خلال الإعجاب لكل تحدي وسؤال على حدة . الهدف من هذه الفعاليات هو تعزيز روح المنافسة الإيجابية والبناءة ، تبادل الخبرات ، وإثراء المحتوى في هذا القسم . يحق لكل عضو المشاركة بـ 3 محاولات للإجابة في كل تحدي . ( وذلك لأن الأفكار أحيانا تتفجر بشكل متلاحق بعد الشروع في فكرة ما ، وتنتج عنها عدة نسخ في كل نسخة تحسين للتي قبلها ) جميع التحديات ستكون ضمن إطار برنامج الآكسيس حصراً . موضوع التحدي يتم تحديده مسبقاً وهو غير قابل للتعديل أو النقاش . يجب أن تكون المشاركة مكتوبة بلغة واضحة وخالية من الأخطاء قدر الإمكان . لا مانع من استخدام أي مصدر أو مساعدة خارجية ، أو حتى الذكاء الإصطناعي . الإلتزام بالوقت المحدد لنشر الإجابات ، حيث لن تُقبل المشاركات بعد انتهاء المهلة المقررة لكل تحدي . ( سيتم إغلاق الموضوع بعد انقضاء المهلة المخصصة للتحدي ) سيتم اعتماد الفائزين عبر تصويت الأعضاء من خلال الضغط على ، ويُعلن عن النتائج في نهاية كل تحدي ؛ والتي سيتم تثبيتها في هذا الموضوع فقط مع ذكر اسم صاحب المشاركة التي تم التصويت لها . يحق للإدارة استبعاد أي مشاركة مخالفة للشروط أو خارجة عن موضوع التحدي . المشاركة تشمل جميع الأعضاء ومن جميع الأقسام أيضاً . أي إضافات خارجة عن نطاق التحدي لن تحتسب ضمن التقييم لدى المشرفين . ( الهدف هو عدم الإبتعاد عن جوهر التنفيذ البرمجي وليس الشكل الجمالي فقط )

أهلاً بكم في انطلاقة سلسلتنا الجديدة "الفعاليات والتحديات الشهرية". في عالم قواعد البيانات ، المحترف الحقيقي ليس من يكتب مئات الأسطر من الأكواد ، بل هو "المعماري" الذي يبني قاعدة بيانات قوية ، ذكية ، وتحمي نفسها بنفسها ! تحدي اليوم سيعيدنا إلى الجذور ، إلى قوة محرك آكسيس الكامنة في جداوله . فهل أنت مستعد لخوض التجربة الأولى ؟؟ 📖 قصة التحدي :- طلب منك عزيزي المشارك ( مصنع تقني ) بناء نظام لإدارة شؤون الموظفين ، ولكن لديهم شروط صارمة جداً لمنع أي موظف مُدخِل بيانات من ارتكاب أخطاء . حيث أن الإدارة ترفض تماماً استخدام أكواد ( VBA ) ، وتريد أن تكون الحماية مزروعة ومتأصلة في قلب الجداول مباشرة ، لضمان أقصى درجات الأمان . 🛠️ المطلوب :- إنشاء جدول باسم tbl_Managers ، يحتوي على الحقول التالية :- اسم الموظف ( EmpName ) تاريخ الميلاد ( DOB ) تاريخ التعيين ( HireDate ) الدرجة الوظيفية ( JobGrade ) = (A أو B أو C) الراتب الأساسي ( Salary ) 🚫 شروط التحدي :- يجب عليك ضبط إعدادات الجدول (Property Sheet) ليقوم بالمهام التالية تلقائياً :- يُمنع الحفظ في حال مخالفة القوانين والأحكام ، حيث يُمنع تسجيل أي موظف عمره أقل من 18 عاماً ( بناءً على تاريخ ميلاده مقارنة بتاريخ اليوم ) . حماية التسلسل الزمني ، حيث يُمنع أن يكون تاريخ التعيين قبل تاريخ تأسيس المصنع ( 01/01/2020 ) . يُمنع أن يكون تاريخ التعيين في ( المستقبل ، أي بعد تاريخ اليوم الحالي ) . حماية هيكل الرواتب : يجب ربط الراتب بالدرجة الوظيفية كالتالي :- إذا كانت الدرجة A : الحد الأقصى للراتب هو 10,000 . إذا كانت الدرجة B : الحد الأقصى للراتب هو 7,000 . إذا كانت الدرجة C : الحد الأقصى للراتب هو 5,000 . الرسائل المخصصة ، بحيث عند وقوع أي خطأ ، يجب أن يظهر للمستخدم رسالة تنبيه واضحة باللغة العربية تشرح له سبب الرفض بالضبط . 🚫 قوانين المشاركة :- يُمنع منعاً باتاً استخدام أكواد VBA أو الـ Macros - الماكرو . الحل يجب أن يكمن في خصائص الجدول ( Table Properties ) فقط . ♻ كيف تشارك ؟ قم برفع ملف مرفق فقط . وتذكر أنك عزيزي المشارك تملك الحق في 3 محاولات لإجاباتك خلال التحدي الواحد فقط .

السلام عليكم ورحمة الله وبركاته ،،، أعاني من مشكلة طرأت مؤخراً على برنامج إكسل دوناً عن باقي برامج حزمة أوفيس والتي تعمل بسلاسة. وهذه المشكلة هي أنه عندما أقوم بتحديد خلية أو خلايا للعمل عليها يتجمد البرنامج تماماً ولا يستجيب لعدة دقائق تطول أو تقصر حسب عدد الخلايا المحددة وحتى لو حاولت إعادة تشغيل البرنامج لا يستجيب إلا بعد إنتهاء هذا التجمد. علماً بأن أوفيس هذا هو 2019 وأعمل عليه منذ سنوات بدون مشاكل . وقد قمت بتحميله بصعوبة بالغة ولا أريد حذفه وتحميله من جديد . أرجو المساعدة ولكم جزيل شكري وعظيم إمتناني. ملحوظة مرفق ملف به ماكرو وظناً مني أن الماكرو هو السبب لأن المشكلة ظهرت بعده قمت بحفظ نفس الملف بدون ماكرو بإمتداد xlsx وظهرت نفس المشكلة . وأرجو إفادتي إذا كانت هناك أية ملاحظات على الملف أو كانت هناك طريقة أفضل للحصول على نفس النتائج . هو لمتابعة المتحصلين للإشتراكات الشهرية المياه فى القرية .02 معاويه عبدالله_٠٢١٨١٠.xlsm والسلام عليكم ورحمة الله وبركاته ،،،

اكيييد وبدون إستئذان فتبادل الأفكار يثري أي موضوع

شكراً اخي @Debug Ace على الكلام الجميل والشكور موصول للأخ @Moosak على كلامه وتثبيته للموضوع 🥰

ما شاء الله تبارك الله .. فعلا كل مرة يفاجئنا الأكسس بمزايا جديدة 😃 شكرا لك أستاذنا @منتصر الانسي شرح مميز ومفصل 🌹

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

زبدة الموضوع كله يا سيدي الفاضل هو هذه الكلمتين اللي قلتهم أنت .. ☝ الأداة وللتذكير لها وظائف محددة وهو مقتصر عليها إلا إن وجدت زيادة عليها (فهي كرم منه) 😎🖐🏻️ .. وأذكرك مجددا بوظائف الأداة المحددة : وليس من بين الوظائف تصميم نظام كامل ومترابط ، إنما كل مرة تعطيه جزئية ليقوم بفحصها وتعديلها حسب الأوامر الموجة له .. وليس كذلك من وظائفه تشغيل الكود في بيئة الأكسس وأكتشاف النواقص لأنه غير معد لذلك أيضا .. أما إن كان الرهان متعلق بالذكاء الاصطناعي بشكل عام فهذا موضوع آخر ، ولك وجهة نظرك الخاصة

ممتااااااااز استااااااااااااااااااااذ بجد بارك الله فيك

بما أنك تحديت 🙂 هذا هو الملف بعد تعديل دواله للتتوافق مع النواتين باستخدام أداتنا هذه فقط .. مع العلم وللأمانه العلمية : كانت في بعض الأحيان لا تضبط النتيجة من المحاولة الأولى وتنجح في المحاولة الثانية أو بعد أكثر من محاولة .. 🙂 ولكن بدون كثير تدخل .. فقط بتوجيه بسيط من نصف سطر ، والسبب هو أنه أحيانا يعيد تعريف بعض المتغيرات إذا وجدها غير معرفة وفي الواقع هي معرفة في موديول آخر .. فكنت أكتب له : لا تعد تعريف المتغيرات ولا تعد كتابة دوال API لأنها معرفة في موديول آخر . (فقط) systray.zip

رابط موضوع التحدي هنا .

احسنت جزاك الله كل خير تمت التجربة ينجاح

مشاركة مع الأستاذ @عبدالله بشير عبدالله ، هذه تجربتي .. استخدمت الحدثين التاليين في ThisWorkbook :- Private Sub Workbook_Open() Application.IgnoreRemoteRequests = True Application.Visible = False UserForm6.Show vbModeless End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Response As VbMsgBoxResult Dim MsgText As String MsgText = "سيتم اغلاق جميع أوراق العمل ومشاريع آكسل المفتوحة ، هل ترغب بالاغلاق؟" Response = MsgBox(MsgText, _ vbCritical + vbYesNo + vbMsgBoxRight + vbRtlReading, _ "تنبيه هام - إغلاق النظام") If Response = vbNo Then Cancel = True Exit Sub End If Application.IgnoreRemoteRequests = False ThisWorkbook.Saved = True Application.Quit End Sub وقمت بتعديل بسيط على الحدث UserForm_Activate :- Private Sub UserForm_Activate() ThisWorkbook.Application.Visible = False Load UserForm6 End Sub مشكلة.xlsm

وعليكم السلام ورحمة الله وبركاته تسلم استاذ عبدالله تقبل تحياتي

الأخ العزيز، تحية طيبة وبعد، أدخل دوماً إلى موضوعك وكلي أمل أن أقدم لك ما يفيد، ولكنني أجد نفسي عاجزاً عن فهم المطلوب بسبب غياب الشرح الوافي. واليوم، أرفقتَ ملفاً جديداً لعلّ فيه التوضيح، فإذا به محمياً بكلمة مرور! لذا، ومن باب المحبة والإخاء، أود توجيه هذه الرسالة لك ولجميع أحبابنا في المنتدى؛ لنتفهم أن عدم التجاوب مع بعض الطلبات ليس تكبراً و عدم اهتمام ، بل يعود للأسباب التالية: عدم وضوح الطلب: في طلبك الأول ذكرت استيراد بيانات من ملف "الحجز" إلى ملف "Horaire202"، لكنك لم ترفق سوى الملف الأخير. أين الملف الآخر؟ وكيف يمكننا العمل دون شرح كافٍ؟ تعدد الطلبات في موضوع واحد: لقد تضمن موضوعك طلبات كثيرة ومتشعبة (تعديل أيقونة الاستيراد، منع مسح البيانات، معاينة ورقة الطباعة، التحويل إلى PDF، حماية الورقة مع استثناء حقول معينة). هذا التشتت يجعل تقديم مساعدة دقيقة أمراً صعباً. نصيحة أخوية: اجعل لكل طلب موضوعاً مستقلاً، مدعوماً بالشرح والتوضيح الكافي. وبمجرد حصولك على الإجابة، يمكنك فتح موضوع جديد لطلب آخر. هكذا ستجد اهتماماً أكبر وتجاوباً أسرع من جميع الأعضاء. وفقنا الله وإياكم لكل خير.

اذا : [تصحيح برمجي] تخرب الكود فيما يخص تحويل الدوال : 60 % يكون مخطئ وانا كنت رحيم انى قلت 60 مش أعلى من كده يمكن هذه تحتمل 50% مازلت عند رأيى ولا انصح بتجربته ولا بالاعتماد عليه الا للمحترفيين الذين يستطيعون تعديل وتصحيح الاخطاء التى سوف تنتج عنه لا يعتمد عليه نهائيا مضيعة للوقت والجهد

وعليكم السلام ورحمة الله وبركاته تسلم استاذ عبدالله جاري التجرية والف شكر لحضرتك جزاك الله عنا خيرً اللهم آمين وسامحنا على الازعاج

ربما يكون احد الاسباب وكما احبرتك في ردي الاحير باننى لست جازما وحصوصا ان الملف في مشاركتك الاولى يعمل لدي وكذلك حسب استاذتا Foksh ان الملف يعمل لديه وربما يكون مسار سطح المكتب هو السبب تم تعديل الكود وسيطلب منك مكان حفظ الملف احتر اي مكان جرب واعلمنى بالنتائج مرتب +عمولة السائقين (2).xlsm

(OLE + AppendChunk) هذه الفكرة هى كديناصور قوي… لكنه منقرض تقنيا لهذه النقاط : محبوس داخل Access لا يفهمه SQL Server جيدا يصعب نقله أو تحديثه الديناصورات جميلة لكن لا تبني بها ناطحات سحاب ومن اجل ذلك ان ستخدام : Attachment Field هو الافضل ان استدعت الحاجة الى ذلك وهو التطور الطبيعي وملاحظة هامة جدا جدا جدا : اسلوب : (OLE + AppendChunk) يزيد حجم ومساحة القاعدة الى الضعف تقريبا مقارنة بـ : Attachment Field بعنى الملف المراد حملة داخل القاعدة من خلال : (OLE + AppendChunk) اذا كانت مساحة الملف مثلا 12 ميجا لاحظ انه بعد حملة تجد مساحة القاعدة الكلية = 24 ميجا تقريبا بينما تظل المساحة كما هى تقريبا فى حالة استخدام : Attachment Field طبعا اصدار الاوفيس ان كان اقدم من 2007 اى انه mdb للاسف لن تصلح معه الى هذه الفكرة بينما الاصدارات الاحدث accdb اى الاحدث من 2007 تصلح معه الطريقتان ولكن الافضل : Attachment Field

الأصل أخي العزيز @بلانك ، وبما أنك عضو مميز أن تقوم بالشرح الوافي لمطلبك ، فقارئ كلماتك لا يسمع صوتك حين كتبتها 😅 ، حتى باختيارك للعنوان لم توفق هذه المرة . على العموم حاول أن تهتم بطريقة توصيل المعلومة التي تريدها لاحقاً كي تتلافى هذه المتاهة . ففهم السؤال = ثلثي الإجابة .

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

السلام عليكم ورحمة الله وبركاته هذه دعوة كريمة لتجربة الأداة الجديدة والفريدة من نوعها : دكتور ال VBA وضائف الأداة : 1- تحويل الكود إلى صيغة متوافقة مع النواتين 32 و 64 بت. 2- تصحيح الأخطاء البرمجية في الكود. 3- تنسيق وترتيب الكود شكليا. 4- كتابة التعليقات وشرح للكود باللغتين العربية والإنجليزية. 5- إضافة صائد الأخطاء للكود وذلك لتعقب الأخطاء البرمجية. 6- إضافة ترقيم لأسطر الكود. يمكنك اختيار واحد من هذه الوظائف أو تختار من بينها ما تريده. الأداة مخصصة لأكواد ال VBA وتعتمد على قدرات الذكاء الاصطناعي لإعطاء نتائج دقيقة ومبهرة .. 😁✌🏻 اختصر على نفسك الوقت والجهد واعمل بذكاء 😉👌🏻 رابط الأداة : https://vba-code-doctor-471932697586.us-west1.run.app/ يمكنك فتحها في الهاتف أو الحاسوب على راحتك 😎🌷 جربوها وعطوني رأيكم 😇✌🏻 :: إضافة جديدة :: لتحقيق مرونة أكبر للمستخدم ، أضفت حقل خاص بكتابة تعليمات مخصصة توجهها للذكاء الاصطناعي بحيث يراعيها عند معالجة الطلب ، مثال : ( قم بتغيير أسماء المتغيرات لأسماء مقروءة ، أو قم بتقسيم جملة SQL لعدة أسطر هكذا ....... ، أو ، أو ) أكتب ما شئت 🙂