خطأ يحدث اثناء البحث فى التيكست

[إبراهيم ابوليله]

الاخوه الكرام

مرفق شيت

يحدث الخطا عند استدعاء البيانات

خاصة عند عد م تفعيل الكابس لوك

بمعنى ان لو الكلمه مكتوبه بالكابس لوك

عند البحث لابد من تفعيل الكابس لوك

فكيف تعالج هذه المشكله

TEL_2.rar

[الجموعي]

  في 5‏/3‏/2014 at 12:13, إبراهيم ابوليله said:

الاخوه الكرام

مرفق شيت

يحدث الخطا عند استدعاء البيانات

خاصة عند عد م تفعيل الكابس لوك

بمعنى ان لو الكلمه مكتوبه بالكابس لوك

عند البحث لابد من تفعيل الكابس لوك

فكيف تعالج هذه المشكله

أستاذي إبراهيم

تفضل محاولتي لعله هوالمطلوب

TEL_2.rar

[إبراهيم ابوليله]

اخى الجموعى

مش عارف اقولك ايه

بارك الله فيك

ومن تقدم الى تقدم

مشكورا على الكود الجميل ده

[إبراهيم ابوليله]

  في 5‏/3‏/2014 at 12:58, الجموعي said:

 

  في 5‏/3‏/2014 at 12:13, إبراهيم ابوليله said:

الاخوه الكرام

مرفق شيت

يحدث الخطا عند استدعاء البيانات

خاصة عند عد م تفعيل الكابس لوك

بمعنى ان لو الكلمه مكتوبه بالكابس لوك

عند البحث لابد من تفعيل الكابس لوك

فكيف تعالج هذه المشكله

أستاذي إبراهيم

تفضل محاولتي لعله هوالمطلوب

TEL_2.rar

 

اخى الجموعى

بالفعل الكود الذى ارفقته يعمل

جيدا مع الكتابه باللغه الانكليزيه

لكن حاول الكتابه باللغه العربيه

ستجد انه يتم كتابة ؟ بدلا من الحروف

فهل هناك حل

[الجموعي]

  في 6‏/3‏/2014 at 11:04, إبراهيم ابوليله said:

 

  في 5‏/3‏/2014 at 12:58, الجموعي said:

 

  في 5‏/3‏/2014 at 12:13, إبراهيم ابوليله said:

الاخوه الكرام

مرفق شيت

يحدث الخطا عند استدعاء البيانات

خاصة عند عد م تفعيل الكابس لوك

بمعنى ان لو الكلمه مكتوبه بالكابس لوك

عند البحث لابد من تفعيل الكابس لوك

فكيف تعالج هذه المشكله

أستاذي إبراهيم

تفضل محاولتي لعله هوالمطلوب

TEL_2.rar

 

اخى الجموعى

بالفعل الكود الذى ارفقته يعمل

جيدا مع الكتابه باللغه الانكليزيه

لكن حاول الكتابه باللغه العربيه

ستجد انه يتم كتابة ؟ بدلا من الحروف

فهل هناك حل

 

لا حظت  ذلك اخي فما بيدي حيله

في إنتظار ردوك الخبراء

هذه اكواد ممكن تحتاجها

TextBox1.Text = StrConv(TextBox1.Text, vbUpperCase)
'هذا الكود للكتابة بالحروف الكبيرة
TextBox1.Text = StrConv(TextBox1.Text, vbLowerCase)
'هذا الكود للكتابة بالحروف الصغيرة
TextBox1.Text = StrConv(TextBox1.Text, vbProperCase)
'هذا الكود للكتابة بالحروف في بداية الكلمة كبيرة
أمثلة:
vbUpperCase=IBRAHIM
vbLowerCase=ibrahim
vbProperCase=Ibrahim

[إبراهيم ابوليله]

اخى الجموعى

مشكورا على المعلومات الجميله دى

بارك الله فيك

ولكنى اقصد

انه حينما تم استعمال

TextBox1.Text = StrConv(TextBox1.Text, vbUpperCase)

بعدها حاولت الكتابه بالغه العربيه

فوجدت الحروف تظهر على شكل ؟؟؟؟

جرب المرفق الموجود فى المشاركه2

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

سترى المشكله

[الجموعي]

  في 6‏/3‏/2014 at 19:06, إبراهيم ابوليله said:

اخى الجموعى

مشكورا على المعلومات الجميله دى

بارك الله فيك

ولكنى اقصد

انه حينما تم استعمال

TextBox1.Text = StrConv(TextBox1.Text, vbUpperCase)

بعدها حاولت الكتابه بالغه العربيه

فوجدت الحروف تظهر على شكل ؟؟؟؟

جرب المرفق الموجود فى المشاركه2

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

سترى المشكله

أنا الكتابة باللغة العربية تظهر عندي تمام

شاهد المرفق

dd.rar

[الجموعي]

  في 6‏/3‏/2014 at 19:06, إبراهيم ابوليله said:

اخى الجموعى

مشكورا على المعلومات الجميله دى

بارك الله فيك

ولكنى اقصد

انه حينما تم استعمال

TextBox1.Text = StrConv(TextBox1.Text, vbUpperCase)

بعدها حاولت الكتابه بالغه العربيه

فوجدت الحروف تظهر على شكل ؟؟؟؟

جرب المرفق الموجود فى المشاركه2

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

سترى المشكله

أنا الكتابة باللغة العربية تظهر عندي تمام

شاهد المرفق

dd.rar

[إبراهيم ابوليله]

اخى الجموعى

ممكن تراحع معايا اعدادات اللغه

 

1.rar

2.rar

[الجموعي]

  في 6‏/3‏/2014 at 20:36, إبراهيم ابوليله said:

اخى الجموعى

ممكن تراحع معايا اعدادات اللغه

 

1.rar

2.rar

تفضل أخي إبراهيم إعدادات اللغة في جهازي

lang.zip

[إبراهيم ابوليله]

اخى الجموعى

جمعه مباركه علينا

بإذن الله

بارك الله فيك

كده ظبطت معايا

[إبراهيم ابوليله]

اخى الجموعى

ماذال هناك مشكله

انك لو كاتب الاسم بدون الكابس لوك

يعنى اصمول

هتيجى تبحث مش هيشتغل الكود

يبقى فى الحاله دى

لازم نحزف السطر ده من الكود

TextBox1.Text = StrConv(TextBox1.Text, vbUpperCase)

او نغيره ل

TextBox1.Text = StrConv(TextBox1.Text, vbLowerCase)

وانا عايز

انى لو كاتب الاسماء

سواء اصمول او كابيتال

عند البحث

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

لاظهار الاسماء المكتوبه كابيتال

[عبدالله باقشير]

السلام عليكم

 

استبدل شرط البحث بهذا

If LCase(TextBox1.Value) = LCase(cl) Then

تحياتي

[الجموعي]

  في 7‏/3‏/2014 at 22:28, عبدالله باقشير said:

السلام عليكم

 

استبدل شرط البحث بهذا

If LCase(TextBox1.Value) = LCase(cl) Then

تحياتي

أستاذي القدير /عبد الله باقشير

كود رائع جدا

بارك الله فيك

[الجموعي]

أخي إبراهيم تم العمل بكود الأستاذ /عبد الله باقشير

وتم المطلوب:

TEL_2.rar

[إبراهيم ابوليله]

اخى عبدالله باقشير

الكود رائع

ويعمل بنجاح

اشكرك على المساعده

بارك الله فيك

-----------------------------------------

كما اوجه كل الشكر

لاخى واستاذنا ابوحنين

فقد تفضل

بتزويدى بكود ايضا يعمل بنجاج

بارك الله فيه

If InStr(1, cl, TextBox4, vbTextCompare) = 1 Then

[إبراهيم ابوليله]

اخى الجموعى

اشكرك على المحاولات

والمساعده

بارك الله فيك

[الجموعي]

  في 8‏/3‏/2014 at 09:29, إبراهيم ابوليله said:

اخى الجموعى

اشكرك على المحاولات

والمساعده

بارك الله فيك

العفو اخي إبراهيم

وفيك بارك الله