مشكلة بالبحث

[n_seer]

السلام عليكم ورحمة الله وبركاته

لدي برنامج واريد اعمل بحث بتاريخ الميلاد

عملت الكود التالي بس ماضبط

If Text8 <> "" Then

ddd = Format(Text8, "mm/dd/yyyy", vbSaturday, vbUseSystem) 'reformat date to mm/dd/yyyy

mFilter = "DoB=#" & ddd & "#"

End If

ارجو توضيح الحل اذا امكن

[Bluemind]

اخوي ارفق قاعده البيانات لتتضح صوره وشكل البحث

[n_seer]

االمشكلة ان قاعدة البيانات لشخص ولا استطيع ان ارفعها لحفظ حقوقه هل هناك حل اخر