العنود قام بنشر أغسطس 3, 2004 مشاركة قام بنشر أغسطس 3, 2004 الى الاخوان الاعضاء والمشرفين في هذا المنتدى الكبير السلام عليكم ورحمة الله وبركاته اريد عمل نموذج ويتكون منه زر امر اسمه بحث ومربع نص المراد البحث فيه على ان تكون ان وضعت الاسم المراد البحث عنه في خانة الاسم مثلا حرف ((ح )) يقوم باخراج جميع الاسماء التي تبداءبهذا الحرف ويكون نتائج البحث تخرج في شبكه دبي قريد او جدول ارجو من الاخوه الرد على هذا الموضوع علما بانه لدي خلفيه متقدمه بعض الشي في لغة الفجول البيسك ولكم جزيل الشكر[سبحان الله] رابط هذا التعليق شارك More sharing options...
osama457 قام بنشر أغسطس 4, 2004 مشاركة قام بنشر أغسطس 4, 2004 (معدل) حسب ما فهمته عندك مربع نص اسمه Text0 هو اللي يبحث بواسطته عندك نموذج فرعي اسمه Child1 وفيه حقل t_Name في حدث عند التغيير في خصايص Text0 Private Sub Text0_Change() Dim MyStr As String MyStr = Nz(Me.Text0.Text, "") If MyStr = "" Then Me.Child1.Form.RecordSource = "SELECT tbl1.* FROM tbl1;" Else Me.Child1.Form.RecordSource = "SELECT tbl1.* FROM tbl1" _ & " WHERE (((tbl1.t_Name) Like '" & MyStr & "' & '*'));" End If End Sub وهذا مثال SpeedSearch2.zip تم تعديل أغسطس 4, 2004 بواسطه osama457 رابط هذا التعليق شارك More sharing options...
osama457 قام بنشر أغسطس 21, 2004 مشاركة قام بنشر أغسطس 21, 2004 طلب الأخ هاوي في موضوع مستقل أن يكون البحث بأكثر من حقل ، ولهذا تم التعديل في الكود ليصبح كالتالي Sub SpeedRecSource(ByVal InText1 As String, ByVal InText2 As String, ByVal InText3 As String) Dim MyFilter1 As String, MyFilter2 As String, MyFilter3 As String If InText1 <> "" Then InText1 = "(([First_Name]) Like '" & InText1 & "' & '*')" If InText2 <> "" Then InText2 = "(([Mid_Name]) Like '" & InText2 & "' & '*')" If InText3 <> "" Then InText3 = "(([Last_Name]) Like '" & InText3 & "' & '*')" If InText1 <> "" And InText2 <> "" Then InText2 = " And " & InText2 If (InText1 <> "" Or InText2 <> "") And InText3 <> "" Then InText3 = " And " & InText3 End If InText1 = InText1 & InText2 & InText3 If InText1 <> "" Then InText1 = " WHERE (" & InText1 & ");" Else InText1 = ";" Me.Child1.Form.RecordSource = "SELECT tbl1.* FROM tbl1" & InText1 End Sub ومرفق مثال SpeedSearch3Cntrl.zip رابط هذا التعليق شارك More sharing options...
هاوي قام بنشر أغسطس 22, 2004 مشاركة قام بنشر أغسطس 22, 2004 شكرا لك أخي osama457 لقد أصبح البحث الأن أسهل وأسرع .. وهذا هو المطلوب جزاك الله خيرا وجعله الله في موازين حسناتك . ونفع بك تمنياتي لك بدوام التوفيق رابط هذا التعليق شارك More sharing options...
mmss9090 قام بنشر سبتمبر 1, 2004 مشاركة قام بنشر سبتمبر 1, 2004 السلام عليكم جزاكم الله الف خير اخواني انا اريد عدم عرض البيانات الموجوده في الجدول قبل البحث اريد ان لايعرض الجدول الاالبيانات التي تم العثور عليها ويكون تنفيذ البحث بعد ضغط انتر ارجوكم ساعدوني رابط هذا التعليق شارك More sharing options...
osama457 قام بنشر سبتمبر 2, 2004 مشاركة قام بنشر سبتمبر 2, 2004 (معدل) في الرابط تعديل على المثالين حسب ما طلبت: http://www.pcpages.com/osama457/SpeedSearch777.zip تم تعديل سبتمبر 2, 2004 بواسطه osama457 رابط هذا التعليق شارك More sharing options...
mmss9090 قام بنشر سبتمبر 2, 2004 مشاركة قام بنشر سبتمبر 2, 2004 الله يعطيك العافيه وسلمت يمينك الله يسعدك صراحة الملف بعد التعديل اصبح رائع وعمل غير عادي من مبرمج قدير واعتقد انه افضل طريقة بحث ولاتوجد عليه اي ملاحظات بس لوكان يتم مسح الاسم الذي في خانة البحث بعد ضغط زر البحث وخروج نتائج البحث يكون افضل وشي الاخر اذا لم يجد نتائج مطابقه لكلمة البحث يعطي رسالة تفيد ان ليس هناك نتائج مطابقة لكلمة البحث الف شكر اخي osama457 الله يعطيك العافيه وينور طريقك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.