بعد اذن اخى واستاذى محمد @ابا جودى اشارك معكم للاستفاده والتعلم
اخى الفاضل مصطفى محاوله منى على قد معرفت
فالنموذج fsearchwithletter
عدلت لك الاربع احرف الاولى اكمل الباقى
Private Sub XFilter_Click()
Select Case XFilter
Case Is = 1
DoCmd.ApplyFilter , "[swname] Like '" & ChrW(1575) & "*'"
Case Is = 2
DoCmd.ApplyFilter , "[swname] Like '" & ChrW(1576) & "*'"
Case Is = 3
DoCmd.ApplyFilter , "[swname] Like '" & ChrW(1578) & "*'"
Case Is = 4
DoCmd.ApplyFilter , "[swname] Like '" & ChrW(1579) & "*'"
ع ما اعتقد النموذج الثانى مش هتنفع لانك تكتب الحرف فحقل البحث ولن تكتب ChrW(1575) فحقل البحث
تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق
new 20201 - Copy(3).accdb