rey360 قام بنشر أكتوبر 19, 2019 مشاركة قام بنشر أكتوبر 19, 2019 السلام عليكم أعضاء المنتدى الكرام أريد طريقة للبحث بحيث عند كتابة الحرف يعطيني جميع اسماء التى يكون ظمنها هذا الحرف مع أنني أعرف الطريقة الا أنها لا تشتغل في هذا النموذج أريد معرفة السبب وشكرا test2.accdb رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر أكتوبر 19, 2019 مشاركة قام بنشر أكتوبر 19, 2019 اتفضل اخى مثالك بد التعديل Like "*" & [Forms]![f_listeclients]![Texte51] & "*" بالتوفيق ان شاء الله test2.accdb 1 رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر أكتوبر 19, 2019 الكاتب مشاركة قام بنشر أكتوبر 19, 2019 (معدل) شكرا لك أستاذ أحمد الفلاحجى ولكن أردتها على هذا الشكل like "*" & [Forms]![f_listeclients]![Texte51].[Texte] & "*" الا أنها لم تعمل معي لانني أرد أن تعمل تعديث أتوماتكي كلما زدت حرف أو انقصته حرف . تم تعديل أكتوبر 19, 2019 بواسطه rey360 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر أكتوبر 19, 2019 مشاركة قام بنشر أكتوبر 19, 2019 العفو اخى فهمت ما تريد لكن مش عارف اظبطها ممكن تتظبط لو مكان العرض ليست بوكس مثل مثال الاستاذه زهره المرفق وان شاء الله احد الاساتذه يساعد فيما تريده والله اعلى واعلم تمنياتى لك بالتوفيق SearchInListBox.rar 2 رابط هذا التعليق شارك More sharing options...
essam rabea قام بنشر أكتوبر 19, 2019 مشاركة قام بنشر أكتوبر 19, 2019 تفضل أخى rey360 عسى أن يكون المطلوب بالتوفيق test2.accdb 3 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة kha9009lid قام بنشر أكتوبر 19, 2019 أفضل إجابة مشاركة قام بنشر أكتوبر 19, 2019 استاذي @essam rabea وضع الحل عن طريق نموذج فرعي مخفي يتم اضهارة وتحديثة عند التغيير وهنا حل اخر بدون الحاجة الى نموذج فرعي test2.accdb 3 2 رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر أكتوبر 19, 2019 الكاتب مشاركة قام بنشر أكتوبر 19, 2019 أشكركم أساتذتي الكرام أحمد الفلاحجى و essam rabea وkha9009lid على المجهود الذي قمتم به و أرجو أن يكون في ميزن حسناتكم شكرا جزيلا لكم 2 رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر أكتوبر 19, 2019 مشاركة قام بنشر أكتوبر 19, 2019 4 دقائق مضت, rey360 said: أشكركم أساتذتي الكرام أحمد الفلاحجى و essam rabea وkha9009lid على المجهود الذي قمتم به و أرجو أن يكون في ميزن حسناتكم شكرا جزيلا لكم الشكر لله سبحانه 1 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر أكتوبر 19, 2019 مشاركة قام بنشر أكتوبر 19, 2019 الحمدلله اللذى بنعمته تتم الصالحات جزاهم الله خيرا استذتنا الافاضل وسلمت ايديهم واسال الله ان يكتب لهم بكل حرف حسنه ويبارك لهم فى جميع ما يحبون 2 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أكتوبر 19, 2019 مشاركة قام بنشر أكتوبر 19, 2019 اقتباس وهنا حل اخر بدون الحاجة الى نموذج فرعي استاذنا / خالد ممكن توضيح Me.txt3.SelStart = Len(Me.txt3.Text) هل كلمة selstart دالة اريد ان اعرف معناها جزاكم الله خير 1 رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 8 ساعات مضت, حلبي said: استاذنا / خالد ممكن توضيح Me.txt3.SelStart = Len(Me.txt3.Text) هل كلمة selstart دالة اريد ان اعرف معناها جزاكم الله خير إرجاع أو تعيين نقطة البداية للنص المحدد ونستخدمها هنا بعد اعادة التركيز للحقل ونقل المؤشر لما بعد الحرف المكتوب في مربع النص 1 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 (معدل) اقتباس إرجاع أو تعيين نقطة البداية للنص المحدد ونستخدمها هنا بعد اعادة التركيز للحقل ونقل المؤشر لما بعد الحرف المكتوب في مربع النص ولذلك عن البحث عن اسم الموظف محمد شاهين مثلا فانها لا تسمح بتكملة الاسم وعند كتابة اسم الاب ترجع من نقطة البداية كما تفضلت بالتوضيح حضرتك طب ماذا لو اردنا ان نبحث عن بداية اسم الاب كيف نكمل حتي يعطينا كل من هو اسمه محمد ويبدأ اسم ابيه بالحرف الشين مثل شريف مثلا . تم تعديل أكتوبر 20, 2019 بواسطه الحلبي رابط هذا التعليق شارك More sharing options...
Ali Sadiq قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 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 هذا الكود لعمل المسافة وتكملة البحث ان شاءالله يكون هو المطلوب 1 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 اولا الاستاذ / علي ..... جزاك الله كل خير اقتباس هذا الكود لعمل المسافة وتكملة البحث لم اتمكن من التطبيق لو حضرتك تطبق على المثال المرفق فى المشاركة الاولى اكون شاكرا لك رابط هذا التعليق شارك More sharing options...
Ali Sadiq قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 من بعد اذن اخي واستاذي @kha9009lid اليك المرفق بعد اضافة الكود Test2.accdb 1 1 رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر أكتوبر 20, 2019 الكاتب مشاركة قام بنشر أكتوبر 20, 2019 4 ساعات مضت, حلبي said: ولذلك عن البحث عن اسم الموظف محمد شاهين مثلا فانها لا تسمح بتكملة الاسم وعند كتابة اسم الاب ترجع من نقطة البداية كما تفضلت بالتوضيح حضرتك طب ماذا لو اردنا ان نبحث عن بداية اسم الاب كيف نكمل حتي يعطينا كل من هو اسمه محمد ويبدأ اسم ابيه بالحرف الشين مثل شريف مثلا . أخ حلبي الكود يعمل بكفاء عالية واذا أرد البحث عن محمد شاهين فلا يمكن كتابة محمدشاهين بدون مسافة لان الاسم اصلا به مسافة تفصل بين اسم واسم العائلة رابط هذا التعليق شارك More sharing options...
Ali Sadiq قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 السلام عليكم اخي @rey360 انظر للملف المرفق في مشاركتي الاخيره وستجد الفرق بعد اضافة الكود والخاص بالمسافة وبامكانك الان ان تبحث باسم محمد شاهين او محمد شاكر او محمد شريف وبوضع المسافة بين الاسم الاول والثاني. لفد اضفت هذه الاسماء في الجدول حتى ترى الفرق. تحياتي 2 1 رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر أكتوبر 20, 2019 الكاتب مشاركة قام بنشر أكتوبر 20, 2019 شكرا لك أخي Ali Sadiq على تعديل بما يناسب أخ حلبي رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 39 دقائق مضت, Ali Sadiq said: من بعد اذن اخي واستاذي @kha9009lid اليك المرفق بعد اضافة الكود Test2.accdb 512 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 8 downloads اخي @Ali Sadiq ما يحتاج اذن بارك الله فيك حل جميل وموفق والاجمل منه مشاركتك واكمالك ما بدأته 1 رابط هذا التعليق شارك More sharing options...
Ali Sadiq قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 5 دقائق مضت, rey360 said: شكرا لك أخي Ali Sadiq على تعديل بما يناسب أخ حلبي الشكر موصول للجميع اخي @rey360 1 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 الله الله عليك استاذنا /علي صادق تمام التمام الله يبارك لك ويجعله في حسناتك ان شاء الله ودعنى اهمس في اذنيك : من خلال وضع الاكواد احس بانك خبير وليس عضو جديد اتوقع قريبا بانك تكون خبير للمنتدي ليس لانك قمت بهذه المشاركة فقط ولكن انا اعلم تماما صدق احساسى واتوقع في ردك ان يكون تواضع وتقولى لي بانك مبتدأ وانك مازلت تتعلم" ولا انسى ابدا استاذي ومعملنا الاستاذ / خالد فهو خبير بمعنى الكلمة وله لمسات خبير جزاكم الله كل الخير رابط هذا التعليق شارك More sharing options...
Ali Sadiq قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 11 دقائق مضت, kha9009lid said: اخي @Ali Sadiq ما يحتاج اذن بارك الله فيك حل جميل وموفق والاجمل منه مشاركتك واكمالك ما بدأته وردك هو الاجمل اخي وبارك الله فيك . رابط هذا التعليق شارك More sharing options...
Ali Sadiq قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 5 دقائق مضت, حلبي said: الله الله عليك استاذنا /علي صادق تمام التمام الله يبارك لك ويجعله في حسناتك ان شاء الله ودعنى اهمس في اذنيك : من خلال وضع الاكواد احس بانك خبير وليس عضو جديد اتوقع قريبا بانك تكون خبير للمنتدي ليس لانك قمت بهذه المشاركة فقط ولكن انا اعلم تماما صدق احساسى واتوقع في ردك ان يكون تواضع وتقولى لي بانك مبتدأ وانك مازلت تتعلم" ولا انسى ابدا استاذي ومعملنا الاستاذ / خالد فهو خبير بمعنى الكلمة وله لمسات خبير جزاكم الله كل الخير اخي العزيز @حلبي فعلا انا مجرد مبتدى وهاوي ولست بخبير واحاول ان اتعلم وما شاءالله المنتدى غني بالخبراء والاستاذ خالد فعلا خبير وابدا ما يقصر وحتى باقي الاساتذة الشكر موصول للجميع. اتمنى لك التوفيق تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان