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

Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
• Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?

• RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?

  MTNQ > 28-04-14, 01:42 AM

  (22-06-13, 05:51 PM)paulsteigel Đã viết:

  Mã PHP:

  Select a from tenbang where a in (Câu truy vấn phụ trả về danh sách các bản ghi thỏa mãn điều kiện đầu vào bạn vừa nhập) 


  Câu truy vấn phụ có dạng
  

  Mã PHP:

  select a from tenbang where a like '*" & từng mã tìm kiếm & "'" 


  Như vậy câu truy vấn phụ sẽ liệt kê tất cả các bản ghi gần giống với mã điều kiện đầu vào.
  Tôi phải dùng câu truy vấn phụ để tránh làm phức tạp hóa cú pháp tìm kiếm.
  ....

  
  Bỏ câu truy vấn phụ luôn đi anh, tốc độ tìm kiếm sẽ tăng lên tất nhiều
  
  Theo MTNQ thì hàm BuildSQL nên sửa lại như sau:
  
  

  Mã PHP:

  Private Function BuildSQL(txtIn As String, txtFields As String) As String
    ' Just to break the search parameter into set of input criteria for search
    Dim inVar As Variant, fldName As Variant
    Dim i As Long, j As Long, tmpVar As String, SqlTxt As String
    inVar = Split(txtIn, txtDelm)
    fldName = Split(txtFields, ",")
    ' Now build SQL
    For j = LBound(fldName) To UBound(fldName)
        tmpVar = fldName(j)
        fldName(j) = ""
        For i = LBound(inVar) To UBound(inVar)
            If Nz(Trim(inVar(i)), "") <> "" Then
                fldName(j) = "(" & fldName(j) & tmpVar & " Like '*" & inVar(i) & "*'" & ") OR "
            End If
        Next
        'fldName(j) = tmpVar & " IN (Select " & tmpVar & " From tblDS Where " & Mid(fldName(j), 4) & ")"
        SqlTxt = SqlTxt & fldName(j)
    Next
    ' Build final search string
    SqlTxt = "SELECT Ten,Namsinh,Gioitinh,Diachi FROM tblDanhsach Where " & Left(SqlTxt, Len(SqlTxt) - 3) & ";"
    'Debug.Print SqlTxt
    BuildSQL = SqlTxt
End Function 


  
  MTNQ đã test thử với file ví dụ sau:
  
  1/Form frmSubFormSearch để nguyên code của anh, tìm dữ liệu từ bảng tblDanhsach2 chỉ nạp 1000 Record
  2/ form frmTest dùng hàm BuildSQL đã sửa lại như trên, tìm dữ liệu từ bảng tblDanhsach đã nạp 60,000 Record nhưng tìm vẫn nhanh hơn
  
  Cả 2 form MTNQ đã thay sự kiện On Change bằng nút nhấn Search để test cho nhanh, anh xem thử nhé:
  
  Download Demo
  

  ---

  P/S: sao dòng Debug.Print SqlTxt trong thẻ PHP lại mất dấu nháy đơn ngoài trước nhỉ

• RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?

  vulhu06 > 28-04-14, 11:11 AM

  (28-06-13, 12:21 PM)paulsteigel Đã viết: Mình đã gửi mail cho bạn!
  Phần chia sẻ đó cơ bản là phải dùng gmail cơ!

  
  Chào bác paulsteigel, mấy bữa nay theo dõi bác hướng dẫn chuyên mục tìm kiếm theo nhiều điều kiện khác nhau , bài của em cũng cần vấn đề này, và em cũng đã làm được phần tìm kiếm dữ liệu rồi. Còn một vấn đề nữa là em cần dữ liệu đó để in, nhưng không biết làm sao. Bác có thể bớt chút thời gian hướng dẫn không ah?

• RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?

  MTNQ > 01-05-14, 06:15 PM

  (28-04-14, 11:11 AM)vulhu06 Đã viết: Còn một vấn đề nữa là em cần dữ liệu đó để in, nhưng không biết làm sao. Bác có thể bớt chút thời gian hướng dẫn không ah?

  
  Bạn xem file VD sau nhé, hai form frmSubFormSearch và frmTest mình thiết kế hai nút lệnh với hai code khác nhau, bạn thích dùng cách nào cũng được :
  
  

  frmSubFormSearch: (Click to View)

  Mã:

  Private Sub cmdOpenReprt_Click()
On Error GoTo Err_cmdOpenReprt_Click
    
    DoCmd.OpenReport "rptDanhsach2", acViewPreview, , strFilter, acWindowNormal

Exit_cmdOpenReprt_Click:
    Exit Sub

Err_cmdOpenReprt_Click:
    MsgBox Err.Description
    Resume Exit_cmdOpenReprt_Click
    
End Sub

  frmTest: (Click to View)

  Mã:

  Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click

    CurrentDb.QueryDefs("qryDanhsach").SQL = Me!lstResult.RowSource
    
    DoCmd.OpenReport "rptDanhsach", acPreview

Exit_cmdOpenReport_Click:
    Exit Sub

Err_cmdOpenReport_Click:
    MsgBox Err.Description
    Resume Exit_cmdOpenReport_Click
    
End Sub

  Download

• RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?

  vulhu06 > 02-05-14, 10:17 AM

  (01-05-14, 06:15 PM)MatTroiNguQuen Đã viết:

  (28-04-14, 11:11 AM)vulhu06 Đã viết: Còn một vấn đề nữa là em cần dữ liệu đó để in, nhưng không biết làm sao. Bác có thể bớt chút thời gian hướng dẫn không ah?

  
  Bạn xem file VD sau nhé, hai form frmSubFormSearch và frmTest mình thiết kế hai nút lệnh với hai code khác nhau, bạn thích dùng cách nào cũng được :
  
  

  frmSubFormSearch: (Click to View)

  Mã:

  Private Sub cmdOpenReprt_Click()
On Error GoTo Err_cmdOpenReprt_Click
    
    DoCmd.OpenReport "rptDanhsach2", acViewPreview, , strFilter, acWindowNormal

Exit_cmdOpenReprt_Click:
    Exit Sub

Err_cmdOpenReprt_Click:
    MsgBox Err.Description
    Resume Exit_cmdOpenReprt_Click
    
End Sub

  frmTest: (Click to View)

  Mã:

  Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click

    CurrentDb.QueryDefs("qryDanhsach").SQL = Me!lstResult.RowSource
    
    DoCmd.OpenReport "rptDanhsach", acPreview

Exit_cmdOpenReport_Click:
    Exit Sub

Err_cmdOpenReport_Click:
    MsgBox Err.Description
    Resume Exit_cmdOpenReport_Click
    
End Sub

  Download

  
  Cám ơn anh, bài của em dùng nhiều textbox để nhập điều kiện chứ không dùng một textbox như bài demo, không biết là có áp dụng code như trên được không?

• RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?

  changkhoonline77 > 03-05-14, 10:48 PM

  (27-04-14, 07:11 PM)dinh_trong_hoa Đã viết: Dear All
  
  http://www.mediafire.com/download/w36r3p...Folder.rar
  
  

  
  Bạn xem lại dùm. Chọn 1 trường dữ liệu thì xuất excel được. 2 trường thì bị lỗi này
  
  [img][/img]
• Bài trước Bài tiếp