فرم جستجو

[khosravani]

سلام دوستان
در خصوص جستجو در بانک با مشکلی برخورد کردم نمونه رو گذاشته ام تا عزیزان لطف کنن و راهنمایی فرمایند.وقتی از دکمه جستجو استفاده میشود اولین موردی رو که پیدا میشود نمایش میدهد .حتی اگر موارد مشابه دیگری هم باشد همان مورد اول را پیدا میکند در صورتی که مد نظر تمام موارد مورد جستجو میباشد:خجالت:

[khosravani]

این هم نمونه ارسالی

[Abbas Amiri]

باسلام . اولا درهیچ کدام از فرم ها کلید جستجو وجودنداشت ثانیا هیچ کدام از کمبوها مقداری برنمی گرداندند . ثالثا هیچ دکمه ای کاری انجام نمی داد . لطفا توضیح بیشتری بدهید تا به موضوع اصلی بتوان پرداخت.

[khosravani]

دوست عزیز وقتی در فرم input بر روی دکمه جستجو کلیک شود درخواست عبارت جهت جستجو میگردد به عنوان مثال نام خانوادگی در صورتی که چند نام خانوادگی مشابه وجود داشته باشد ماژول مربوطه فقط نام خانوادگی اولی را نمایش میدهد و بقیه را نشان نمیدهد در صورتیکه بایستی بقیه اسامی مشابه هم روئیت شود

[Abbas Amiri]

درفایل ضمیمه شما فرم Input وجود ندارد

[khosravani]

مجددا فایل رو آپلود کردم اسم فرم هم input1 هست

[Abbas Amiri]

در روال Command43_Click بجای دستور Find عبارتزیر را جایگزین کنید:


myvalue = InputBox(Message, title, "")
If myvalue <> "" Then
If Not IsNumeric(myvalue) Then
sFilter = "[last name]='" & myvalue & "' Or [First name]='" & myvalue & "' Or [father]='" & myvalue & "'"
Else
sFilter = "id=" & myvalue & " Or sh=" & myvalue
End If
Me.Filter = sFilter
Me.FilterOn = True
End If



اگر لیست مشخصات منطبق با گزینه های جستجو از چند رکورد بیشتر میشود بهتراست یک فرم سرچ ازنوع ذیتا شیت برای آن درست کنید.

[khosravani]

دوست عزیز با تشکر از شما
اما این دستور جواب نداد در صورت امکان در برنامه ارسالی اصلاحات رو اعمال فرمایید متشکر میشوم

[khosravani]

دوست عزیز مشکل با راهنمايي شما حل شد متشکرم:خجالت::تشویق: