ابو جودي قام بنشر أبريل 6, 2017 مشاركة قام بنشر أبريل 6, 2017 السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام واجهتنى مشكلة فى ضبط ها الكود ليقبل البحث فى الحقول النصية الكود يعمل بشكل ممتاز مع الحقول الرقمية ممكن التفضل والتكرم بضبط الكود كى يعمل الكود مع الحقول النصيه كما هو الحال مع الحقول الرقمية search _01.rar 2 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 6, 2017 الكاتب مشاركة قام بنشر أبريل 6, 2017 النموذج المطلوب التعديل عليه هو frm_Search وتم التنويه على النموذج بالمطلوب للايضاح اكثر ان شاء الله search _02.rar 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 6, 2017 الكاتب مشاركة قام بنشر أبريل 6, 2017 تم حل المشكلة وتم ضبط الكود بفضل الله تعالى وهذه هى النتيجه حتى تعم الفائده search _ done.rar تم تغير هذا السطر فى الكود strTag = ctl.Tag بهذا الكود strTag = """" وذلك لاتمام الفائده ان شاء الله تعالى كل الشكر والتقدير لكل اساتذتى الكرام الذين تفضلوا بمحاولة تقديم الحل جزاكم الله تعالى الخير كله ان شاء الله 3 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر أبريل 6, 2017 مشاركة قام بنشر أبريل 6, 2017 (معدل) و هذا حل آخر For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acCheckBox Then If Not IsNull(ctl.Value) Then If IsNumeric(ctl.Value) Then strWhere = strWhere & " AND " & ctl.Name & " = " & ctl.Value Else strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & ctl.Value & "'" End If End If End If Next و هذا هو المرفق search _02.rar تم تعديل أبريل 6, 2017 بواسطه صالح حمادي 2 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 6, 2017 الكاتب مشاركة قام بنشر أبريل 6, 2017 10 دقائق مضت, صالح حمادي said: و هذا حل آخر For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acCheckBox Then If Not IsNull(ctl.Value) Then strTag = ctl.Tag If IsNumeric(ctl.Value) Then strWhere = strWhere & " AND " & ctl.Name & " = " & ctl.Value Else strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & ctl.Value & "'" End If End If End If Next و هذا هو المرفق search _02.rar جزاكم الله كل الخير 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 6, 2017 الكاتب مشاركة قام بنشر أبريل 6, 2017 5 ساعات مضت, صالح حمادي said: و هذا حل آخر For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acCheckBox Then If Not IsNull(ctl.Value) Then If IsNumeric(ctl.Value) Then strWhere = strWhere & " AND " & ctl.Name & " = " & ctl.Value Else strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & ctl.Value & "'" End If End If End If Next و هذا هو المرفق search _02.rar هل يمكن اختصاص حقل محدد للبحث بجزء من الكلمه ؟ اقصد طبعا احد الحقول النصيه رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 6, 2017 مشاركة قام بنشر أبريل 6, 2017 (معدل) 24 دقائق مضت, ابا جودى said: هل يمكن اختصاص حقل محدد للبحث بجزء من الكلمه ؟ اقصد طبعا احد الحقول النصيه فقط غير هذا السطر strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & ctl.Value & "'" بهذا strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & "*" & ctl.Value & "*" & "'" وهذا المرفق تحياتي search _02.rar تم تعديل أبريل 6, 2017 بواسطه Shivan Rekany 3 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 6, 2017 الكاتب مشاركة قام بنشر أبريل 6, 2017 14 دقائق مضت, Shivan Rekany said: فقط غير هذا السطر strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & ctl.Value & "'" بهذا strWhere = strWhere & " AND " & ctl.Name & " like " & "'" & "*" & ctl.Value & "*" & "'" وهذا المرفق تحياتي search _02.rar شكرا اخي الحبيب واستاذي القدير جزاكم الله خيرا اعتذر انا فاتح من الجوال بس اروح وان شاء الله اجرب المرفق فورا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أبريل 6, 2017 مشاركة قام بنشر أبريل 6, 2017 مشاركة مع اخوتي واحبتي افضل عملية بحث احتفظ بها (طريقة استاذنا جعفر ) Dim mySQL As String Dim mySQL1 As String Private Sub Form_Load() mySQL = "Select * From tbl_test" Me.ID = "" If Len(Me.ID & "") = 0 Then Me.sfmList.Form.RecordSource = mySQL End If End Sub Private Sub ID_Change() Dim fld As String Dim x() As String Dim A As String Dim i fld = "ID" fld = fld & " & ' ' & " & "fname" fld = fld & " & ' ' & " & "mname" fld = fld & " & ' ' & " & "lname" mySQL1 = "Select * From tbl_test" mySQL = mySQL1 & " Where " Me.ID.SetFocus A = Me.ID.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") x = Split(A, "|") If UBound(x) = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else For i = LBound(x) To UBound(x) If i = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else mySQL = mySQL & " AND " & fld mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If If Len(Me.ID.Text & "") = 0 Then mySQL = mySQL1 End If Me.sfmList.Form.RecordSource = mySQL End Sub افضل عملية بحث.rar 4 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان