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

Search dựa trên nhiều tiêu chí

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Search dựa trên nhiều tiêu chí
• Search dựa trên nhiều tiêu chí

• Search dựa trên nhiều tiêu chí

  Godspear > 19-01-17, 05:28 AM

  hi mọi, người. có vấn đề cần giúp đỡ và mong đc giải đáp
  
  như là bây h mình tạo 1 search form gồm có 2 text box - name là txtSearch và txtSecSearch và 1 combobox - CboSearch dùng để search và lọc kết quả trên subform
  
  câu hỏi đặt ra bây giờ là viết code như thế nào để có thể search trên nhiều level
  
  cao nhất là combobox - có thể lựa chon để lọc kết quả trc r sử dung 2 text box để tiếp tục tìm kiếm; vd như là có tổng 300 record trong database; combobox sẽ lọc ra trong số đó trc, r text box 1 sẽ tiếp tục lọc ra trong kết quả ứng với combox box và text box 2 sẽ tiếp tục lọc ra kết quả sau text box 1
  
  kiểu như là theo level - combobox > text box 1 > text box 2
  
  tìm hiểu thử trên google và trên forum mà ko tìm dc bài tương tự như vậy nên tạo bài mới mong mọi người hỗ trợ mình với, thank mọi người nhiều
  
  cái mình muốn hướng đến gần giống vs video này: https://www.youtube.com/watch?v=3SYXsdj_1Og&t=286s

• RE: Search dựa trên nhiều tiêu chí

  ongke0711 > 19-01-17, 08:54 AM

  Nguyên tắc tìm kiếm là bạn cứ đưa hết điều kiện cần tìm vào một chuỗi nối với nhau bằng từ "AND" sau đó đưa vô mệnh đề WHERE của câu lệnh SQL. Câu lệnh SQL này sẽ là Record Source cho Form hay Subform kết quả tìm kiếm.
  Tôi xem qua file của bạn thì mỗi textbox hoặc combobox chứa nội dung tìm kiếm của bạn cứ sau AfterUpdate lại chạy lệnh tìm kiếm. Cách này cũng được nhưng code bạn phải thiết kế lại cho hiệu quả hơn. Tôi sẽ nói sau.
  - Thông thường khi có nhiều điều kiện tìm kiếm thì người ta thiết kế 1 nút lệnh [Search] để chạy sau khi bạn nhập tất cả các điều kiện tìm kiếm rồi. Nó sẽ tổng hợp lại thành 1 chuỗi tìm kiếm, nếu điều kiện nào để trống thì bỏ qua…
  -  Nếu bạn muốn làm theo cách cứ AfterUpdate một control nào đó thì chạy lệnh tìm kiếm (TK) ngay, bạn phải tổ chức lại code. Thay vi cứ lập lại code TK cho mỗi control thì bạn viết nó thành 1 Sub Procedure rồi Call Sub này trong sự kiện AfterUpdate cho gọn. Sub Tìm Kiếm này cũng tương tự như cách tạo một nút TK, nó sẽ check qua tất cả các control, lấy dữ liệu tìm kiếm đưa vô chuỗi rồi đưa vô mệnh đề WHERE.
  Tìm kiếm nhiều điều kiện trên diễn đàn có đầy. Cách thiết kế khác nhau nhưng nguyên tác code thì gần giống nhau.
  
  http://thuthuataccess.com/forum/thread-8324.html
  http://thuthuataccess.com/forum/thread-6491-page-8.html
  http://thuthuataccess.com/forum/post-183...l#pid18364
  http://thuthuataccess.com/forum/thread-5319.html
  http://thuthuataccess.com/forum/thread-8936.html

• RE: Search dựa trên nhiều tiêu chí

  cpucloi > 19-01-17, 10:35 AM

  Đưa file lên đi bạn

• RE: Search dựa trên nhiều tiêu chí

  Godspear > 19-01-17, 12:59 PM

  Link File: https://drive.google.com/file/d/0Byhaxbq...sp=sharing
  
   đây bạn ơi, có thiết kế form mà chưa biết viết code ntn cho đúng, làm theo video trên youtube toàn báo lỗi

• RE: Search dựa trên nhiều tiêu chí

  Godspear > 20-01-17, 07:25 AM

  có ai giúp giùm với, mình thử làm theo video youtube thì toàn bị báo lỗi là :
  
  
  
  mã code mình dung hiện giờ : 
  
  Sub Search()
  Dim strSearch, strSearch2 As String
  Dim TempFilter, TempFilter2, TempFilter3, TempFilter4, TempFilter5, TempFilter6, TempFilter7 As String
  Dim strTempfilter As String
  Dim Task As String
  Dim strCrtiteria As String
  Dim vartempfilter As TempVars
  Me.Refresh
  strSearch = Me.txtSearch.Value
       If Me.ChID = True Then
          TempFilter = "([ID] Like ""*" & [strSearch] & "*"")"
       End If
       If Me.ChLastName = True Then
          TempFilter = [TempFilter] & " OR ([Last_Name] Like ""*" & [strSearch] & "*"")"
       End If
       If Me.ChGivenName = True Then
          TempFilter = [TempFilter] & " OR ([Given_names] Like ""*" & [strSearch] & "*"")"
       End If
       If Me.ChPersonal = True Then
          TempFilter = [TempFilter] & " OR ([PH_Personal] Like ""*" & [strSearch] & "*"")"
       End If
       If Me.ChWork = True Then
          TempFilter = [TempFilter] & " OR ([PH_Work] Like ""*" & [strSearch] & "*"")"
       End If
       If Me.ChMobile = True Then
          TempFilter = [TempFilter] & " OR ([Mobile] Like ""*" & [strSearch] & "*"")"
       End If
      
  If Not IsNull(Me.txtSecSearch) Then
       strSearch2 = Me.txtSecSearch.Value
      
       If Me.ChID = True Then
          TempFilter2 = "([ID] Like ""*" & [strSearch2] & "*"")"
          StrCriteria = "(" & TempFilter2 & "And (" & TempFilter & "))"
       End If
       If Me.ChLastName = True Then
          TempFilter3 = "([Last_Name] Like ""*" & [strSearch2] & "*"")"
          StrCriteria = StrCriteria & " Or (" & TempFilter3 & "And (" & TempFilter & "))"
       End If
       If Me.ChGivenName = True Then
          TempFilter4 = "([Given_names] Like ""*" & [strSearch2] & "*"")"
          StrCriteria = StrCriteria & " Or (" & TempFilter4 & "And (" & TempFilter & "))"
       End If
       If Me.ChPersonal = True Then
          TempFilter5 = "([PH_Personal] Like ""*" & [strSearch2] & "*"")"
          StrCriteria = StrCriteria & " Or (" & TempFilter5 & "And (" & TempFilter & "))"
       End If
       If Me.ChWork = True Then
          TempFilter6 = "([PH_Work] Like ""*" & [strSearch2] & "*"")"
          StrCriteria = StrCriteria & " Or (" & TempFilter6 & "And (" & TempFilter & "))"
       End If
       If Me.ChMobile = True Then
          TempFilter7 = "([Mobile] Like ""*" & [strSearch2] & "*"")"
          StrCriteria = StrCriteria & " Or (" & TempFilter7 & "And (" & TempFilter & "))"
       End If
  End If
      
  If IsNull(Me.txtSecSearch) Then
       If IsNull(Me.cboBuilding) Or Me.cboBuilding = "" Then
       Task = "select * from All_Staff where (([Building] Like ""*"") And (" & TempFilter & "))"
       DoCmd.ApplyFilter Task
       TempVars!vartempfilter = Task
       Else
       Task = "select * from All_Staff where (([Building] = " & Me.cboBuilding & ") And (" & TempFilter & "))"
       DoCmd.ApplyFilter Task, All_Staff_subform
       TempVars!vartempfilter = Task
       End If
  Else
       If IsNull(Me.cboBuilding) Or Me.cboBuilding = "" Then
       Task = "select * from All_Staff where (([Building] Like ""*"") And (" & StrCriteria & "))"
       DoCmd.ApplyFilter Task
       TempVars!vartempfilter = Task
       Else
       Task = "select * from All_Staff where (([Building] = " & Me.cboBuilding & ") And (" & StrCriteria & "))"
       DoCmd.ApplyFilter Task
       TempVars!vartempfilter = Task
       End If
  End If
      
  End Sub
  
  link file của mình, mn có thể thoải mái vào xem
  https://drive.google.com/open?id=0Byhaxb...koyYzdiTkE

• RE: Search dựa trên nhiều tiêu chí

  cpucloi > 20-01-17, 08:50 AM

  Chờ nghỉ tết, rảnh rảnh mình ngồi code cho bạn nhé

• RE: Search dựa trên nhiều tiêu chí

  ongke0711 > 20-01-17, 09:11 AM

  Code của bạn rối như đám rừng và sai từa lưa.
  - Sai chính tả khi đặt tên các biến. (Lúc thì StrCrtiteria, lúc thì StrCriteria..., lúc viết hoa lúc viết thường) => đã đề nghị dùng lệnh "Option Explicit" ở đầu module code để hỗ trợ tìm lỗi của biến rồi.
  - Đặt quá trời biến dư thừa -> tốn không gian RAM; sai nội dung của biến.
  - Đặt thuộc tính Name không nhất quán. Lúc txtSecSearch, lúc txtSearch…=> vậy tham chiếu cái nào?
  - Tạo trùng lắp các biến (TempFilter, StrCriteria). Nên dùng Debug.Print để kiểm tra xem nội dung các biến có ra đúng yêu cầu không trước khi viết tiếp.
  - Dùng sai lệnh Docmd.ApplyFilter. Lệnh này chỉ có tác dụng đối với Main form trong khi bạn muốn lọc trong SubForm => Sai.
  - Dựa theo báo lỗi của bạn thì sai kiểu dữ liệu tìm kiếm. Có thể dữ liệu trường đó dạng Number mà bạn đưa vô giữa cặp dấu ngoặc kép như kiểu Text hoặc ngược lại…
  - Xem lại logic bẫy lỗi Is Null, Not Is Null các controls tránh trùng lắp.
  - Bạn dựa vào Video hướng dẫn nhưng bạn không tự chỉnh sửa code lại cho phù hợp với thiết kế form của bạn dẫn đến lỗi tùm lum. Theo video có tới 2 khung textbox để tìm kiếm của bạn chỉ có 1 nên cách bẫy lỗi, tạo biến cũng sẽ khác hoàn toàn. 
  - Nếu bạn không có nhu cầu xài tới biến tạm TempVars thì đưa vô làm gì cho rối code.
  Nói túm lại bạn  dùng Debug.Print hoặc Msgbox để kiểm tra xem các nội dung các biến bạn tạo có đúng yêu cầu cú pháp của câu lệnh SQL chưa sau khi chạy qua các bẫy lỗi IsNull, Not Isnull...

• RE: Search dựa trên nhiều tiêu chí

  Godspear > 20-01-17, 10:55 AM

  (20-01-17, 08:50 AM)cpucloi Đã viết: Chờ nghỉ tết, rảnh rảnh mình ngồi code cho bạn nhé

  
  uhm cái này nghe mà vui quá đi mất, đợi tin của bạn vậy, còn h  cứ ngồi mày mò tiếp vậy

• RE: Search dựa trên nhiều tiêu chí

  Quynhhihi > 02-07-21, 01:42 PM

  (19-01-17, 08:54 AM)ongke0711 Đã viết: Nguyên tắc tìm kiếm là bạn cứ đưa hết điều kiện cần tìm vào một chuỗi nối với nhau bằng từ "AND" sau đó đưa vô mệnh đề WHERE của câu lệnh SQL. Câu lệnh SQL này sẽ là Record Source cho Form hay Subform kết quả tìm kiếm.
  Tôi xem qua file của bạn thì mỗi textbox hoặc combobox chứa nội dung tìm kiếm của bạn cứ sau AfterUpdate lại chạy lệnh tìm kiếm. Cách này cũng được nhưng code bạn phải thiết kế lại cho hiệu quả hơn. Tôi sẽ nói sau.
  - Thông thường khi có nhiều điều kiện tìm kiếm thì người ta thiết kế 1 nút lệnh [Search] để chạy sau khi bạn nhập tất cả các điều kiện tìm kiếm rồi. Nó sẽ tổng hợp lại thành 1 chuỗi tìm kiếm, nếu điều kiện nào để trống thì bỏ qua…
  -  Nếu bạn muốn làm theo cách cứ AfterUpdate một control nào đó thì chạy lệnh tìm kiếm (TK) ngay, bạn phải tổ chức lại code. Thay vi cứ lập lại code TK cho mỗi control thì bạn viết nó thành 1 Sub Procedure rồi Call Sub này trong sự kiện AfterUpdate cho gọn. Sub Tìm Kiếm này cũng tương tự như cách tạo một nút TK, nó sẽ check qua tất cả các control, lấy dữ liệu tìm kiếm đưa vô chuỗi rồi đưa vô mệnh đề WHERE.
  Tìm kiếm nhiều điều kiện trên diễn đàn có đầy. Cách thiết kế khác nhau nhưng nguyên tác code thì gần giống nhau.
  
  http://thuthuataccess.com/forum/thread-8324.html
  http://thuthuataccess.com/forum/thread-6491-page-8.html
  http://thuthuataccess.com/forum/post-183...l#pid18364
  http://thuthuataccess.com/forum/thread-5319.html
  http://thuthuataccess.com/forum/thread-8936.html

  
  mình cũng đang quan tâm vấn đề này và cũng đang sử dụng afterupdate một control . mình đang có combox(combo24,combo28,combo30,combo6) và textbox (nsearch) vẫn muốn sử dụng afterupdate thì không biết thêm AND thế nào. 
  

  Mã:

  Private Sub Combo24_AfterUpdate()
Dim myNanion As String
myNanion = "Select * from CONTACTQR where [Nationality] = '" & Me.Combo24 & "'"
Me.CONTACTQRsubform.Form.RecordSource = myNanion
Me.CONTACTQRsubform.Form.Requery
End Sub

Private Sub Combo28_AfterUpdate()
Dim mygender As String
mygender = "Select * from CONTACTQR where [Gender] = '" & Me.Combo28 & "'"
Me.CONTACTQRsubform.Form.RecordSource = mygender
Me.CONTACTQRsubform.Form.Requery
End Sub

Private Sub Combo30_AfterUpdate()
Dim myBusiness As String
myBusiness = "Select * from CONTACTQR where [Business Areas] = '" & Me.Combo30 & "'"
Me.CONTACTQRsubform.Form.RecordSource = myBusiness
Me.CONTACTQRsubform.Form.Requery
End Sub

Private Sub Combo6_AfterUpdate()
Dim myC As String
myC = "Select * from CONTACTQR where [Industrial] = '" & Me.Combo6 & "'"
Me.CONTACTQRsubform.Form.RecordSource = myC
Me.CONTACTQRsubform.Form.Requery
End Sub

Private Sub nsearch_Click()
Dim strsearch As String
Dim strtext As String
strtext = Me.keyword.Value
strsearch = "Select * from CONTACTQR where ([Contact Name] like ""*" & strtext & "*"") or ([Job Title] like ""*" & strtext & "*"") or ([Company] like ""*" & strtext & "*"") or ([Address] like ""*" & strtext & "*"") or ([Dictrict] like ""*" & strtext & "*"") or ([City] like ""*" & strtext & "*"") or ([Country] like ""*" & strtext & "*"") or ([Mobile Phone] like ""*" & strtext & "*"") or ([Email Personal] like ""*" & strtext & "*"") or ([Business Phone] like ""*" & strtext & "*"") or ([Email Company] Like ""*" & strtext & "*"")"
Me.CONTACTQRsubform.Form.RecordSource = strsearch
End Sub

Private Sub nshow_Click()
Dim strsearch As String
strsearch = "SELECT * from CONTACTQR"
Me.CONTACTQRsubform.Form.RecordSource = strsearch
End Sub

• RE: Search dựa trên nhiều tiêu chí

  ongke0711 > 02-07-21, 05:24 PM

  (02-07-21, 01:42 PM)Quynhhihi Đã viết: mình cũng đang quan tâm vấn đề này và cũng đang sử dụng afterupdate một control . mình đang có combox(combo24,combo28,combo30,combo6) và textbox (nsearch) vẫn muốn sử dụng afterupdate thì không biết thêm AND thế nào. 
  

  Mã:

  ...
strsearch = "Select * from CONTACTQR where ([Contact Name] like ""*" & strtext & "*"") or ([Job Title] like ""*" & strtext & "*"") or ([Company] like ""*" & strtext & "*"") or ([Address] like ""*" & strtext & "*"") or ([Dictrict] like ""*" & strtext & "*"") or ([City] like ""*" & strtext & "*"") or ([Country] like ""*" & strtext & "*"") or ([Mobile Phone] like ""*" & strtext & "*"") or ([Email Personal] like ""*" & strtext & "*"") or ([Business Phone] like ""*" & strtext & "*"") or ([Email Company] Like ""*" & strtext & "*"")"
Me.CONTACTQRsubform.Form.RecordSource = strsearch

  
  Bài bên kia tôi có nói bạn chuỗi strSearch sai cú pháp, kêu bạn bỏ các dấu ngoặc đi để tránh thiếu dấu, để kiểm tra. Sau khi bỏ dấu ngoặc đi hoặc bạn thêm dấu ngoặc cho đầy đủ thì nó hết báo lỗi.
  
  Còn các link trong bài  trên có những ví dụ, hướng dẫn code tìm kiếm nhiều điều kiện, bạn đọc tham khảo cách làm đi.
• Bài trước Bài tiếp