السلام عليكم ورحمة الله وبركاته
لدي برنامج واريد اعمل بحث بتاريخ الميلاد
عملت الكود التالي بس ماضبط
If Text8 <> "" Then
ddd = Format(Text8, "mm/dd/yyyy", vbSaturday, vbUseSystem) 'reformat date to mm/dd/yyyy
mFilter = "DoB=#" & ddd & "#"
End If
ارجو توضيح الحل اذا امكن