Hamdi Edlbi-khalf

رفع الله قدركم

للرفع

السلام عليكم لعل هناك مشكلة بنسخة الأوفيس التي أعمل عليها لقد ظهر الاختيار عند العمل على حاسوب آخر و لكن بقيت ذات المشكلة النص لا يقبل خاصية التوزيع عند كون الحقل rich text شكراً لكم

السلام عليكم أولاً شكراً لاهتمامك أستاذ @kanory خاصية distributed لم تعمل مع rich text ،لم تظهر ضمن الاختيارات أصلاً - هذا ما دعاني لوضع السؤال- و عند تحويل مربع نص إلى plain ستختفي التنسيقات .

السلام عليكم حاولت و بحثت و لم أتوصل إلى طريقة أجعل فيها: حقلاً من نوع Rich Text في النموذج أو التقرير أن يكون النص فيه مضبوطاً justified مثل برنامج الورد، فهو لا يقبل إلا المحاذاة أو التوسيط. فهل من حل لذلك ؟ شكراً لكم

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

للرفع

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

السلام عليكم أعتذر لطرحي هذا السؤال لكونه لا يملك صلة مباشرة بالأكسل و إلم يكن منقطعاً عنه بالكلية، لكن أعياني البحث و لم أعرف أين أضع السؤال و أنا بحاجة لهذه الميزة في برامج أوفيس و منها الأكسل . لقد وجدت خطوطاً مقلوبة upside down font تدعم الإنكليزية و لكن لا زلت بحاجة إلى خط يدعم اللغتين أو على الأقل العربية و الأمر ملحٌ لدي في البرامج الثلاثة: أكسس - إكسل - وورد. شكراً لكم أرجو ألا أكون قد خالفت أصول المشاركة. تعقيب أحتاج إلى الكتابة بخط مقلوب رأساً على عقب Upside down font يدعم العربية خاصة أن الحل الذي تمكن من الكتابة المقلوبة باستخدام Textbox لا يؤدي المطلوب كوني بحاجة إلى خاصية Shrink to fit أن تكون موجودة و هو غير متاح مع مربعات النص . وقد وجدت الحل باستخدام خطوط مقبولة إلا أني لم أتمكن من إيجاد خط يدعم العربية و الإنكليزية أو على أقل تقدير العربية فقط . فهل من خط يؤدي المطلوب ؟

شكراً للطفك @ابا جودى دائماً أنت السباق بارك الله بك و كثيراً ما انتفعت بمشاركاتك القيمة و الشكر للأستاذ @أبو إبراهيم الغامدي

شكراً على كلماتك الطيبة أتمنى لكم التوفيق

السلام عليكم لا يمكن لأحد أن ينتقص من ابا جودي أو علمه أو جهده و مشاركتي ليس فيها أي قصد من ذلك معك حق فالعمل سيتم دونه و لكن ماذا لو أردت فتح الجدول كما كنت أقوم أثناء التجربة دون إغلاق النموذج عندها سيكون له ضرورة و قد تركته. نعود إلى : شكراً على التنبه و إليك ما ترنو إليه: تعديل الكود بإضافة السطور التي تعطل خاصة TaB Stop Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 'DoCmd.SetWarnings False 'DoCmd.OpenQuery "U1" 'DoCmd.SetWarnings True 'Me.Requery 'DoCmd.Close 'هنا نعطل tab stop Me.itemname.TabStop = False Me.Q.TabStop = False Me.itemid.TabStop = False Call الأمر11_Click End If End Sub الآن في حدث Key up Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) ' الأمر تلفعيل Tab stop ' حتى تتمكن من استخدام tab Me.itemname.TabStop = True Me.Q.TabStop = True Me.itemid.TabStop = True End Sub تخصيص Enter.accdb و أكرر اعتذاري ... مرة أخرى ... ملاحظة لأي مبتدئ مثلي يبحث عن هذه الطريقة : الأحداث المذكورة ستجدها في ورقة الخصائص للنموذج و الله من وراء القصد

السلام عليكم بعد إذن الأخ الغالي أبا جودي ما تحتاجه في المرفق الملاحظات : تخصيص Enter.accdbحتى يعمل تخصيص زر الإنتر عليك بجعل Key Preview إلى Yes ووضع الكود في حدث KeyDown If KeyCode = vbKeyReturn Then 'طريقتان لاستدعاء الزر إما بوضع الشيفرة التي وراءه 'DoCmd.SetWarnings False 'DoCmd.OpenQuery "U1" 'DoCmd.SetWarnings True 'Me.Requery 'DoCmd.Close ' أو باستدعاء الزر بـ 'call Call الأمر11_Click End If

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

السلام عليكم هو سؤال وضعته في موقع Stack over flow يتعلق بالإكسل و مشكلة ظهور الكتابة العربية على بعض الأجهزة و قد قمت وقتها بحذف السؤال بسبب تلقي عدد من التقيمات السلبية دون الوصول إلى نتيجة مجدية، السؤال قديم و لم أعد أذكر التفاصيل و خاصة أني لم أحاول بتطبيق الفكرة كون الإجابة التي تضمنت الفكرة جاءت بعيدة عن مضمون السؤال على ما أذكر، لكن بقيت الفكرة بذهني دون أن أحاول تطبيقها. و لذلك توقعت عناء كبيراً بتنفيذها حتى جاء طوق النجاة بدالتك.

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

السلام عليكم شكراً لكم أساتذتي الكرام جزاك الله كل خير أستاذي @AlwaZeeR كوني لم أعمل على أوفيس ٢٠٠٣ أجده متقدماً على الإصدارات اللاحقة بهذه الميزة و لدي سؤال لعله الأخير. ماذا لو كانت قاعدة بيانات مصممة على أوفيس ٢٠١٠ مثلاً من لاحقة Accdb، هل يمكن تطبيق فكرة الأذونات عليها أم يجب تحويل قاعدة البيانات إلى MDB و معه سنفقد بعض مميزات accdb ثم فتحها على أوفيس ٢٠٠٣ و عمل الخطوات في الشرح السابق؟

الأستاذ @AlwaZeeR هل يمكن استخدام هذه الطريقة مع أوفيس ٢٠١٠ و ما يليه أم أنها محصورة بأوفيس ٢٠٠٣؟ شكراً لكم

جزاك الله كل خير أتعبتك معي و سأطبق هذه الطريقة و أعلمكم بالنتيجة ألف ألف شكرٍ لك

جزاك الله كل خير هو المطلوب @qassim-t الشكر موصول إلى أخي الحبيب @عبد اللطيف سلوم

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

هل هذا ممكن من حيث المبدأ؟ شكراً جزيلاً

السلام عليكم هذا مثال قريب للمشروع الذي أعمل عليه لعل هناك لمسة مفقودة أو طريقة بديلة تؤدي المطلوب DateQueryCriteria.accdb

السلام عليكم قمت بعمل استعلام و في معيار حقل التاريخ Between [Begin] and [End] 0 حيث وضعت أسماء حقول البحث في النموذج ضمن القوسين المنكسرين و بعد تنفيذ الاستعلام يقوم بعرض النتائج المطلوبة و لكن عند خلو حقول المعايير في النموذج يظهر الاستعلام خالياً ما هي الطريقة التي يمكن للاستعلام بها عرض السجلات كافة عند خلو حقول المعايير؟ و شكراً

الأستاذ @AlwaZeeR هل من الممكن رابط أو شرح لاستخدام ملفات MDW للحماية ؟ شكراً لكم .