البحث بجزء من الكلمه رقم او اسم

[النجاشي]

السلام عليكم  

اريد ان ابحث بجزء من الكلمه   اسم الصنف او رقم الصنف 

تحياتي اليكم احبتي

البحث.accdb

[Hamdi Edlbi-khalf]

السلام عليكم

 لم أشاهد المرفق بعد ، لكن إن كان البحث ضمن نموذج مصدره استعلام 

ضع في معايير حقل الاستعلام الذي ترغب بالبحث به الدالة 

INSTR

و هي تبحث في أي جزء من النص .

تم تعديل أكتوبر 23, 2018 بواسطه Khalf

[ابو ياسين المشولي]

في حدث بعد التحديث ضع هذا

On Error Resume Next

 Dim varFilter As Variant
varFilter = Null
 
   If Not IsNull(Me.N1) Then
        varFilter = "[Sanf] LIKE '*" & [Forms]![frm_Search_New]![N1] & "*'"
        

   End If
  
        With Me.TB.Form
      If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
   Else
    .FilterOn = False
   End If
    .Requery
  End With

 

تم تعديل أكتوبر 23, 2018 بواسطه ابو ياسين المشولي

[النجاشي]

استاذي@Khalf

استاذي@ابو ياسين المشولي

اريده عند التغير الكود 

شاكرين لكم

[ابو ياسين المشولي]

تم اسخدام هذا بعد الحدث
Dim varFilter As Variant
   varFilter = Null
   If Not IsNull(Me.N1) Then
      varFilter = (varFilter + " AND ") & "[Sanf]& [ID_Sanf] LIKE '*" & [Forms]![frm_Search_New]![N1] & "*'"
   End If
    With Me.TB.Form
       If Not IsNull(varFilter) Then
          .Filter = varFilter
         .DataEntry = False
          .FilterOn = True
      Else
          .FilterOn = False
      End If
      .Requery
   End With
وهذا عند التغير
SendKeys "{enter}", True

شوف هذا

البحث.accdb

تم تعديل أكتوبر 23, 2018 بواسطه ابو ياسين المشولي

[النجاشي]

7 دقائق مضت, ابو ياسين المشولي said:

تم اسخدام هذا بعد الحدث
Dim varFilter As Variant
   varFilter = Null
   If Not IsNull(Me.N1) Then
      varFilter = (varFilter + " AND ") & "[Sanf]& [ID_Sanf] LIKE '*" & [Forms]![frm_Search_New]![N1] & "*'"
   End If
    With Me.TB.Form
       If Not IsNull(varFilter) Then
          .Filter = varFilter
         .DataEntry = False
          .FilterOn = True
      Else
          .FilterOn = False
      End If
      .Requery
   End With
وهذا عند التغير
SendKeys "{enter}", True

شوف هذا

البحث.accdb

قريب من الحل ولكن لم يسمح بادخال اكثر من رقم 

[ابو ياسين المشولي]

اتفضل هذا حسب طلبك

f Nz(Me.N1.Text) = Null Then
   Me.TB.Form.Form.Filter = Null
    Me.TB.Form.FilterOn = False
    
   Else
   Me.TB.Form.Filter = "[ID_Sanf]&[Sanf] Like '*" & _
                     Replace(Me.N1.Text, “‘”, "''") & "*'"
    Me.TB.Form.FilterOn = True
  End If
  
  Me.N1.SetFocus
  Me.N1.SelStart = Len(Me.N1.Text)

 

 

البحث_(1).accdb

تم تعديل أكتوبر 24, 2018 بواسطه ابو ياسين المشولي

[النجاشي]

10 ساعات مضت, ابو ياسين المشولي said:

اتفضل هذا حسب طلبك

f Nz(Me.N1.Text) = Null Then
   Me.TB.Form.Form.Filter = Null
    Me.TB.Form.FilterOn = False
    
   Else
   Me.TB.Form.Filter = "[ID_Sanf]&[Sanf] Like '*" & _
                     Replace(Me.N1.Text, “‘”, "''") & "*'"
    Me.TB.Form.FilterOn = True
  End If
  
  Me.N1.SetFocus
  Me.N1.SelStart = Len(Me.N1.Text)

 

 

البحث_(1).accdb

ممتاز بارك الله فيك