Hamdi Edlbi-khalf

7 دقائق مضت, مستفيد69 said:

لكن بقيت ظاهرة عدم ظهور الالوان المطلوبة عندي الا إذا قمت بعكسها يدويا لذلك فانا سميتها اصطلاحا (ظاهرة انعكاس الالوان) 

غير اتجاه القراءة في مربع النص إلى (من اليسار إلى اليمين)

السلام عليكم

اجعل مصدر النموذج الفرعي هذا الاستعلام وعدل المسميات فيه بناء على جدولك المصدر:

select top 1 Name_worker, Degree_Worker from MyTableName order by Degree_Worker desc;

لا يهم كيفية احتساب تقييم العامل، طالما أنه رقم.

17 ساعات مضت, مستفيد69 said:

ع انني جربت الازرار كما قلت استاذي الفاضل وغيرت الكتب

السلام عليكم

المشكلة لديكم  أنكم فتحتم النموذج الفرعي لوحده دون فتح النموذج الرئيسي ...

أخي الحبيب

للتتنبيه البرنامج ليس كاملاً، بمعنى هناك ترتيب منطقي لفتح النماذج بعد إغلاق جزء التنقل، وهو غير موجود في المثال، ينبغي فتح نموذج  Stylecolor عن طريق النموذج  criteriaColor

وألا يظهر النموذج الفرعي للمستخدم.

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

عسى أن أضع منشوراً مستقلاً أشرح به الطريقة مع وضع مثال ديناميكي / مرن للفكرة قد يناسب معظم الاستخدامات.

أللهم صل على سيدنا محمد وعلى آله وصحبه وسلم

11 دقائق مضت, مستفيد69 said:

حملت المرفق وسأبدا التجارب والتامل

مرحباً

تجريب الأزار أكثر من كاف مبدئياً!!

🙂

نعم ممكن ... كل ما عليك هو الاستفادة من المرفق النهائي في سؤال الأخ مستفيد

وأن تقوم بكتابة الأحرف الإنكليزية في جدول المعايير وتختار لوناً واحداً لكل حرف

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

أللهم صل على سيدنا محمد وعلى آله وصحبه وسلم

السلام عليكم

هذا منتهى الأمر إن شاء الله تعالى

الشكر للأستاذ @أبو إبراهيم الغامدي

على مساهمته القيمة فلولا كوده وتوجهيه لكان من الصعب علي أن أكمل العمل على هذا الوجه

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

ولله الحمد، أللهم صل على سيدنا محمد وعلى آله وصحبه وسلم

FinalColorizing.accdb

السلام عليكم

 الطريقة كانت عبارة عن نموذج لربط الستايل/ النمط بالكتاب ... وسميت النموذج Stylecolor

عند تسجيل كتاب جديد يتبع النمط

وتخزن قيمة معرف النمط في حقل في جدول Books

بواسطة الدالة DlookUp  نصل إلى حقل تخزين معرفات الأنماط

لكن الذي توقفت عنده هو كيفية استخدام الدالة Mid  أو  Split  لاستخراج أرقام الأنماط واستدعاء بقية محددات الوظيفة / Function عن طريق الدالة DlookUp  وهو ما استغرق مني وقتاً طويلاً دون نتيجة

أظن أني لن أحقق شيئاً في هذه الطريقة التي رسمتها بمخيلتي، على الأقل في حدودي معرفتي الحالية.

أستاذ @أبو إبراهيم الغامدي

لقد شاهدت مرفقكم، وأثار تساؤلي وجود دالتين بنفس الاسم AnnotationColoring إحداهما Public، هل من الممكن شرح هذه النقطة.

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

ColorizingAAA.accdb

1 ساعه مضت, أبو إبراهيم الغامدي said:

هذا المرفق هو تطبيق لما سبق أن ذكرت من مقتراحات..

جزاكم الله كل خير وسلمت يداك ..

من البارحة وأنا أعمل على قدر وقتي على فكرة جديدة عندما استكملها سأطرحها في الإجابة  ... لقد شارفت على الانتهاء منها...

1 ساعه مضت, moamen salem said:

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

السلام عليكم

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

والملفات رقم 3 و 2 حملهما صاحب السؤال ... أعتقد أن المشكلة ليست من الموقع أو الملف.

ملاحظة: تم عمل البرنامج على أوفيس 2010 64 بت

2 ساعات مضت, مستفيد69 said:

اكيد ان هذا الكلام موجه للاستاذ @Khalf

فهو اصعب من ان احاول فهمه وتطبيقه 🤣

وشكرا للاساتذة الافاضل على اهتمامهم وزادكم الله علما ونفعا

🙂

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

ولذلك قد أستطيع كتابة خوارزمية لكن قد أعجز عن كتابة الكود المناسب بسهولة، سأحاول لكني ... لا أعدك!

مرحباً

6 ساعات مضت, hamdynose said:

قد تم حل المشكلة بعد اضافة Me. Requery الى اخر الكود

هل تتحدث عن الكود الذي في المشاركة السابقة أم أنه كود في قاعدة البيانات الأصلية غير موجود في المثال الذي رفعته؟

على أية حال، للتوضيح:

الذي توقعته من قراءة العنوان -في البداية-  أنك تريد أن تقوم بالإدخال على استعلام مبني على جدولين، و هو -ما أظن أنك كنت تبحث عنه-من خلال تفاعلك مع الإجابة السابقة.

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

أللهم صل على سيدنا محمد وعلى آله وصحبه وسلم

نموذج إدخال وعرض بيانات.accdb

7 ساعات مضت, أبو إبراهيم الغامدي said:

 

لا أضاع الله تعبك وجهدك أستاذ @Khalf ..

فعلا حل ذكي! مع بساطته سهولته.. وأشهد أنه أحد نوادرك.. شكراً لك.. 

 

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

وأعطاكم فوق السؤل.

هل كل الكتب ستكون في قاعدة بيانات واحدة؟

هل تحتاج إلى إعادة الألوان إلى الأسود؟

2 ساعات مضت, hamdynose said:

بارك الله فيكم وزينكم بجميل العلم ولكن عند الضغط على زر تكرار السجل الحالى تظهر هذه الرسالة ولا يتم حفظ السجل 

لقد كررت قيم المفتاح الرئيسي بالإدخال

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

فالنموذج ناقص ...

8 دقائق مضت, مستفيد69 said:

بخصوص ما ذكرته من ان الايات لم تاخذ اللون الاحمر الذي اخترته بل اللون الازرق

السلام عليكم

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

9 دقائق مضت, مستفيد69 said:

والعبارات مختلفة وقد توجد هذه العبارات المراد تلوينها قد توجد في كتاب آخر ولا يراد تلوينها

النموذج ديناميكي ويمكن تغيير العبارات و الكلمات التي ترغب بتلوينها

10 دقائق مضت, مستفيد69 said:

فانا احاول قدر استطاعتي ان افهم الملفات والاكواد التي اجدها في هذا المنتدى وغيره

الفكرة لبست بفهم الأكواد ولكن بالتجريب فقط .

وأعتذر على التقصير إن لم يحقق العمل طلبكم ... فهو أكثر ما انتهيت إليه .. سأحاول أن أصل لما هو أقرب لطلبكم .. وحتى ذلك الوقت لا بد أن أحداً من الأخوة يستطيع الوصول إلى بغيتك ...

8 دقائق مضت, jjafferr said:

وكذلك لاحظت وجود بعض الوحدات التي تحتاج تنظيف وازالة 😁

السلام عليكم

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

السلام عليكم

بالنسبة إلى السطر الأحمر:

فهو متعلق بنواة الويندوز، وقد اقتبسته من موضوع للأستاذ @jjafferr

وفيه تفصيل عن سبب وجود هذا اللون الأحمر.

بالنسبة إلى الطريقة:

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

شاهد المرفق بإمعان، فما قد تستصعب التأمل به لدقائق، قد استغرق ساعات من التفكير والعمل لموضوع غير مسبوق عندي.

أللهم صل على سيدنا محمد وعلى آله وصحبه وسلم 

أخي حمدي  

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

لقد كتبت لك كوداً يمكن الاستفادة منه ... لكنه قد لا يلبي حاجاتك إلا مع التعديل.

5 دقائق مضت, abouelhassan said:

اشكرك استاذي الكريم

الكود يتوقف عند كلمة conect بعد فتح باسورد الفجوال بيزاك ماذا افعل لكى يعمل استاذنامع الشكر والتقدير

 

 

 

سأحاول على قدر معرفتي ..

هل من الممكن إلصاق الكود كاملاً؟

مع أني لا أعدك بالحل ... لكنها محاولة 

السلام عليكم

هذا ما تحتاج وتبحث عنه إن شاء الله

أللهم صل على سيدنا محمد وعلى آله وصحبه وسلم

لا إله إلا الله وحده لا شريك له، له الملك وله الحمد يحيي ويميت وهو على كل شيء قدير

Colorizing.accdb

1 دقيقه مضت, Amr Ashraf said:

النموذج غير منضم اساسا

لم أشاهد المثال لكن توقعت أن المشكلة كون قاعدة البيانات فارغة.

جزاكم الله كل خير على ما تقدمونه وأحسن إليكم

السلام عليكم النموذج الذي تعمل به فارغ

ينبغي إضافة سطر مثل هذا لحل المشكلة:

if nz(dcount("*","your tabel name"),0) = 0 then
else
docmd.gotorecord ,,,acnewrec
end if

منذ ساعه, ahmedabuzena said:

السلام عليكم اخي الكريم جزاكم الله خيرا على اهتمامك ومساعدتى جعله الله في ميزان حسناتك

فتحتح البرنامج اعطانى هذه المشكله

 

السلام عليكم

في المرفق ستجد نموذجاً جديداً ضمنته المطلوب

 النموذج الجديد للإدخال والعرض معاُ ،مع ملاحظة أن العمل لا يزال ناقصاً، لكني أجبت عن سؤالكم.

تكرار سجل.accdb

مرحباً

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

وتستطيع أخي الكريم متابعة طلبك في سؤالك السابق مما يسمح للأعضاء الأكارم بفهم أكبر لما تبحثون عنه، بوضعه في سياقه.

مع الأسف الملف يحتاج إلى إصدار أحدث من الأوفيس الموجود على حاسبي.

عسى أن يرد أحد الأعضاء ممن يتوفرون على ذلك.

بالتوفيق