الغاء التظليل التلقائي للنص في حقل نصي

[rawya]

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

تحياتي الطيبة و بعد ..

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

[سهل احمد العريشي]

بسم الله الرحمن الرحيم

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

أخيك سهل احمد ( ابو نعيم )

[rawya]

شكراً اخي الكريم ..

معلومة مفيدة .. لكن للأسف ليس هذا ما اعني بالتحديد

اريد عند الضغط على التاب نفسه لا يتظلل النص داخل الحق النصي ..

وشكراً

[مصلح الحريصي]

بعد إذن الأخ سهل

أذهب لقائمة أدوات ثم خيارات ثم لوحة المفاتيح ثم سلوك إدخال الحقول وأختر الخيار الثاني " الإنتقال إلى بداية الحقل " أو الثالث " الإنتقال إلى نهاية الحقل " حسب رغبتك فالخيار الأول يظلل الحقل بالكامل.

[rawya]

بالضبط سيدي .. هذا ما أردت فعله

جزاك الله خير ........ :(

[أمجد جمالي]

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

من بعد اذن الاستاذ ابو نعيم والاستاذ مصلح الحريصي

يوجد طريقة بالكود تقوم بإلغاء التضليل للنص في حقل نصي

ضعي هذا الكود في حدث عند الدخول او On got Focus

 Dim IntWhere As Integer

With Me!Textbox
IntWhere = InStr(.Value, Textbox)
.SetFocus
.SelStart = IntWhere - 1
End With

فقط عدلي اسم النص من Textbox الى الاسم الموجود عندك

تحياتي

ابو نادر

[rawya]

شكراً أخ أمجد

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

طيب واذا اردت ان اعكس الموضوع .. أي ان معظم الخلايا لن تكون مظللة ( بتحديدها من أدوات-- خيارات )وأريد كود لتظليل إحدى الخلايا..

:(

[أمجد جمالي]

طيب واذا اردت ان اعكس الموضوع .. أي ان معظم الخلايا لن تكون مظللة ( بتحديدها من أدوات-- خيارات )وأريد كود لتظليل إحدى الخلايا

تفضلي

Dim IntWhere As Integer
With Me!Textbox
  IntWhere = InStr(.Value, Textbox)
    .SetFocus
    .SelStart = IntWhere - 1
    .SelLength = Len(Textbox)
End With

تحياتي