ایجاد فرم جستجو بر اساس انتخابها

در این مثال با وارد کردن بخشی از آنچه را که قرار است جستجو نمائید را وارد کرده و نتایج را در قالب یک لیست مشاهده میکنید

Option Compare Database
Option Explicit
Dim sel As String, Sortby As String


Private Sub Command6_Click()

Dim sql As String
If Me.Select = 1 Then
    sel = "Students.LastName Like '*" & Me.Text2 & "*'"
ElseIf Me.Select = 2 Then
    sel = "Students.CellPhoneNomber = '" & Me.Text2 & "'"
ElseIf Me.Select = 3 Then
    sel = "Students.SchoolName like '*" & Me.Text2 & "*'"
End If

sql = "SELECT Students.CellPhoneNomber, Students.SchoolName, Students.LastName, Students.FirstName, Students.StudentId " _
    & "FROM Students " _
    & "WHERE " & sel & "" _
    & "ORDER BY Students.LastName "
   
   
 Me.List0.RowSource = sql
 Me.List0.Requery
 Me.List0.Visible = True
 Me.List0.ForeColor = 333
 Me.List0.ColumnHeads = True
 Me.List0.ColumnWidths = "2.5 cm; 2.5 cm; 3 cm; 2 cm;2 cm"

End Sub

در نهایت نتیجه به شکل زیر خواهد بود