النجاشي

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

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

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

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

تحياتي

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

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

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

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

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

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

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

 

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

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

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

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

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

بارك الله فيك

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

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

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

 

 

SearchIn HTML Table.accdb 600 kB · 1 download

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

بهذا السطر

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

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

أهلا بك..

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

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

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

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

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

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

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

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

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

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

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

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

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

أهلا بكم..

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

 

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

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

SearchIn HTML Table.accdb 592 kB · 3 downloads

 

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

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

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

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

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

تحياتي اليك 

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) وعندها نقوم بتظليل الصف الذي يحوي هذه الخلايا..

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

تحياتي اليك

اليك المرفق 

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

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

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

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

DB2.rar

في 11‏/6‏/2023 at 23:08, دروب مبرمج said:

في ما بعد قد يمكنني فعل ذلك 

فأنا ما زلت اتعلم اخي الكريم و هذه هي حدودي في الوقت الحالي

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

تحياتي

في 9‏/6‏/2023 at 15:44, دروب مبرمج said:

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

web-البحث.accdb 488 kB · 5 downloads

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

57 دقائق مضت, دروب مبرمج said:

تفضل هذا التعديل 

web-البحث.accdb 544 kB · 1 download

بارك الله فيك استاذي الغالي صار البحث تمام  مبدع

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

5 دقائق مضت, شايب said:

الحقيقة يا ابا زاهر لا اعلم ماهي المشكله لديك

نعم ممكن انشاء مجلد امن بالكود او عن طريق ملف ريجستري

و لكن الافضل انتظار رد من صاحب الموضوع

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

4 دقائق مضت, شايب said:

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

استاذي @شايب لم يظهر معي ياليت توضح لي الفكرة بصوره بارك الله فيك

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

في 6‏/6‏/2023 at 18:18, دروب مبرمج said:

ابشر

من طيبك حفظك الله ورعاك زادك الله علما

في 5‏/6‏/2023 at 19:13, دروب مبرمج said:

كثير من تصاميم HTML

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

اضع بين يديكم فكرة !

فكرة جدول مبني بلغة HTML مع تلوين الاسطر عند المرور عليها

آمل ان تنال على استحسانكم

web.mdb 288 kB · 20 downloads

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

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

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

مشكور رر أستاذي بارك الله فيك

4 ساعات مضت, Moosak said:

بارك الله فيك أخي النجاشي ..

وانتظروا التحديث القادم إن شاء الله 😊

موفق باذن الله من جميل الي الاجمل سملت يديك يالغالي

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

السلام عليكم احبتي كل عام ونتم بخير

احبتي المطلوب عندما اكون قي السجل الحالي يظهر لي رقم الصنف التالي بTXT_2

تحياتي احبتي

02.accdb