بحث متعدد

[عبده الطوخى]

السادة الافاضل 

اقدم لكم اعتذارى لكثرة الاسئلة فى موضوع واحد 

لذلك سوف اقوم بعرض الموضوع مرة اخرى لسؤال واحد فقط 

(( اريد تطبيق بنوذج بحث متعدد ( بحث بالرقم & بحث بالتاريخ & بحث بالاسم ) فى نموذج frm_Search ))

وشكرا لكم 

مراجعة فواتير العلاج الشهرى المزمن.rar

[عبدالقدوس48]

السلام عليكم

تفضل أخي وأكمل الباقية

752466984_.accdb

[عبده الطوخى]

اخى الفاضل 

المطلوب كان البحث برقم الموظف واسم الموظف والتاريخ 

حيث تم عمل البحث برقم الموظف واسم الموظف 

المطلوب استكمال كود البحث بالتاريخ ( نموذج رئيسى ونموذج فرعى )

 

مراجعة فواتير العلاج الشهرى المزمن.rar

[عبده الطوخى]

السادة الافاضل _ بعد التحية 

لقد تم التوصل للحل بفضل الله 

ومرفق الكود لمن يواجه نفس المشكلة التى كانت لدى 

Private Sub CmdSearch_Click()
Dim varFilter As Variant
varFilter = Null
 
   If Not IsNull(Me.Emp_number) Then
     varFilter = "[Emp_number]=" & Me.Emp_number
   End If
      
   If Not IsNull(Me.month) Then
      varFilter = (varFilter + " AND ") & "[month] LIKE '*" & Me.month & "*'"
   End If
   
   If Not IsNull(Me.Emp_Name) Then
      varFilter = (varFilter + " AND ") & "[Emp_Name] LIKE '*" & Me.Emp_Name & "*'"
   End If
  
   
   
   With Me.Kinds_medicines.Form
   
   If Not IsNull(varFilter) Then
     .DataEntry = False
     .Filter = varFilter
     .FilterOn = True
     Me.Kinds_medicines.SetFocus
   Else
    .FilterOn = False
   End If
    .Requery
  End With
End Sub