طريقة البحث عن الاسم في مربع البحث بدون اضغط على enter

[rey360]

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

test2.accdb

[أبوبسمله]

اتفضل اخى

مثالك بد التعديل

Like "*" & [Forms]![f_listeclients]![Texte51] & "*"

بالتوفيق ان شاء الله

test2.accdb

[rey360]

شكرا لك أستاذ أحمد الفلاحجى ولكن أردتها على هذا الشكل 

like "*" & [Forms]![f_listeclients]![Texte51].[Texte] & "*"

الا أنها لم تعمل معي لانني أرد أن تعمل تعديث أتوماتكي كلما زدت حرف أو انقصته حرف .

تم تعديل أكتوبر 19, 2019 بواسطه rey360

[أبوبسمله]

العفو اخى

فهمت ما تريد لكن مش عارف اظبطها

ممكن تتظبط لو مكان العرض ليست بوكس مثل مثال الاستاذه زهره المرفق

وان شاء الله احد الاساتذه يساعد فيما تريده

والله اعلى واعلم

تمنياتى لك بالتوفيق

SearchInListBox.rar

[essam rabea]

تفضل أخى rey360

عسى أن يكون المطلوب

بالتوفيق

 

test2.accdb

[kha9009lid]

استاذي @essam rabea وضع الحل عن طريق نموذج فرعي مخفي يتم اضهارة وتحديثة عند التغيير

وهنا حل اخر بدون الحاجة الى نموذج فرعي

 

test2.accdb

[rey360]

أشكركم أساتذتي الكرام أحمد الفلاحجى و essam rabea وkha9009lid  على المجهود الذي قمتم به و أرجو أن يكون في ميزن حسناتكم شكرا جزيلا لكم 

[kha9009lid]

4 دقائق مضت, rey360 said:

أشكركم أساتذتي الكرام أحمد الفلاحجى و essam rabea وkha9009lid  على المجهود الذي قمتم به و أرجو أن يكون في ميزن حسناتكم شكرا جزيلا لكم 

الشكر لله سبحانه

[أبوبسمله]

الحمدلله اللذى بنعمته تتم الصالحات

جزاهم الله خيرا استذتنا الافاضل وسلمت ايديهم

واسال الله ان يكتب لهم بكل حرف حسنه ويبارك لهم فى جميع ما يحبون

 

[الحلبي]

اقتباس

وهنا حل اخر بدون الحاجة الى نموذج فرعي

استاذنا / خالد

ممكن توضيح 

  Me.txt3.SelStart = Len(Me.txt3.Text)

هل كلمة selstart دالة اريد ان اعرف معناها

جزاكم الله خير

[kha9009lid]

8 ساعات مضت, حلبي said:

استاذنا / خالد

ممكن توضيح 

  Me.txt3.SelStart = Len(Me.txt3.Text)

هل كلمة selstart دالة اريد ان اعرف معناها

جزاكم الله خير

إرجاع أو تعيين نقطة البداية للنص المحدد ونستخدمها هنا بعد اعادة التركيز للحقل ونقل المؤشر لما بعد الحرف المكتوب في مربع النص

[الحلبي]

اقتباس

إرجاع أو تعيين نقطة البداية للنص المحدد ونستخدمها هنا بعد اعادة التركيز للحقل ونقل المؤشر لما بعد الحرف المكتوب في مربع النص

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

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

تم تعديل أكتوبر 20, 2019 بواسطه الحلبي

[Ali Sadiq]

2 ساعات مضت, حلبي said:

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

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

Private Sub txt3_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 32 Then
        Me.txt3.Value = Me.txt3.Text & Chr$(32)
        Me.txt3.SelStart = Len(txt3.Text)
    End If

End Sub

هذا الكود لعمل المسافة وتكملة البحث

ان شاءالله يكون هو المطلوب

[الحلبي]

اولا الاستاذ / علي   .....    جزاك الله كل خير  

اقتباس

هذا الكود لعمل المسافة وتكملة البحث

لم اتمكن من التطبيق لو حضرتك تطبق على المثال المرفق فى المشاركة الاولى اكون شاكرا لك 

[Ali Sadiq]

من بعد اذن اخي واستاذي @kha9009lid 

اليك المرفق بعد اضافة الكود 

 

 

Test2.accdb

[rey360]

4 ساعات مضت, حلبي said:

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

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

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

[Ali Sadiq]

السلام عليكم اخي @rey360

انظر للملف المرفق في مشاركتي الاخيره وستجد الفرق بعد اضافة الكود والخاص بالمسافة 

وبامكانك الان ان تبحث باسم محمد شاهين او محمد شاكر او محمد شريف وبوضع المسافة بين الاسم الاول والثاني.

 لفد اضفت هذه الاسماء في الجدول حتى ترى الفرق. 

تحياتي

[rey360]

شكرا لك أخي Ali Sadiq على تعديل بما يناسب أخ حلبي 

 

[kha9009lid]

39 دقائق مضت, Ali Sadiq said:

من بعد اذن اخي واستاذي @kha9009lid 

اليك المرفق بعد اضافة الكود 

 

 

Test2.accdb 512 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 8 downloads

اخي @Ali Sadiq ما يحتاج اذن بارك الله فيك

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

[Ali Sadiq]

5 دقائق مضت, rey360 said:

شكرا لك أخي Ali Sadiq على تعديل بما يناسب أخ حلبي 

 

الشكر موصول للجميع اخي @rey360

[الحلبي]

الله الله عليك استاذنا /علي صادق 

تمام التمام الله يبارك لك ويجعله في حسناتك ان شاء الله 

ودعنى اهمس في اذنيك : من خلال وضع الاكواد احس بانك خبير وليس عضو جديد اتوقع قريبا بانك تكون خبير للمنتدي ليس لانك قمت بهذه المشاركة فقط ولكن انا اعلم تماما صدق احساسى

واتوقع في ردك ان يكون تواضع  وتقولى لي بانك مبتدأ وانك مازلت تتعلم"

ولا انسى ابدا استاذي ومعملنا الاستاذ / خالد فهو خبير بمعنى الكلمة وله لمسات خبير

جزاكم  الله كل الخير

[Ali Sadiq]

11 دقائق مضت, kha9009lid said:

اخي @Ali Sadiq ما يحتاج اذن بارك الله فيك

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

وردك هو الاجمل اخي وبارك الله فيك .

[Ali Sadiq]

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

الله الله عليك استاذنا /علي صادق 

تمام التمام الله يبارك لك ويجعله في حسناتك ان شاء الله 

ودعنى اهمس في اذنيك : من خلال وضع الاكواد احس بانك خبير وليس عضو جديد اتوقع قريبا بانك تكون خبير للمنتدي ليس لانك قمت بهذه المشاركة فقط ولكن انا اعلم تماما صدق احساسى

واتوقع في ردك ان يكون تواضع  وتقولى لي بانك مبتدأ وانك مازلت تتعلم"

ولا انسى ابدا استاذي ومعملنا الاستاذ / خالد فهو خبير بمعنى الكلمة وله لمسات خبير

جزاكم  الله كل الخير

اخي العزيز @حلبي

فعلا انا مجرد مبتدى وهاوي ولست بخبير واحاول ان اتعلم وما شاءالله المنتدى غني بالخبراء والاستاذ خالد فعلا خبير وابدا ما يقصر وحتى باقي الاساتذة الشكر موصول للجميع.

اتمنى لك التوفيق 

تحياتي