~M*E*H*D*I~
2014/01/10, 10:43
یکی از قویترین موتور های جستجو به شرکت گوگل تعلق دارد که تقریبا تمامی کاربران رایانه و اینترنت به مدل جستجو آن عادت نموده اند .
خانه اکسس ایران نسخه اولیه تابع شبیه سازی جستجو به روش گوگل را در این مطلب ، برای استفاده کلیه کاربران اکسس ، ارائه نموده است . روش استفاده از این نوع جستجو کاملا مانند گوگل به استثنای مبحث گیومه ها بوده که در نسخه بعدی دیده خواهد شد .
در این روش کاربر نهایی به جستجوی متن مورد نظر خود در یک فیلد پرداخته به نوعی که کلمات مورد جستجوی خود را پی در پی با درج یک فاصله ( Space ) تایپ نموده و فیلتر شدن موارد جستجو را در فرم زیرین می بیند . در پایان جستجو نیز کافی است مانند روش گوگل یک بار کلید اینتر را فشار دهد .
روش استفاده برای کاربران اکسس :
1- ماژول مورد نظر را که فایل Bas آن نیز در فایل فشرده پیوست موجود است به برنامه خود اضافه کنید .
2- فرم مورد جستجو را به صورت سابفرم در یک فرم اصلی بیاورید . ( مثال : frm_google_serach_detail )
3- یک جعبه متنی در فرم اصلی بگذارید و یک نام مشخص برای آن در نظر بگیرید . ( مثال : txt_google_search )
4- در رویداد « on key press » در جعبه متنی فوق عبارات زیر را بنویسید :
If KeyAscii = 32 Or KeyAscii = 13 Then
Me.frm_google_serach_detail.Form.Filter = Mantis_google_search("moeen_name", "tbl_moeen", Nz(Me.txt_google_search.Text, ""))
Me.frm_google_serach_detail.Form.FilterOn = True
End If
در عبارت مثال بالا « tbl_moeen » ، نام جدول نمونه و « moeen_name » ، نام فیلد مورد جستجو می باشد که این نامها بایستی با نامهای مورد نظر کاربر تعویض شود .
منبع:مانتیس
خانه اکسس ایران نسخه اولیه تابع شبیه سازی جستجو به روش گوگل را در این مطلب ، برای استفاده کلیه کاربران اکسس ، ارائه نموده است . روش استفاده از این نوع جستجو کاملا مانند گوگل به استثنای مبحث گیومه ها بوده که در نسخه بعدی دیده خواهد شد .
در این روش کاربر نهایی به جستجوی متن مورد نظر خود در یک فیلد پرداخته به نوعی که کلمات مورد جستجوی خود را پی در پی با درج یک فاصله ( Space ) تایپ نموده و فیلتر شدن موارد جستجو را در فرم زیرین می بیند . در پایان جستجو نیز کافی است مانند روش گوگل یک بار کلید اینتر را فشار دهد .
روش استفاده برای کاربران اکسس :
1- ماژول مورد نظر را که فایل Bas آن نیز در فایل فشرده پیوست موجود است به برنامه خود اضافه کنید .
2- فرم مورد جستجو را به صورت سابفرم در یک فرم اصلی بیاورید . ( مثال : frm_google_serach_detail )
3- یک جعبه متنی در فرم اصلی بگذارید و یک نام مشخص برای آن در نظر بگیرید . ( مثال : txt_google_search )
4- در رویداد « on key press » در جعبه متنی فوق عبارات زیر را بنویسید :
If KeyAscii = 32 Or KeyAscii = 13 Then
Me.frm_google_serach_detail.Form.Filter = Mantis_google_search("moeen_name", "tbl_moeen", Nz(Me.txt_google_search.Text, ""))
Me.frm_google_serach_detail.Form.FilterOn = True
End If
در عبارت مثال بالا « tbl_moeen » ، نام جدول نمونه و « moeen_name » ، نام فیلد مورد جستجو می باشد که این نامها بایستی با نامهای مورد نظر کاربر تعویض شود .
منبع:مانتیس