اذهب الي المحتوي
أوفيسنا

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


rawya

الردود الموصى بها

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

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

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

:fff:

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 Dim IntWhere As Integer

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

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

تحياتي

ابو نادر

  • Like 1
رابط هذا التعليق
شارك

شكراً أخ أمجد

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

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

:(

رابط هذا التعليق
شارك

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

تفضلي

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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information