لون السجل الحالي

[النجاشي]

السلام عليكم ورحمة الله

احبتي الكرام وجدت هذا المثال لاستاذنا الفاضل@

• أبو إبراهيم الغامدي مثال رائع 
• اريد عند البحث بحقل البحث يظلل لي كامل السجل 
• تحياتي احبتي

DB2.rar

[دروب مبرمج]

انصح بالحبث عن دورات في لغة HTML

لأن المثال المرفق مبني على لغة HTML

يجب عليك معرفة هذه اللغة لكي تستطيع التعامل معها 

[أبو إبراهيم الغامدي]

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

في 20‏/6‏/2023 at 19:15, النجاشي said:

اريد عند البحث بحقل البحث يظلل لي كامل السجل 

النموذج الذي أدرجته كمثال؛ مبني على تصفية البيانات وليس البحث فيها، وذلك بناء على طلب صاحب المشاركة..

وإذا أردنا أن نظلل السجلات التي تتضمن المعلومات المطلوبة، فهذا يعني أن السجلات جميعها سوف تظلل! وهذا لا يحقق المطلوب..

البحث في البيانات: يعني أن تكون جميع البيانات معروضة وعند البحث يقف المؤشر على السجل الذي فيه البيانات..

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

[النجاشي]

في 22‏/6‏/2023 at 14:58, أبو إبراهيم الغامدي said:

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

النموذج الذي أدرجته كمثال؛ مبني على تصفية البيانات وليس البحث فيها، وذلك بناء على طلب صاحب المشاركة..

وإذا أردنا أن نظلل السجلات التي تتضمن المعلومات المطلوبة، فهذا يعني أن السجلات جميعها سوف تظلل! وهذا لا يحقق المطلوب..

البحث في البيانات: يعني أن تكون جميع البيانات معروضة وعند البحث يقف المؤشر على السجل الذي فيه البيانات..

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

استاذي الفاضل الله يعطيك العافيه وصلت الفكره كوني اجهل الفرق بين التصفيه والبحث اعذرني يالغالي وصلت المعلومه الان

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

كونه اسهل لي من السابق وهو قريب من المطلوب جدا 

يكون البحث بالمربع الخصص للبحث ويكون بحدث عند التغير الكود وليس عن طريق زر امر ببكل الحقول اذا امكن اي الاسم والرقم

والتحرك باسهم الكيبورد اعلا  و اسفل يظلل السجل الحالي

تحياتي اليك

اليك المرفق 

 

مثال ابو ابراهيم.accdb

[أبو إبراهيم الغامدي]

10 ساعات مضت, النجاشي said:

يكون البحث بالمربع الخصص للبحث ويكون بحدث عند التغير الكود وليس عن طريق زر امر ببكل الحقول اذا امكن اي الاسم والرقم

والتحرك باسهم الكيبورد اعلا  و اسفل يظلل السجل الحالي

قبل أن أجيب على مطالبك:

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

 

إجابة المطالب

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

المطلب الثاني : هناك إجراءان:

استخدام الأسهم أو الصفحات (PgUp,PgDn)..

استخدام النقر بزر الفارة الأيمن.. (أوصي به)

 

الإشكالات: 

هناك إشكالية فيما إذا كانت البيانات أكثر من مجال العرض: عند البحث أو التنقل لا ترتفع الصفوف إلى مجال العرض..

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

 

أترك هذه الإشكالات للبحث والمشاركة مع الزملاء..

 

 SearchIn HTML Table.accdb

[النجاشي]

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

قبل أن أجيب على مطالبك:

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

 

إجابة المطالب

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

المطلب الثاني : هناك إجراءان:

استخدام الأسهم أو الصفحات (PgUp,PgDn)..

استخدام النقر بزر الفارة الأيمن.. (أوصي به)

 

الإشكالات: 

هناك إشكالية فيما إذا كانت البيانات أكثر من مجال العرض: عند البحث أو التنقل لا ترتفع الصفوف إلى مجال العرض..

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

 

أترك هذه الإشكالات للبحث والمشاركة مع الزملاء..

 

  SearchIn HTML Table.accdb 564 kB · 3 downloads

استاذي الفاضل رفع الله قدرك  انه عمل رائع زاداك الله علما يالغالي 

جميل جدا 

وكما قلت اشكاليه التنقل باسهم الكيبورد لكن باذن الله نجد لها حلها

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

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

باذن الله تتمل الفرحه قريبا بحاول انا من جهتي والزملاء ما بيقصرون ان شاء الله تتم الامور

واستاذنك اذا لديك الفرصه يالغالي

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

   Dim TR As HTMLTableRow
   
   If Not WD.activeElement.tagName = "body" And _
      Not WD.activeElement.tagName = "div" Then
      For Each TR In WD.getElementsByTagName("tr")
         TR.Style.background = ""
      Next
      With WD.activeElement.parentElement
         .Style.background = "lightgreen"
      End With
   End If
تحياتي يالغالي

 

 

[دروب مبرمج]

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

قبل أن أجيب على مطالبك:

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

 

إجابة المطالب

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

المطلب الثاني : هناك إجراءان:

استخدام الأسهم أو الصفحات (PgUp,PgDn)..

استخدام النقر بزر الفارة الأيمن.. (أوصي به)

 

الإشكالات: 

هناك إشكالية فيما إذا كانت البيانات أكثر من مجال العرض: عند البحث أو التنقل لا ترتفع الصفوف إلى مجال العرض..

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

 

أترك هذه الإشكالات للبحث والمشاركة مع الزملاء..

 

  SearchIn HTML Table.accdb 564 kB · 3 downloads

اتابع بشغف كل اطروحاتك استاذي

ان توظيفك للغات برمجة بهذا الاسلوب يخلق لنا مفهوم جديد لبرمجة الأكسس

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

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

فبعيدا عن الفكرة التي نالت اعجابي في كلا المثالين

ان صياغة الكود التي تقدمت بها فعلا سهلة لكل مبتدء اذا ما تعمق بها و فهم كل تكوينتها 

دائما اقف في مشاريعك بإنبهار و اقوم بالتصفيق لك في مخيلتي و اسلوبها المميز في التركيبة الكودية التي تجعل المبرمج المبتدء يفهمها 

[النجاشي]

 

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

[أبو إبراهيم الغامدي]

 Dim TR As HTMLTableRow
   
   If Not WD.activeElement.tagName = "body" And _
      Not WD.activeElement.tagName = "div" Then
      For Each TR In WD.getElementsByTagName("tr")
         TR.Style.background = ""
      Next
      With WD.activeElement.parentElement
         .Style.background = "lightgreen"
      End With
   End If

هذي ياعزيزي لتجاهل التركيز عند جسم الصفحة (Body Tag) وعند الحاوية (Div Tag) لأنها يمكن أن تكون العنصر النشط (ActiveElement)

وقبول التركيز على خلايا الجدول (TD Tag) وعندها نقوم بتظليل الصف الذي يحوي هذه الخلايا..

لماذا هذه الحيلة؟! لأن الجداول والصفوف لا تقبل التركيز!!

[أبو إبراهيم الغامدي]

منذ ساعه, دروب مبرمج said:

دائما اقف في مشاريعك بإنبهار و اقوم بالتصفيق لك في مخيلتي و اسلوبها المميز في التركيبة الكودية التي تجعل المبرمج المبتدء يفهمها 

لا يكفي التصفيق @دروب مبرمج دسّم يديك! وساعدني في حل الإشكالات.. دعني أرى مواهبك أنت والزملاء..

[النجاشي]

21 دقائق مضت, أبو إبراهيم الغامدي said:

 Dim TR As HTMLTableRow
   
   If Not WD.activeElement.tagName = "body" And _
      Not WD.activeElement.tagName = "div" Then
      For Each TR In WD.getElementsByTagName("tr")
         TR.Style.background = ""
      Next
      With WD.activeElement.parentElement
         .Style.background = "lightgreen"
      End With
   End If

هذي ياعزيزي لتجاهل التركيز عند جسم الصفحة (Body Tag) وعند الحاوية (Div Tag) لأنها يمكن أن تكون العنصر النشط (ActiveElement)

وقبول التركيز على خلايا الجدول (TD Tag) وعندها نقوم بتظليل الصف الذي يحوي هذه الخلايا..

لماذا هذه الحيلة؟! لأن الجداول والصفوف لا تقبل التركيز!!

بارك الله فيك يالغالي مشكوررر علي التوضيح

[أبو إبراهيم الغامدي]

في 24‏/6‏/2023 at 07:59, أبو إبراهيم الغامدي said:

الإشكالات: 

هناك إشكالية فيما إذا كانت البيانات أكثر من مجال العرض: عند البحث أو التنقل لا ترتفع الصفوف إلى مجال العرض..

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

أهلا بكم..

أنتم ترون زملائي أني أُبرمج ضمن بيئة VBA  ولم أستخدم JavaScript لأن الأمر لا يستدعي ذلك! ولأبقي العمل في متناول الجميع...

 

حل الإشكالات..

أعتقد أن كيفية حل الإشكالات لا تحتاج إلى شرح! وإذا أردتم ذلك فأرجو إعلامي..

SearchIn HTML Table.accdb

 

[النجاشي]

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

أهلا بكم..

أنتم ترون زملائي أني أُبرمج ضمن بيئة VBA  ولم أستخدم JavaScript لأن الأمر لا يستدعي ذلك! ولأبقي العمل في متناول الجميع...

 

حل الإشكالات..

أعتقد أن كيفية حل الإشكالات لا تحتاج إلى شرح! وإذا أردتم ذلك فأرجو إعلامي..

SearchIn HTML Table.accdb 592 kB · 3 downloads

 

استاذي الفاضل الله يعطيك العافيه  لي ملاحظه

عندما يكون في عدد كبير من السجلات مثلا جربت 500 سجل وجدت عند فتح النموذج بطي في الاقلاع وعند البحث يعلق

هل ممكن نخفي السجلات الذي ليس لها لون عند البحث مثلا لانه كانه الحظ اهتزاز نوعا ماء

السموحه يالغالي لو غلبتك  

حفظك الله ورعاك استاذنا ابو ابراهيم

تحياتي اليك 

[أبو إبراهيم الغامدي]

أهلا بك..

46 دقائق مضت, النجاشي said:

عندما يكون في عدد كبير من السجلات مثلا جربت 500 سجل وجدت عند فتح النموذج بطي في الاقلاع وعند البحث يعلق

لا يمكن أن أخمن السبب.. هذا يرجع إلى اليئة التي تعمل فيها.. 

أبطل حدث ()OnLoad إذا أردت..

49 دقائق مضت, النجاشي said:

هل ممكن نخفي السجلات الذي ليس لها لون عند البحث مثلا لانه كانه الحظ اهتزاز نوعا ماء

هل عدنا إلى نقطة البداية!.. 

 

 

[النجاشي]

منذ ساعه, أبو إبراهيم الغامدي said:

أهلا بك..

لا يمكن أن أخمن السبب.. هذا يرجع إلى اليئة التي تعمل فيها.. 

معذرتا استاذي تقصد هل النت له دور  

منذ ساعه, أبو إبراهيم الغامدي said:

أبطل حدث ()OnLoad إذا أردت..

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

ولكن بقي عندالبحث المشكله 

منذ ساعه, أبو إبراهيم الغامدي said:

هل عدنا إلى نقطة البداية!.. 

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

اعذرني طالب يحاول يتعلم 

وانتم فخرنا ونتعلم بكم 

حفظك الله ورعاك استاذي الغالي

[أبو إبراهيم الغامدي]

في 26‏/6‏/2023 at 22:38, النجاشي said:

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

هناك طريقة أخرى؛ وهي أن نجعل الصفوف المطابقة للبحث تظهر ملونة في الأعلى، وغير المطابقة تظهر غير ملونة في الأسفل..

أرجو أن تكون هذه الفكرة مرضية لك..

 

 

SearchIn HTML Table.accdb

[النجاشي]

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

هناك طريقة أخرى؛ وهي أن نجعل الصفوف المطابقة للبحث تظهر ملونة في الأعلى، وغير المطابقة تظهر غير ملونة في الأسفل..

أرجو أن تكون هذه الفكرة مرضية لك..

 

 

SearchIn HTML Table.accdb 600 kB · 1 download

استاذي الفاضل عندما اريد البحث لما ادخل حرف يفتح لي صفحه الاكواد ويوشر علي خرف I

بهذا السطر

For I = 0 To Rs.Fields.Count - 1

تم تعديل يونيو 30, 2023 بواسطه النجاشي

[النجاشي]

استاذي الغالي قمت بايقاف الاتي Option Explicit

في الوحده النمطيه MWebData

فهل هي ضروري تشغليها تو ممكن توضح لي عملهOption Explicit

بارك الله فيك

[أبو إبراهيم الغامدي]

9 ساعات مضت, النجاشي said:

فهل هي ضروري تشغليها تو ممكن توضح لي عملهOption Explicit

هذه الخصيصة ضرورية لمن يهمه التقيد بالإعلان عن المتغيرات والتصريح عن نوعها..

وقد تسأل.. هل لتحديد نوع البيانات أهمية في معالجة البيانات؟ فالجواب: نعم، هناك فرق في زمن المعالج، بين المتغير العام والمتغير النصي عند معالجة النصوص..

عند عدم تنشيط الخصيصة، لا يزال بالإمكان التصريح عن نوع البيانات دون الحاجة إلى الإعلان عنها كما في المثال التالي

Sub TestStringVariable
	'-- $للتصريح عن متغير نصي استخدم 
	A$="One,Two,Three"
	Debug.Print A
End Sub

أما بخصوص الخطأ..

لقد قمتُ بنسخ الشفرة ولصقها، ولم أنتبه أني لم أعلن عن المتغيرات التي فيها.. 

 

[النجاشي]

في 1‏/7‏/2023 at 11:53, أبو إبراهيم الغامدي said:

هذه الخصيصة ضرورية لمن يهمه التقيد بالإعلان عن المتغيرات والتصريح عن نوعها..

وقد تسأل.. هل لتحديد نوع البيانات أهمية في معالجة البيانات؟ فالجواب: نعم، هناك فرق في زمن المعالج، بين المتغير العام والمتغير النصي عند معالجة النصوص..

عند عدم تنشيط الخصيصة، لا يزال بالإمكان التصريح عن نوع البيانات دون الحاجة إلى الإعلان عنها كما في المثال التالي

Sub TestStringVariable
	'-- $للتصريح عن متغير نصي استخدم 
	A$="One,Two,Three"
	Debug.Print A
End Sub

أما بخصوص الخطأ..

لقد قمتُ بنسخ الشفرة ولصقها، ولم أنتبه أني لم أعلن عن المتغيرات التي فيها.. 

 

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

مشكورررررررر

[أبو إبراهيم الغامدي]

22 دقائق مضت, النجاشي said:

دوما وانت تبذل جاهدا ترضي تلاميذك وتحقق لهم ما يتمنون فهذا من طيب اصلك ا فألف تحيه اليك يالغالي

أشكر لك هذا الإطراء وأتمنى أن تحوز مشاركاتي على رضاكم..

[النجاشي]

منذ ساعه, أبو إبراهيم الغامدي said:

أشكر لك هذا الإطراء وأتمنى أن تحوز مشاركاتي على رضاكم..

وافي ما قصرت الحمدلله نلت المطلوب كثر الله خيرك أستاذنا الغالي

السموحة تعبتك معي

تحياتي