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

[rey360]

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

test2.accdbFetching info...

[أبوبسمله]

اتفضل اخى

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

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

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

test2.accdbFetching info...

[rey360]

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

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

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

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

[أبوبسمله]

العفو اخى

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

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

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

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

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

SearchInListBox.rarFetching info...

[essam rabea]

تفضل أخى rey360

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

بالتوفيق

 

test2.accdbFetching info...

[kha9009lid]

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

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

 

test2.accdbFetching info...

[rey360]

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

[kha9009lid]

  في 19‏/10‏/2019 at 20:33, rey360 said:

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

Expand  

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

[أبوبسمله]

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

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

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

 

[الحلبي]

  اقتباس

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

Expand  

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

ممكن توضيح 

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

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

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

[kha9009lid]

  في 19‏/10‏/2019 at 22:45, حلبي said:

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

ممكن توضيح 

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

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

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

Expand  

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

[الحلبي]

  اقتباس

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

Expand  

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

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

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

[Ali Sadiq]

  في 20‏/10‏/2019 at 15:21, حلبي said:

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

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

Expand  

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

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

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

[الحلبي]

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

  اقتباس

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

Expand  

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

[Ali Sadiq]

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

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

 

 

Test2.accdbFetching info...

[rey360]

  في 20‏/10‏/2019 at 15:21, حلبي said:

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

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

Expand  

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

[Ali Sadiq]

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

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

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

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

تحياتي

[rey360]

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

 

[kha9009lid]

  في 20‏/10‏/2019 at 19:33, Ali Sadiq said:

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

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

 

 

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

Expand  

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

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

[Ali Sadiq]

  في 20‏/10‏/2019 at 20:11, rey360 said:

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

 

Expand  

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

[الحلبي]

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

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

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

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

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

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

[Ali Sadiq]

  في 20‏/10‏/2019 at 20:17, kha9009lid said:

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

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

Expand  

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

[Ali Sadiq]

  في 20‏/10‏/2019 at 20:25, حلبي said:

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

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

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

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

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

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

Expand  

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

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

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

تحياتي