ساخت فرم جستجو در اکسس- نمونه 1

این آموزش یک نمونه از روش ایجاد فرم های جستجو در اکسس را به شما ارائه می کند. فایل پیوست یک فرم لیست پرسنل دارد و یک دکمه برای جستجو در این لیست بر اساس نام خانوادگی که با کلیک روی دکمه جسجو فرم آن باز می شود. با درج بخشی از نام خانوادگی و کلیک روی دکمه جستجو کد زیر اجرا شده و رکورد هایی که یافته می شوند در فرم دیده خواهند شد.  

Private Sub btnSearch_Click()
    Dim sqlSearch, str1 As String
    Me.txtSearch.SetFocus 
    str1 = Me.txtSearch.Text sqlSearch = "select * from Personel where lname like '*" & str1 & "*'" DoCmd.Close Forms![frmPersonel].RecordSource = sqlSearch DoCmd.Requery
End Sub

همانطور که مشاهده می کنید عمل جستجو در واقع توسط تغییر در ویژگی RecorcSourse فرم انجام می شود. فایل پیوست را دانلود کرده و از آن برای ایجاد فرم های جستجو با شرایط دلخواه استفاده کنید.