برای فرم جستجو از نمونه پیوست استفاده کنین
1.png
Option Compare Database
Option Explicit
Dim Scope()
Dim Q As String
Const SQLQ As String = "SELECT * FROM CUSTOMERS WHERE @fld LIKE '*@txt*'"
Private Sub ClearText_Click()
Me.SearchText = ""
Me.SearchText.SetFocus
SearchText_Change
End Sub
Private Sub FieldSelector_AfterUpdate()
Me.SearchText.SetFocus
SearchText_Change
End Sub
Private Sub FieldSelector_NotInList(NewData As String, Response As Integer)
Me.FieldSelector = 0
Response = acDataErrContinue
End Sub
Private Sub Form_Load()
Scope = Array("[CompanyName]", "[ContactName]", "[CompanyName]+'|'+[ContactName]+'|'+[ContactTitle]")
End Sub
Private Sub SearchText_Change()
Q = Replace(SQLQ, "@fld", Scope(Me.FieldSelector))
Q = Replace(Q, "@txt", Me.SearchText.Text)
Me.SearchResults.Form.RecordSource = Q
End Sub
پاسخ با نقل قول
نوشته شده توسط mazoolagh
