الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

رجاء التعديل على هذا الكود

مغلقمُجاب
بدأه sama202 في 5 سبتمبر 2014 · 2 رد · 643 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخوانى بالمنتدى السلام عليكم

هذا الكود موجود بنموذج

Private Sub txt_Change()

Dim VarSearch As String
VarSearch = "*" & txt.Text & "*"

Me.f1.Form.Filter = "العملاء  like '" & VarSearch & "'"
Me.f1.Form.Filter = "البيان like '" & VarSearch & "'"
Me.f1.Form.Filter = "ملاحظات like '" & VarSearch & "'"
 

Me.f1.Form.FilterOn = True



End Sub

 

 

ممكن التعديل على هذا الكود حتى يتم الاستعلام فى ثلاث خانات فى نفس الوقت فى نفس الوقت

حيث ان العملاء خانه رقم 1

والبيان خانه رقم2

وملاحظات خانه رقم3

 

وf1 هو الجدول الفرعى الموجود به الثلاث خانات المراد الاستعلام

 

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

اسف للاطاله وعدم استطاعتى لارسال البرنامج لان بها بيانات العمل

اقتباس
#2 أفضل إجابة

من الطبيعى ان يحدث ذلك

لتحقيق ما تريد استخدم or

 


Private Sub txt_Change()
Dim VarSearch As String
VarSearch = "*" & txt.Text & "*"
Me.f1.Form.Filter = "البيان like '" & VarSearch & "'" & " OR " & "العملاء like '" & VarSearch & "'" & " OR " & "ملاحظات like '" & VarSearch & "'"
Me.f1.Form.FilterOn = True
End Sub

تم تعديل هذه المشاركة بواسطة Abo_Yossof في 5 سبتمبر 2014 في 12:03

1

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#3

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

اقتباس

هذا الموضوع مغلق.

مواضيع مشابهة