ค้นหาจากทุกฟิลด์

[001Jetnipit]

โค๊ด: [Select]

Private Sub CmdSearch_Enter()
Dim sql As String
Dim FindRecordCount  As Long
Dim rstRecords As Recordset
sql = "SELECT * FROM Table1 Where [Name] like '*" & Nz(Me.Text1, "*") & "*' AND [F1]  [F2] [F3] like '" & Nz(Me.Combo1, "*") & "'"
Set rstRecords = CurrentDb.OpenRecordset(sql)
Forms!Form1!Table1subform.Form.RecordSource = sql
Forms!Form1!Table1subform.Form.Form.Requery

    If rstRecords.EOF Then
            FindRecordCount = 0
        Else
            rstRecords.MoveLast
            FindRecordCount = rstRecords.RecordCount
        End If
   If FindRecordCount = 0 Then
   MsgBox "Not Found!", vbCritical, "Status"
   End If


ตรง

โค๊ด: [Select]

AND [F1]  [F2] [F3] like '" & Nz(Me.Combo1, "*") ไม่แน่ใจว่ามันต้องเชื่อมยังไงหรือต้องเขียน VBA ทางไหน รบกวนขอความกรุณาครับ