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

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

بسم الله وعلى بركة الله نبدأ اول شئ ؟ خلينا نخلص الاشياء اللى راح تحتاج الى التجهيز بالأكسس بس علشان نقدر نفهم الموضوع من اخوانا الكرام ياللى فاهمينه صح واعذرونى وتحملونى فى الغياب والانقطاع المفاجئ والذى قد يكون متكرر فى الفترة المقبلة الى أن يأذن الله تعالى ويتمم شفاء والدى على خيـر هو وكل مريض هذا حمل الولد الوحيد لأبيه سوف اتابع بقدر الامكان اولا بصراحة دخلت على الفيديو الخاص بشرح الباش مهندس @Amr Sobhy الذى اشار اليه وهو مشكورا وضع معه مرفق يحتوى على قاعدة أكسس و مجلدات كثيرة بكل صدق مررت سريعا وان شاء الله لى إن أذن ربى لى عودة ولكن مبدئيا حتى افهم الموضوع جيدا سوف تدور نقاشات واستفسارات كثيرة وحتمية بعد التمعن جيدا فى الفيديو فقط قمت بتجربة قاعدة الاكسس والتى تحتاج تسجيل للمكتبة التى اخبرنا عتها الباش مهندس @Amr Sobhy سوف ارفق لكم القاعدة بتعديل بسيط حتى يمكن التسجيل للمكتبات واضافتها اليا من الملف الدفعى بمجرد فتح قاعدة البيانات كما قمنا بها مسبقا فى الجزء الأول ملاحظة هامة تم تعديل الملف الدفعى ليعمل كمسئول من تلقاء نفسه بمجرد فتح قاعدة بيانات الاكسس حتى يتمكن الجميع بما فيهم من ليس له دراية بطريقة تسجيل المكتبات بتشغيلها كمسئول متطلبات التشغيل : Framework الاصدار 4 ------------------------------------------------------------------------------- يمكن تحميل الملف الاتى هو يقوم بالتحديثات اللازمة سواء ويندوز 7 , 10 , 11 إذهب الى موقع التحميل : من هنا ( تحميل مباشر من mediafire .. من رفعي انا على حسابي الشخصي بالموقع ) ميزات برنامج All in one Runtimes: سهل الاستخدام و مفيد للغاية في تقليل الزمن الضروري للبحث عن الأدوات كلٍ على حدا. مجاني بشكل كامل و يقدم الكثير من الفائدة و يمكنه حمايتك من المواقع التي قد تصيب جهازك بفيروسات سيئة عند التحميل منها. يعمل بشكل ذكي حيث يقوم بتحديد ما يحتاجه حاسبك و لن يقوم بتثبيت كل الأدوات بشكل عشوائي. يقدم مجموعة كبيرة من الأدوات الضرورية في حاسبك و أهمها: .NET Framework 4.6 + Updates Java Runtime Environment 8 DirectX 9.0c Extra files General runtime files Microsoft Visual C++ Runtimes (v2005 – v2015) Microsoft Visual J# 2.0 SE Microsoft Silverlight 5 Shockwave Player 12 (Internet Explorer Plugin) ------------------------------------------------------------------------------- لكبر حجم المرفق تم تقسيمه على قسمين برجاء وضع القسمين معا فى نفس المسار ليتم فك الضغط بنجاح 626302988_VBA_ZatcaIntegrationV2.part1.rar 1345862990_VBA_ZatcaIntegrationV2.part2.rar

السلام عليكم ورحمة الله وبركاته اخواني كما تعلمون انه خلال الفتره القادمه في بداية سنة 2023 سوف يتم تطبيق المرحلة الثانية من متطلبات الفاتورة الاكترونيه في المملكة العربية السعودية وسبق انه تم النقاش في المرحله الاولى في هذه المواضيع رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ وتم حلها بشكل كامل ولله الحمد وهذا بفضل الله ثم بجهود اخواننا الكرام جزاهم الله خير وبارك فيهم وبعلمهم وهذه المواصفات المطوبة للمرحلة الثانيه تحت الرابط التالي https://zatca.gov.sa/ar/E-Invoicing/SystemsDevelopers/Pages/E-Invoice-specifications.aspx وكما تعلمون ان بعض المبرمجين لهم برامج تعمل على الاكسس عند عملائهم وبكل تاكيد راح يتطلب منهم تحديث برامجهم لمتطلبات الفاتوره الأكثرونية المرحله الثانيه وإلا سوف يخسر عملائه ويقع في احراج ارجوا من أساتذتنا الكرام ومبرمجينا الافاضل النظر في هذا الموضوع بعين الاعتبار لاننا بحاجة ماسه جدا لحل هذا الموضوع ووضع امثله عليه حتى يستفيد منه الجميع ويتحقق الهدف السامي اللي قام عليه هذا المنتدى القدير

على النعمه انت 100 الميه وشكلك بتقول كلام كبير قوى بس انا ولا فاهم اى شئ .. أعذرنى الله اعلم بحالى لو انا قدرت افهم قليلا المشكلة مش فى قاعدة الاكسس ولا الاكتيف اكس اللى فى المكتبات الداخليه للاكسس مطلقا المشكلة ان الملف الدفعى نفسه اللى يسجل مكتبات الـ Dll الخارجية التى يتم الاستعانه بها هو الذى يعمل بالاصدار NET Framework 4.6 افتح الملف الدفعى باسم Register فى المرفق من المجلد Tools انا استخدمت هذا السطر لتسجيل المكتبات C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe وذلك لتفادى كل المشكل التى واجهتها بشبح الاصدار الاول حى يعمل على انطمة 7 و 10 و 11 >> 32 /64 لا تبدأ بالاعتراض اصبر وتريس احمد ربنا انك لم تشارك فى هذا الموضوع الشبح اسال اللى حضر واللى قرأ واللى اغمى عليه من عدم النوم بالايام والليالى

انت تانى وشبح الفاتورة الإلكترونية مصدقنا خلصنا منها يا رااااااااااااااااجل

السلام عليكم ورحمة الله وبركاتة الأخوة الكرام المطورين بلغة VBA او Access كما تقولون الحل ان شاء الله انك تطوير المرحلة الثانية كمكتبة بلغة متطورة مثل ال C# او Java ويتم اضافتها فى برنامجكم ابدأو فى التنفيذ وانا هساعدكم بأذن الله

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

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

وعليكم السلام ورحمه الله وبركاته جزاك الله خيرا معلمى العزيز فقد افدتنى لاننى حاولت استخدام حدث عند تطبيق عامل التصفيه ولم اوفق فاستخدامه ولانى مشغول فلم ابحث فجزاك الله خيرا 🌹

وعليكم السلام ورحمة الله تعالى وبركاته تقصد اخي انك عنداختيار المادة من القائمة يتم اظهار جميع الاساتدة في نفس الخلية وماهي نسخة الاوفيس عندك على الجهاز

وعليكم السلام 🙂 ضع هذا الكود في احداث النموذج وسيؤدي العمل : Option Compare Database Option Explicit Dim Goto_L As Boolean ' Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer) If ApplyType = 1 Then Goto_L = True End If End Sub Private Sub Form_Current() If Goto_L = True Then DoCmd.GoToRecord , , acLast Goto_L = False End If End Sub . . جعفر New Microsoft Access Database.zip

أعترض 🙂 ، لم أشارك ولم أقرأ التفاصيل ولكن لا أعتقد أن vba عاجز عن الحل، وشكرا لكم. همممم اعتقد بأن اخونا عمرو قصده ، بأنها اسهل بلغة #C او Java 🙂 جعفر

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

أعترض 🙂 ، لم أشارك ولم أقرأ التفاصيل ولكن لا أعتقد أن vba عاجز عن الحل، وشكرا لكم.

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

أعتذر، رفعت لك ملفا مختلفا بالخطأ ، الآن جرب بعد رفع المثال الصحيح.

السلام عليكم اخي ابو جودي 🙂 الله ان شاء الله يعطيك الصحة والعافية ووالدك الكريم ، وما تشوفون شر ان شاء الله 🙂 مكتبة الموقع تسمح لك بإرفاق ملفات اكبر ، فوضعت المجلد هنا : https://www.officena.net/ib/files/file/403-المجلد-vba_zatcaintegration-v2/ . جعفر

اضفت لك تعديل الفصل علي الملف بطريقة سهلة بدلالة رقم الصف في الشيت لان عندك بيانات متكررة وما يكون فيه خلل في التعديل بعد حفظ البيانات فعل خاصية Edit ثم دبل كليكSelect Row علي اي صف تريد تغير بيانات الفصل تظهر في التكست اعلاه ثماختار من قائمة الكمبوبوكس الفصل الجديد قم OK عاوزك تضبط المدرسين في الحصص زود عليهم احسن من قعدتهم علي الموبايلات تاركين الطلبة (ههههه) جرب وقلي النتيجة Fawzy 10.xlsm

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

جرب وخبرنا مثال للدائن والمدين_01.accdb

وعليكم السلام اخي عمرو 🙂 اهلا وسهلا بك في المنتدى ، ونتشرف بوجود مبرمج في مستواك معنا في المنتدى 🙂 حقك معك ، فلا تأخذ هم ولا بأس عليك ، فكلنا نريد ان نأكل لقمة العيش من عملنا 🙂 جعفر

استاذي @ابوبسمله هل ينفع اعملها بالكود و كيفية تنفيذها

وعليكم السلام ورحمة الله بإضافة قوائم منسدلة للتوقيت من... إلى... (ساعات ودقائق) وللتاريخ ومعادلات مساعدة تم عمل المطلوب في الملف المرفق... أرجو أن يفي ما تريده... ملاحظة : تم إضافة كلمة سرية لحماية الملف من التعديل وهي: 123 نموذج ساعات1.xlsx

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

وعليكم السلام 🙂 شكرا لكم جميعا 🙂 سبق وان تم مناقشة الموضوع هنا (لا ادري اذا كلمة المرحلة الثانيه يغيّر من الموضوع) : رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ جعفر

شكرا لك .. أعتقد أنه من حقك أن تعلن عن منتجك .. ولكن في قسم (إعلانات شخصية بأجر للاعضاء) نحن هنا نتبادل المعرفة . وموضوعك إعلان تجاري ولكن بصيغة مغلفة

السلام عليكم مبارك الاستاذ ابواحمد ،، بالتوفيق انشاء الله

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

سلمك الله من كل سوء وشر وما انا الا طالب علم اتعلم معكم .... كيفية تنفيذ ذلك نعم بالتاكيد ولكن اين كود الاختبار المقصود فالمثال ؟ بالتوفيق

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

مرحبا... المعادلة المستعملة في الكود لا أعرفها... أما التي أعرفها واكتشفتها مؤخرا هي معادلة "هيرون" والتي صيغتها : =SQRT(s*(s-a)*(s-b)*(s-c)) حيث: a، b، c هي أطوال أضلاع المثلث و s = (a + b + c)/2 وليس لي جواب آخر....

استاذ محمد ، هل كان قصدك 2003 🙂 جعفر

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

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

وجهة نظر معقولة ✔️

ما لا يُدرَكُ جُله .. لا يُترك كُله 😊 بارك الله فيك مهندسنا ووالدنا العزيز خالد 🙂 مثالك هو أحد السيناريوهات الكثيرة التي قد تحصل .. وعندك حق في هذا .. ولكن أنا كان جل تفكيري في الموضوعات التي بإقرار صاحب الموضوع على حصوله على الإجابة الأفضل وقد يشير إليها ( ولكنه لا يضغط على الزر ) .. !! وكذلك المواضيع التي تُحل ويمضي عليها فترة من الزمن ( ليست بالقليلة ) ولا يضغط صاحبها على الزر أيضا !! وهذه هي المواضيع التي أشرت على أنها قد تمثل 70% من مواضيع المنتدى .. ( هذا العدد كبير في نظري ) .. سؤالي كان : أنتركها هكذا كما هي ؟؟ أم نعين صاحبها على هذا الزر المسكين فنضغطه نيابة عنه ؟ 😅

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

تتمة : والقائمة الموجودة في هذا الموضوع ( دروس وشروح وتطبيقات وأفكار _ مواضيع مهمة مثبتة) أيضا تحتاج لتحديث مستمر .. وترتيب وتصنيف وتنسيق 🙂

وعليكم السلام ورحمة الله وبركاته أستاذنا العزيز @jjafferr 🙂 وعودا حميدا .. من أجل التطوير والتحسين لدي عدة مقترحات .. : 1- أن يتم تبيين من هم المشرفون على المنتدى ( لكل قسم على حده )، وذلك للتعريف بهم والتعرف عليهم ولتسهيل عملية التواصل معهم ، أو لأي غرض آخر. 2- إعطاء المشرفين صلاحية تبيين أفضل إجابة ( في حال غفل أو تجاهل صاحب الطلب تعيينها ) ، ناقشت هذا الأمر سابقا ،و الواقع يقول أن تقريبا في حدود 70% من المواضيع متروكة بدون تعيين الإجابة الأفضل على الرغم من من أنها محلولة .. وتعلمون إيجابيات وسلبيات هذا الأمر ( لا داعي لذكرها الآن ). 3- ( تثبيت المواضيع المتميزة ) : تمر فترات يتم فيها طرح مواضيع متميزة جدا ومتعوب عليها وفيها اجتهاد وسبق ولكنها تندفن بين ثنايا المواضيع الاعتيادية ثم تنجرف مع تيار المواضيع ولا يلتفت إليها إلا من يمعن النظر والتركيز ، لذلك نتمنى أن يتم النظر لهذا الأمر بجدية وذلك تشجيعا وتكريما لهؤلاء المجتهدين والذين آثروا طرح أفكارهم الاستثنائية في هذا الصرح المبارك .. ( وهذا السبب الذي جعلني أعرض مواضيعي المميزة في خانة التوقيع ، على الرغم أني أعرف أنها مزعجة بصريا .. والقائمة تطول ) 4- نتمنى أن يكون هناك تفاعل من قبل المشرفين الأكارم مع مواضيع الأعضاء على فترات متقاربة .. بحيث نشعر بوجودهم معنا ، فأحيانا يغيب المشرفين فترات طويلة ( قد تمتد لأشهر ) ولا نسمع لهم خبرا .. والغائب عذره معه طبعا .. ولكن أحيانا يغيب الجميع مرة واحدة 😅. 5 - ( مكتبة الموقع ) : هي عبارة عن كنز حقيقي للمنتدى ولكنها غير مرتبة كما تستحق وغير منظمة نوعا ما .. وغير مستغلة لإبراز أهم مخرجات المنتدى .. بحيث يصل الباحثون بسهولة إلى الفوائد والفرائد من إنتاجات الأعضاء .. فعدد المواضيع بها قليلة ( مقابل الإنتاجات الكثيرة الموجودة فعلا في المنتدى ) .. وكذلك البعض يخطئ ويفتح مواضيع استفسارات بها وتترك كما هي . 6- الحقيقة يساورني القلق حيال المساحة المحدودة لدي لإرفاق الملفات ، فأنا بطبيعتي إنسان بصري أحب أن أدعم مواضيعي بالصور التوضيحية وكذلك في حال المشاركة بالرد على استفسارات الإخوة ، فالصورة الواحدة تغنيك عن ألف كلمة كما يقولون 😄 ولكن كل مرة أعيد حساباتي قبل الرد بصورة ( خصوصا لما أشوف العداد يزيد ) 😅 .. أعرف أن البدائل موجودة ولكن مع مرور الوقت والزمن أغلب المواقع تحذف هذه الصور .. وستبقى المواضيع مشوهة ولا توصل الفكرة !! 7- أحينا أقوم بفتح موضوع جديد أعرض فيه فكرة معينة، ثم مع المناقشة مع الإخوة الخبراء يتم الخروج بتحديثات جديدة وأفكار تصحيحية للموضوع الأصلي فأحتاج للرجوع إلى تعديل أصل الموضوع ( النص أو المرفقات ) ولكن تكون فترة السماح بالتعديل قد انتهت فيظهر الموضوع للزائرين والمتابعين بأخطائه وعيوبه وهذا أمر غير محمود ، والواقع يقول أن القلة القليلة من الناس من يتابع النقاشات والتي تمتد أحيانا لعدة صفحات لمعرفة الخلاصة .. فالناس يريدون ( زبدة الموضوع ) والتي عادة ما تكون في أول مشاركة. 🙂 هذا ما يحضرني الآن .. مع تمنياتي لكم بالتوفيق ،، وشكري وتقديري لجميع جهودكم المبذولة .. 😊🌹

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

وعليكم السلام اخي جعفر بدخل في الموضوع مباشرة القوانين وضعت للتنظيم وليست للتنفير اغلب اعضاء الموقع ممن يسهموا في تقديم الحلول ومشاركة الخبرات يكتبون باسماء مستعارة فالهدف نشر المعرف وتقديم يد العون للاخرين كل بمجهوده والتضييق على البعض منهم باغلاق مواضيعهم او تحريرها بدون اسباب موضوعية امر يدعو للتعجب اخيرا قالت العرب : من شدد نفر و من تراخى تألف واصدق من ذلك قوله عز وجل " فَبِمَا رَحْمَةٍ مِّنَ اللَّهِ لِنتَ لَهُمْ ۖ وَلَوْ كُنتَ فَظًّا غَلِيظَ الْقَلْبِ لَانفَضُّوا مِنْ حَوْلِك " اكتفي بما سبق والله الموفق .

جرب جساب الفرق بين تاريخين.xlsx

تم تجربة فكرة تنسيق التاريخ .... والنتيجة اكثر من رائعة ... بارك الله فيك وفي اباعاتك ومحاولة تجاوز بعض عقبات الاكسس

ماشاء الله بارك الله بك .. تمت التجربة بنجاح

غفر الله لك ولوالديك استاذنا ابو جودى

في البداية ...شكرا لمجهودك العظيم وفي النهاية ..هو لا طويل ولا اقصير ..لاني حاولت اجربه ولم افلح لاني حينما وجدت CREAT TABLE تصورت انه سيعمل جدول بالتغييرات

السلام عليكم هذه طريقة بسيطة بالكود لإخفاء واظهار اعمدة فصلته هنا لتعم الفائدة اولا تعمل كود رئيسي مثل هذا Sub kh_ColumnHidden(ColumnAddres As String) Columns("C:W").EntireColumn.Hidden = True Columns(ColumnAddres).EntireColumn.Hidden = False End Sub حيث انه يقوم باخفاء جميع اعمدة المواد ويظهر النطاق الخاص بالمادة المشار اليه بالمتغير ColumnAddres ثم تعمل اكواد لربطها بالازرة تعين فيها اعمدة المادة التي تريد اظهارها مثل هذا Sub M() kh_ColumnHidden "C:E" End Sub المرفق 2003 اظهار واخفاء اعمدة.rar

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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير دالة kh_ShowImage دالة تمكنك من وضع صورة داخل شكل تلقائي اتوماتيكيا يمكنك تغيير اسم او مسار مجلد الصور من داخل كود الدالة وسائط الدالة NameImag اسم الصورة افتراضي ImagRng خلية وضع الصورة افتراضي MyWidth عرض الصورة اختياري MyHeight طول الصورة اختياري ـ اذا لم تحدد طول او عرض معين للصورة تاخذ الصورة عرض وطول الخلية الموضوعة فيها ImagRng ـ اذا قمت بتحريك الصورة يدويا تفقد الصورة ارتباطها بالدالة وعند تحديث الدالة تقوم باضافة الصورة مرة اخرى في مكانها المحدد في الدالة كود الدالة: Option Explicit Option Compare Text '============================================= ' عرض صورة في الخليةِ ' Showing an image in cell '============================================= ' اسم مجلد الصور ' اذا كان مجلد الصور في نفس مجلد ملف الاكسل ' اكتب اسمه فقط ' والا اكتب المسار كاملا ' "D:\MyDocument\MyFunction\photo" Private Const kh_pic As String = "MyImeg" '============================================= ' امكانية تحرير اي نوع من الصور لديك ادناه Private Const MyTyp As String = ".jpg,.bmp,.gif,.png,.tif" '============================================= '============================================= Function kh_ShowImage(ByVal NameImag, ByVal ImagRng As Range, Optional ByVal MyWidth As Single, Optional ByVal MyHeight As Single) Dim Tp Dim shp As Shape Dim ibo As Boolean Dim MyTop As Single, MyLeft As Single Dim MyFile As String, MyPath As String '---------------------------------- On Error GoTo 1 '---------------------------------- MyTop = ImagRng.Top: MyLeft = ImagRng.Left With ImagRng.Worksheet For Each shp In .Shapes If shp.Top = MyTop And shp.Left = MyLeft Then shp.Delete: Exit For End If Next shp End With '----------------------------------- If IsEmpty(NameImag) Then GoTo 1 '----------------------------------- If MyWidth = 0 Then MyWidth = ImagRng.Width If MyHeight = 0 Then MyHeight = ImagRng.Height '----------------------------------- If Not InStr(kh_pic, ":") Then MyPath = ThisWorkbook.path & "\" MyFile = MyPath & kh_pic & "\" & CStr(NameImag) '----------------------------------- For Each Tp In Split(MyTyp, ",") If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then With ImagRng.Worksheet.Shapes.AddShape(msoShapeRectangle, MyLeft, MyTop, MyWidth, MyHeight) .Fill.UserPicture MyFile & Trim(Tp) End With ibo = True Exit For End If Next 1 kh_ShowImage = ibo End Function المرفق 2003-2010 دالة عرض صورة في خلية بطول وعرض اختياري.rar