• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form
• Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form

• RE: Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form

  ongke0711 > 20-01-17, 08:08 PM

  - Copy hàm getStrinFromComma vào Module.
  
  

  Mã PHP:

  Option Compare Database
Option Explicit

Function getStringFromComma(fld As String, strSearch As String) As String
   Dim x As String, xArr() As String, strCriteria As String
   Dim i As Byte
   
   x = strSearch
   If Len(x) > 0 Then
       xArr = Split(x, ",")
       For i = 0 To UBound(xArr)
           If Len(xArr(i)) = 0 Then
               'do nothing ->khong co tri, bo qua cac dau phay ma khong co chuoi tim kiem
           Else
               strCriteria = strCriteria & fld & " LIKE '*" & Trim(xArr(i)) & "*' OR "
           End If
       Next
       getStringFromComma = Trim(Left(strCriteria, Len(strCriteria) - 4))  'Bo chu OR cuoi chuoi
   Else
       getStringFromComma = fld & " LIKE '*'"
   End If
End Function 


   
  
  - Trong Form tạo 1 textbox đặt tên là txtSearchText và 2 nút lệnh cmdSearch và cmdShowAll. Code cho nó như sau:
  
  
  
  

  Mã PHP:

  Option Compare Database
Option Explicit

Private Sub cmdSearch_Click()
   If IsNull(Me.txtSearchText) Or Me.txtSearchText = "" Then
       MsgBox " Không có du lieu tìm kiem"
       Exit Sub
   End If
   
   Dim strSQL As String
   strSQL = "SELECT * FROM tblUserInfo WHERE " & getStringFromComma("username", Me.txtSearchText)
   Me.sfmUsersList.Form.RecordSource = strSQL
   Me.sfmUsersList.Requery
End Sub

Private Sub cmdShowAll_Click()
   Dim strSQL As String
   strSQL = "SELECT * FROM tblUserInfo"
   Me.sfmUsersList.Form.RecordSource = strSQL
   Me.sfmUsersList.Requery
End Sub 


  
  Link file demo:
  http://www.mediafire.com/file/l313z44qx4...8v2%29.mdb

• RE: Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form

  ckno1no > 23-01-17, 01:32 PM

  Quá tuyệt vời,
  
  Công nhận mình còn nhiều thứ phải học quá,
  
  Cám ơn bác nhé.
• Bài trước Bài tiếp