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

khoanh vùng tìm kiếm trong Search Form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] khoanh vùng tìm kiếm trong Search Form
• khoanh vùng tìm kiếm trong Search Form

• khoanh vùng tìm kiếm trong Search Form

  Godspear > 17-01-17, 05:44 AM

  hi mọi người, hiện giờ là trong file của mình là mình đã làm được cái subform nằm trong search form của mình hiện ra các kết quả tương ứng với department của người dùng r
  Nhưng vấn đề hiện giờ là các nút lệnh để Search mình tạo vẫn là áp dụng với tất cả các kết quả chứ ko phải chỉ với các kết quả tương ứng với department của người dùng
  
  Bây giờ mình muốn làm sao để các nút lệnh đó chỉ áp dụng với các kết quả tương ứng với department của người dùng
  
  ví dụ như là với department là Dermatology có 3 kết quả (trên tổng 262 kết quả) tương ứng thì search cug chỉ dựa trên 3 kết quả đó thôi
  tương tự với các department khác như là Oncology có 120 kết quả (trên tổng 262 kết quả) tương ứng thì search cug chỉ dựa trên 120 kết quả đó thôi
  
  đây là link file của mình, ai biết giúp mình với
  
  Link File:  https://drive.google.com/open?id=0Byhaxb...k9STE9qYnc

• RE: khoanh vùng tìm kiếm trong Search Form

  cpucloi > 18-01-17, 11:00 AM

  Trả lời chay tí vậy.
  Bạn search xong thì để làm gì, hiển thị lên form hay report
  Nếu đã làm được cho subform rồi thì report lấy nguồn của subform sang là OK thôi

• RE: khoanh vùng tìm kiếm trong Search Form

  Godspear > 18-01-17, 12:43 PM

  (18-01-17, 11:00 AM)cpucloi Đã viết: Trả lời chay tí vậy.
  Bạn search xong thì để làm gì, hiển thị lên form hay report
  Nếu đã làm được cho subform rồi thì report lấy nguồn của subform sang là OK thôi

  
  hiển thị lên form rồi từ form chuyển sang report sau chứ

• RE: khoanh vùng tìm kiếm trong Search Form

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

  hỏi ko ai trả lời nên đành tự mày mò và may mắn làm sao đã mày mò ra dc, nên đành tự hỏi tự trả lời luôn, đưa lên cho mọi người tham khảo cùng nha
  
  mã code mình xài cho nút search
  
  Private Sub cmdSearch_Click()
  Dim Task As String
  Dim User As String
  Dim MyDept As String
  Dim strSearch As String
  
  strSearch = Me.txtsearch.Value
  User = Forms![Main Menu]!txtLogin.Value
  If Not IsNull(DLookup("Unit", "tbl_user", "LoginID = '" & User & "'")) Then
  MyDept = DLookup("Unit", "tbl_user", "LoginID = '" & User & "'")
  Task = "SELECT * from tbl_ListOfClinicalTrials Where(([Protocol_No] Like ""*" & strSearch & "*"")OR([Study_Coordinator] Like ""*" & strSearch & "*"")OR([PI_Name] Like ""*" & strSearch & "*"")OR([Acronym] Like ""*" & strSearch & "*"")) Order by Protocol_no "
  Me.tbl_Subform.Form.RecordSource = Task
  Me.tbl_Subform.Form.Filter = "Business_Unit='" & MyDept & "'"
  Me.tbl_Subform.Form.FilterOn = True
  Else
  Task = "SELECT * from tbl_ListOfClinicalTrials Where(([Protocol_No] Like ""*" & strSearch & "*"")OR([Study_Coordinator] Like ""*" & strSearch & "*"")OR([PI_Name] Like ""*" & strSearch & "*"")OR([Acronym] Like ""*" & strSearch & "*"")) Order by Protocol_no "
  Me.tbl_Subform.Form.RecordSource = Task
  End If
  End Sub
• Bài trước Bài tiếp