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

[النجاشي]

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

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

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

DB2.rarFetching info...

[دروب مبرمج]

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

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

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

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

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

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

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

Expand  

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

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

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

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

[النجاشي]

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

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

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

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

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

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

Expand  

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

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

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

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

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

تحياتي اليك

اليك المرفق 

 

مثال ابو ابراهيم.accdbFetching info...

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

  في 23‏/6‏/2023 at 16:00, النجاشي said:

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

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

Expand  

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

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

 

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

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

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

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

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

 

الإشكالات: 

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

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

 

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

 

  SearchIn HTML Table.accdbFetching info...

[النجاشي]

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

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

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

 

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

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

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

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

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

 

الإشكالات: 

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

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

 

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

 

  SearchIn HTML Table.accdb 564 kB · 3 downloads

Expand  

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

جميل جدا 

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

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

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

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

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

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

   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
تحياتي يالغالي

 

 

[دروب مبرمج]

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

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

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

 

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

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

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

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

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

 

الإشكالات: 

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

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

 

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

 

  SearchIn HTML Table.accdb 564 kB · 3 downloads

Expand  

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

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

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

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

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

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

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

[النجاشي]

 

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

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

 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 11:09, دروب مبرمج said:

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

Expand  

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

[النجاشي]

  في 24‏/6‏/2023 at 12:09, أبو إبراهيم الغامدي 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) وعندها نقوم بتظليل الصف الذي يحوي هذه الخلايا..

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

Expand  

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

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

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

الإشكالات: 

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

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

Expand  

أهلا بكم..

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

 

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

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

SearchIn HTML Table.accdbFetching info...

 

[النجاشي]

  في 26‏/6‏/2023 at 08:54, أبو إبراهيم الغامدي said:

أهلا بكم..

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

 

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

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

SearchIn HTML Table.accdb 592 kB · 3 downloads

 

Expand  

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

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

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

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

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

تحياتي اليك 

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

أهلا بك..

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

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

Expand  

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

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

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

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

Expand  

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

 

 

[النجاشي]

  في 26‏/6‏/2023 at 18:57, أبو إبراهيم الغامدي said:

أهلا بك..

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

Expand  

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

  في 26‏/6‏/2023 at 18:57, أبو إبراهيم الغامدي said:

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

Expand  

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

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

  في 26‏/6‏/2023 at 18:57, أبو إبراهيم الغامدي said:

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

Expand  

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

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

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

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

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

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

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

Expand  

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

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

 

 

SearchIn HTML Table.accdbFetching info...

[النجاشي]

  في 30‏/6‏/2023 at 20:00, أبو إبراهيم الغامدي said:

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

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

 

 

SearchIn HTML Table.accdb 600 kB · 1 download

Expand  

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

بهذا السطر

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

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

[النجاشي]

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

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

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

بارك الله فيك

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

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

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

Expand  

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

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

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

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

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

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

 

[النجاشي]

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

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

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

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

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

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

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

 

Expand  

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

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

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

  في 3‏/7‏/2023 at 12:51, النجاشي said:

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

Expand  

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

[النجاشي]

  في 3‏/7‏/2023 at 13:16, أبو إبراهيم الغامدي said:

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

Expand  

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

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

تحياتي