• 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])"

    [Hình: suaCode.png]
  • 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()))"