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

Hỏi về nút tìm kiếm theo nhiều trường?

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Hỏi về nút tìm kiếm theo nhiều trường?
• Hỏi về nút tìm kiếm theo nhiều trường?

• Hỏi về nút tìm kiếm theo nhiều trường?

  casio262 > 07-05-12, 11:15 AM

  Mình có một main form và một sub form.
  Main form sẽ có một nút tìm kiếm theo các trường ID, Tên, Nghề Nghiệp... các trường này tương ứng với một textbox hoặc 1 combobox
  Khi chọn xong các trường đó rùi thì mình ấn nút tra cứu thì nó sẽ hiển thị nên danh sách cần tìm trong subform.
  
  P/S: Ai cho hỏi up bài tập dữ liệu access nên diễn đàn kiều gì nhỉ?

• RE: Hỏi về nút tìm kiếm theo nhiều trường?

  Noname > 07-05-12, 11:20 AM

  Bạn đọc thông báo để biết cách up file và hình.
  http://thuthuataccess.com/forum/announcement-1.html
  
  Trong diễn đàn đã có rất nhiều chủ đề về tìm kiếm. Bạn chịu khó search với cụm từ Tìm Kiếm ở góc phải trên diễn đàn, mình tin rằng có hàng chục topic đáp ứng nhu cầu của bạn

• RE: Hỏi về nút tìm kiếm theo nhiều trường?

  hoanglonglangtu > 07-05-12, 11:27 AM

  Tham khảo http://thuthuataccess.com/forum/thread-4721.html

• RE: Hỏi về nút tìm kiếm theo nhiều trường?

  casio262 > 07-05-12, 04:58 PM

  Mình đã tham khảo thêm một số chỉ dẫn của các bạn.
  Và đã làm được phần nào nhưng vẫn chưa được đúng cho lắm
  Mình đã tìm kiếm được từng trường trong các ô textbox hay combobox rồi. Nhưng vẫn còn vướng 1 điều là Tìm kiếm đồng thời gộp 2 trường lại với nhau thì vẫn chưa được mong mọi người xem qua và giúp mình với
  Đây là file bài của mình.
  http://www.mediafire.com/?ejlzj5i2pa1om6u
  Thanks!!!

• RE: Hỏi về nút tìm kiếm theo nhiều trường?

  nguyenhoaison > 08-05-12, 05:20 PM

  Form tìm kiến của mình tìm theo 2 trường (pol và pod). Mình viết lệnh như sau:
  
  Dim st As String
  Me.pol_input.SetFocus
  
  st = "SELECT * FROM tbl_data where "
  
  If Me.pol_input.Text <> "" Or IsNull(Me.pol_input) = False Then
  st = st & "tbl_data.pol like '*" & Me.pol_input.Text & "*'"
  Else
  st = st & "tbl_data.pol like '*'"
  End If
  
  Me.pod_input.SetFocus
  
  If Me.pod_input.Text <> "" Or IsNull(Me.pod_input) = False Then
  st = st & "AND tbl_data.pod like '*" & Me.pod_input.Text & "*'"
  Else
  st = st & "AND tbl_data.pod like '*'"
  End If
  
  Me.frm_query_subfrm.Form.RecordSource = st
  Me.frm_query_subfrm.Form.Requery
  End Sub

• RE: Hỏi về nút tìm kiếm theo nhiều trường?

  casio262 > 09-05-12, 09:14 AM

  Mình cũng làm như vậy rùi mà không được bạn ah.
  

  Mã:

  st = st & "tbl_data.pol like '*" & Me.pol_input.Text & "*'"

  Sao like lại có dấu * ở 2 bên của ô tìm kiếm
  Với cả

  Mã:

  st = st & "AND tbl_data.pod like '*" & Me.pod_input.Text & "*'"

  đoạn này có and trên đầu khi bỏ trống pol thì lỗi ngay.

• RE: Hỏi về nút tìm kiếm theo nhiều trường?

  nguyenhoaison > 09-05-12, 10:26 AM

  Chào bạn.
  
  

  Mã:

  st = st & "tbl_data.pol like '*" & Me.pol_input.Text & "*'"

  Ví dụ mình đưa dữ liệu cần tìm là AAA thì câu lệnh thực thi sẽ là:
  

  Mã:

  "SELECT * FROM tbl_data where tbl_data.pol like *AAA*"

  , sẽ tìm tất cả các chuỗi có 3 ký tự AAA trong đó.
  
  

  Mã:

  st = st & "AND tbl_data.pod like '*" & Me.pod_input.Text & "*'"

  tương tự nếu tìm pod có AAA và pol bỏ trống thì câu lệnh sẽ là:
  

  Mã:

  "SELECT * FROM tbl_data where tbl_data.pol like * AND tbl_data.pod like *AAA*"
• Bài trước Bài tiếp