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

Tìm kiếm trong một khoảng thời gian bằng VBA

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Hỏi] Tìm kiếm trong một khoảng thời gian bằng VBA
• Tìm kiếm trong một khoảng thời gian bằng VBA

• Tìm kiếm trong một khoảng thời gian bằng VBA

  thanhtruong > 12-07-15, 01:16 PM

  Tìm khắp trên diễn đàn. mà không thấy đúng ý mình nên mình tạo topic mới, có gì sai sót mong bỏ qua.
  Tình hình là mình có 1 File tìm trên diễn đàn thuthuataccess.com như sau File demon
  Hình ảnh:
  Anh Chị xem hình ảnh tại đây
  Giờ mình muốn sửa lại nút tìm kiếm một chứt: Làm sao tìm được thời gian vào Đảng từ ngày bất kỳ đến này bất kỳ thì phải làm sao?
  Mong mọi người chỉ dẫn mình cách sửa code ở chổ nào? hay bổ sung ra sao ở nút tìm kiếm?

• RE: Tìm kiếm trong một khoảng thời gian bằng VBA

  ongke0711 > 12-07-15, 02:55 PM

  Bạn đặt tên cái textbox đến ngày là DenNgay sau đó vào code của nút [TÌM], tìm đến dòng s10 rồi thêm như bên dưới:
  
  s10 = " AND ((t01DScanbo.Ngayvaodang)BETWEEN [t10] AND [DenNgay])"
  
  

• RE: Tìm kiếm trong một khoảng thời gian bằng VBA

  thanhtruong > 12-07-15, 04:21 PM

  Cảm ơn bạn rất nhiều!
  Cho mình hỏi luôn một tý nữa có được không?
   Vậy giờ mình không muốn tìm trong 1 khoảng thời gian dd/mm/yyyy đến dd/mm/yyyy
  mà mình tìm trong vòng 5 hay 10 hay 30 hay 60 ngày gần đây thì mình làm như thế nào?

• RE: Tìm kiếm trong một khoảng thời gian bằng VBA

  thanhtruong > 14-07-15, 08:03 AM

  không ai giúp tiếp mình nữa à, Mình nghĩ chủ đè của mình cũng mới mà, sao không có ai chỉ dẫn thêm nữa nhỉ?

• RE: Tìm kiếm trong một khoảng thời gian bằng VBA

  tranthanhan1962 > 20-07-15, 09:09 PM

  Căn cứ theo code ongke0711  giả sử thay [t10] bằng ngày hiện tại (ngày đang làm công việc tìm kiếm)
  -Tìm 5 ngày trước s11 = " AND ((t01DScanbo.Ngayvaodang)BETWEEN date() AND (date()-5))"
  -Tìm 10 ngày trước s12 = " AND ((t01DScanbo.Ngayvaodang)BETWEEN date() AND (date()-10))"
  -Tìm 30 ngày trước (tức là ngày này tháng trước số ngày có thế giao động từ 28 - 31 ngày) s13 =  " AND ((t01DScanbo.Ngayvaodang)BETWEEN date() AND (DateSerial(Year(Date()), Month(Date())-1, day(date()))"
  -Tìm 60 ngày trước s14=" AND ((t01DScanbo.Ngayvaodang)BETWEEN date() AND (DateSerial(Year(Date()), Month(Date())-2, day(date()))"
• Bài trước Bài tiếp