كود بحث

[علي محمد الكعبي]

عاجل جداً

ماهي الطريقة لعمل بحث في مثل النموذج المرفق

[Shivan Rekany]

شوف هذا المثال لعل يفيدك

 

بحث نموذج مستمر بدون نموذج فرعي.rar

[علي محمد الكعبي]

49 دقائق مضت, Shivan Rekany said:

شوف هذا المثال لعل يفيدك

 

بحث نموذج مستمر بدون نموذج فرعي.rar

انااريد ابحث في اي معيار بحيث تطلع النتيجة في النموذج الفرعي

قاعدة بيانات4_up.rar

[علي محمد الكعبي]

هل من مجيب

[صالح حمادي]

السلام عليكم

استعمل هذا الكود في معيار الإستعلام

Like "*" & [forms]![frmsearch1]![geha] &"*"

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

 

[علي محمد الكعبي]

ممكن توضيح اكثر بحيث ينطبق على النموذج في الصورة التي ارفقتها

افتح مثالي المرفق وسوف تتضح لك اكثر

[صالح حمادي]

هذا مثال مشابه يمكنك الإستفادة منه

 

[علي محمد الكعبي]

الان, صالح حمادي said:

هذا مثال مشابه يمكنك الإستفادة منه

 

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

[علي محمد الكعبي]

لادري هل طلبي وموضوعي صعب على استذه مثلكم احببت التعلم منهم

[علي محمد الكعبي]

وينكم ياجماعة

[علي محمد الكعبي]

لم اجد الاجابة الشافية لسولي فارجو منكم التكرم ياستذاتي الاعزاء

[علي محمد الكعبي]

هل من حل

[علي محمد الكعبي]

لاادري لماذا لايتم حل بعض الاسئلة 

ارجو التكرم من الاستذه التكرم بعدم تجهل بعض الموضيع بدون حل حتى لايستفيد الكثير من الاعضاء في هذا المنتدى بلقليل من العلم الذي لديهم رغم معرفتنا بنشغالهم

[علي محمد الكعبي]

حليت المطلوب بس باقي لي البحث بين تاريخين وهذ هو الكود

Private Sub cmdSearch_Click()
   
  Dim varFilter As Variant
varFilter = Null
 
   If Not IsNull(Me.kid) Then
     varFilter = "[NUmNUm] LIKE '*" & Me.kid & "*'"
   End If
   
   If Not IsNull(Me.date1) Or IsNull(Me.date2) Then
   varFilter = (varFilter + " AND ") & "([Dat_w]>=#" & Me.date1 & "# And [Dat_w]<=#" & Me.date2 & "#)"
   End If
  
   If Not IsNull(Me.bar) Then
      varFilter = (varFilter + " AND ") & "[parcode] LIKE '*" & Me.bar & "*'"
   End If
  
   If Not IsNull(Me.geha) Then
     varFilter = (varFilter + " AND ") & "[geht] LIKE '*" & Me.geha & "*'"
   End If
  
   If Not IsNull(Me.KIND) Then
     varFilter = (varFilter + " AND ") & "[kind] LIKE '*" & Me.KIND & "*'"
   End If
  
   If Not IsNull(Me.id_m) Then
     varFilter = (varFilter + " AND ") & "[id_m] LIKE '*" & Me.id_m & "*'"
   End If

   If Not IsNull(Me.kesm) Then
      varFilter = (varFilter + " AND ") & "[kesm] LIKE '*" & Me.kesm & "*'"
  End If
   
   If Not IsNull(Me.motaba) Then
      varFilter = (varFilter + " AND ") & "[motaba] LIKE '*" & Me.motaba & "*'"
   End If
   
   If Not IsNull(Me.mawdoo) Then
     varFilter = (varFilter + " AND ") & "[modo] LIKE '*" & Me.mawdoo & "*'"
   End If
  
   If Not IsNull(Me.d_kh) Then
     varFilter = (varFilter + " AND ") & "[d_kh] LIKE '*" & Me.d_kh & "*'"
   End If
   
   If Not IsNull(Me.ahmia) Then
     varFilter = (varFilter + " AND ") & "[ahmia] LIKE '*" & Me.ahmia & "*'"
   End If
   
   With Me.sub_searsh_w.Form
   
   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
   Else
    .FilterOn = False
   End If
    .Requery
  End With
End Sub
 

[صالح حمادي]

للبحث بين تاريخين ضع الكود التالي في معيار حقل التاريخ لإستعلام البحث :

Between [Forms]![frmSearch1]![date1] And [Forms]![frmSearch1]![date2]

[علي محمد الكعبي]

معييار البحث وضعتها في زر البحث وليست في الاستعلام وكلها شغاله مائة مائة بس لم يتبقى سوى البحث بين تاريخين  وانا قد كتبته في الكود اعلاه بس لايتم التنفيذ

                                                                                                           If Not IsNull(Me.date1) Or IsNull(Me.date2) Then
  "(#"& varFilter = (varFilter + " AND ") & "([Dat_w]>=#" & Me.date1 & "# And [Dat_w]<=#" & Me.date2 
                                                                                                                                                         End If

[صالح حمادي]

جرب هذا الكود إذن:

varFilter = (varFilter + " AND ") & "[اسم حقل التاريخ] Between me.date1 And me.date2 

[علي محمد الكعبي]

1 ساعه مضت, صالح حمادي said:

جرب هذا الكود إذن:

varFilter = (varFilter + " AND ") & "[اسم حقل التاريخ] Between me.date1 And me.date2 

اخي وضعت الكود كما وضعته انت ولكن يطلب مني ادخال القيمة كما في الصورة المرفقة وانا لاريد ذلك

[99عمرو]

معلش سؤال اخى محمد انا عندى نموذج بحث ولكن يظهر على شكل الجدول اريده مثل نموذج البحث الخاص بك 

من حيث الشكل الخارجى فقط

 

[علي محمد الكعبي]

1 دقيقه مضت, 99عمرو said:

معلش سؤال اخى محمد انا عندى نموذج بحث ولكن يظهر على شكل الجدول اريده مثل نموذج البحث الخاص بك 

ارفغ مثالك ورح اعدل علية 

وش الحل بين تاريخين

[صالح حمادي]

me.data1 هي مربع نص التاريخ الأول

me.data2 هي مربع نص التاريخ الثاني

[علي محمد الكعبي]

9 ساعات مضت, صالح حمادي said:

me.data1 هي مربع نص التاريخ الأول

me.data2 هي مربع نص التاريخ الثاني

الحمدلله تم الحل وذلك ليصبح الكود كالاتي

If Not IsNull(Me.date1) Or IsNull(Me.date2) Then
   varFilter = (varFilter + " AND ") & "[Dat_w] Between date1 And date2"
   End If

[WLLED]

الاستاذ الكعبي ممكن البرنامج لاني في دائرة و المسؤول شخص متعنت و يدور علي زلات  و رايد مني هكذا برنامج

تم تعديل أبريل 23, 2021 بواسطه WLLED
للتوضيح

[WLLED]

في ١٦‏/١‏/٢٠١٧ at 19:22, علي محمد الكعبي said:

الحمدلله تم الحل وذلك ليصبح الكود كالاتي

If Not IsNull(Me.date1) Or IsNull(Me.date2) Then
   varFilter = (varFilter + " AND ") & "[Dat_w] Between date1 And date2"
   End If

الاستاذ الكعبي ممكن البرنامج لاني في دائرة و المسؤول شخص متعنت و يدور علي زلات  و رايد مني هكذا برنامج