مشكلة في البحث

اخي الفاضل : ابو اميمه

السلام عليكم ورحمة الله وبركاته

لقد تم حل مشكلة البحث لديك من ضمن التعديلات التي قمنا بإجراءها لك ضمن طلباتك على البرنامج في رسائلك الخاصة

التعديل كان بهذا الشكل في الكود

Private Sub txt_Change()
Dim VarSearch As String
VarSearch = "" & txt.Text & ""

Select Case Me.ComboSearch
Case Is = "بحث برقم البطاقة"
If Not (txt.Text = "") Then
Me.Student1.Form.Filter = "sid  like '" & VarSearch & "'"
Me.Student1.Form.FilterOn = True
Else: Me.Student1.Form.FilterOn = False
End If

Case Is = "بحث بالاسم"
If Not (txt.Text = "") Then
Me.Student1.Form.Filter = "Bname  like '" & VarSearch & "'"
Me.Student1.Form.FilterOn = True
Else: Me.Student1.Form.FilterOn = False
End If
Case Is = "بحث برقم التسجيل"
If Not (txt.Text = "") Then
Me.Student1.Form.Filter = "IDre  like '" & VarSearch & "'"
Me.Student1.Form.FilterOn = True
Else: Me.Student1.Form.FilterOn = False
End If

End Select
End Sub

نقطة التعديل في الكود

من

VarSearch = "" & txt.Text & "*"

الى

VarSearch = "" & txt.Text & ""

الفرق هو ازالة علامة النجمة من بين علامتي التنصيص "*"

ملاحظة : لم اتوقع ان يكون ردك في الرسائل الخاصة بهذا الشكل نظرا لأنك تتمتع بالعلم الشرعي الكامل فمن واجب المسلم تجاه من احسن اليه ان يقول للمحسن احسنت !!!

ولكن بكل اسف ترسل رسالتك الخاصة وتقول فيها ( وآسفاه يا أخت زهره ) !!!!

ولا اعلم لماذا كل هذا الأسف ؟؟؟؟

مع اني قمت بعمل كل التعديلات التي طلبتها انت في البرنامج وهي محدده بـ 6 نقاط فقط وقد عملتها لك كلها ومع هذا كله لم يعجبك العجب بل تطلب مني ان اقوم بتعديل كامل البرنامج لك من الصفر لأنني ابلغتك بكل صدق وأمانه ان البرنامج بهذا الشكل لن يفيدك بشيء وسوف تعاني الكثير من المشاكل وعندما اقدم اعتذاري لك بأنني لا استطيع ان ابني لك البرنامج من الصفر تبدأ الإساءة لنا !!!!

عموما اخي الكريم لا يوجد اي مشكلة فالخطأ ليس منك بل كل الخطأ مني انا التي قمت بالمسارعة ومحاولة مساعدتك بقدر استطاعتي ووقتي المحدود لأنني غير متفرغة بارك الله بك ولكن طمعا في الأجر والمثوبة لوجه الله تعالى قدمت لك كل ما طلبته مني حرفيا وكان من المفروض ان لا اتلفت الى مشاركتك او رسائلك الخاصة وادعك تحل مشاكلك بنفسك !!!!

قَالَ تَعَالَى " هَلْ جَزَاء الْإِحْسَان إِلَّا الْإِحْسَان "

ويقال في الأمثال " خيراً تعمل شراً تلقى "

هذا هو بالفعل ما اصابنا منك يا شيخ ( ابو اميمه )

بالتوفيق

السلام عليكم ورحمة الله وبركاته

أختي في الله زهرة بارك الله فيك وجزاك الله عنا وعن المسلمين كل خير وبارك الله في أهلك عامة من أصغرهم إلى اكبرهم

أختي زهرة أن لم أسئ إليك بارك الله فيك وحاشا لله أن أفعل ذالك مع من مدت إليها يدها للمساعدة ولكن يجب أن تفهمي قصدي وتفهمين وضعي هنا في بلاد المهجر فوالله كنا نأمل أن يساعدنا أحد ما في هذا المنتدى ويضع لنا هذا البرنامج الخيري لمسجدنا مسجد السنة على منهاج أهل السنة والجماعة حتى قبل الأخ أشرف جزاه الله خيرا على أن يضع لنا البرنامج وقام ببرمجته والتعب عليه وعندما أرسله لنا للتأكد منه وجدته ناقص في بعض المسائل ووعدني أن يكمله لي بعد انتهاء من مشاغله وبعد مرور شهر كامل وضعت البرنامج هنا في المنتدى للمسات الأخيرة وقبلت أختي زهرة العمل عليه وإكمال ما بقي من التعديلات ولكن عندما انتهيت منه قلت لك أنه هل التعديلات التي وضعتيها على البرنامج على سنة 2012 فقط وقلت لي نعم وقلت لي بأن البرنامج الذي وضعه لك الأخ أشرف كله خطأ 100% وحينها ارتفع ضغطي (وأنا مريض بارتفاع ضغط الدم ادعو معي بالشفاء بارك الله فيكم) من شدة الصدمة وقلت لك بارك الله فيك هل من الممكن أن تضعي لنا البرنامج كما ترينه أنت مناسبا لنا فاعتذرت عن ذالك وأقدر لك أعتذارك نظرا لضيق الوقت عندك ولكن من للمسلمين هنا في الغرب لمساعدتهم ومد اليد لهم ولو بشيء يسير أنظري أختي زهرة الله يحفظك أهل الباطل يتساعدون فيما بينهم بالأموال الطائلة لنشر باطلهم ونحن المسلمين نعجز أن نتساعد في بيننا في أبسط الأشياء ولكن أختي الفاضلة نطلب من الله أن يساعدنا لنشر هذا الدين في كل بقاع العالم والله المستعان...

على فكرة أختي زهرة البرنامج بعد التعديلات الأخيرة لم يعمل معي وبه أخطاء كثيرة كل ما أفتح شيء فيه وتأتيني رسالة الخطأ ..

وعلى العموم إن فهمت أختي زهرة أنني أسات إليك فقد أخطأت الفهم , وآسف أختي زهرة إذا تسببت لك في شيء فوالله ما قلته لا أريد به إلا الخير والله على ما أقول شهيد

والسلام عليكم ورحمة الله وبركاته

اخي الفاضل : ابو اميمه

السلام عليكم ورحمة الله وبركاته

لقد تم حل مشكلة البحث لديك من ضمن التعديلات التي قمنا بإجراءها لك ضمن طلباتك على البرنامج في رسائلك الخاصة

التعديل كان بهذا الشكل في الكود

Private Sub txt_Change()
Dim VarSearch As String
VarSearch = "" & txt.Text & ""

Select Case Me.ComboSearch
Case Is = "بحث برقم البطاقة"
If Not (txt.Text = "") Then
Me.Student1.Form.Filter = "sid  like '" & VarSearch & "'"
Me.Student1.Form.FilterOn = True
Else: Me.Student1.Form.FilterOn = False
End If

Case Is = "بحث بالاسم"
If Not (txt.Text = "") Then
Me.Student1.Form.Filter = "Bname  like '" & VarSearch & "'"
Me.Student1.Form.FilterOn = True
Else: Me.Student1.Form.FilterOn = False
End If
Case Is = "بحث برقم التسجيل"
If Not (txt.Text = "") Then
Me.Student1.Form.Filter = "IDre  like '" & VarSearch & "'"
Me.Student1.Form.FilterOn = True
Else: Me.Student1.Form.FilterOn = False
End If

End Select
End Sub

نقطة التعديل في الكود

من

VarSearch = "" & txt.Text & "*"

الى

VarSearch = "" & txt.Text & ""

الفرق هو ازالة علامة النجمة من بين علامتي التنصيص "*"

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

استبدل كامل الكود بهذا الكود الجديد لتعمل كل طرق البحث سواء بالإسم او برقم البطاقة او برقم التسجيل

Private Sub txt_Change()
Dim VarSearch1 As String
Dim VarSearch2 As String
VarSearch1 = "" & txt.Text & "*"
VarSearch2 = "" & txt.Text & ""

Select Case Me.ComboSearch
Case Is = "بحث برقم البطاقة"
If Not (txt.Text = "") Then
Me.Student1.Form.Filter = "sid  like '" & VarSearch1 & "'"
Me.Student1.Form.FilterOn = True
Else: Me.Student1.Form.FilterOn = False
End If

Case Is = "بحث بالاسم"
If Not (txt.Text = "") Then
Me.Student1.Form.Filter = "Bname  like '" & VarSearch1 & "'"
Me.Student1.Form.FilterOn = True
Else: Me.Student1.Form.FilterOn = False
End If
Case Is = "بحث برقم التسجيل"
If Not (txt.Text = "") Then
Me.Student1.Form.Filter = "IDre  like '" & VarSearch2 & "'"
Me.Student1.Form.FilterOn = True
Else: Me.Student1.Form.FilterOn = False
End If

End Select
End Sub

بالتوفيق

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

الآن يعمل بعد إضافة الكود الأخير