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

tạo nút Tìm kiếm trong vòng 30 ngày

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Thủ Thuật] tạo nút Tìm kiếm trong vòng 30 ngày
• tạo nút Tìm kiếm trong vòng 30 ngày

• tạo nút Tìm kiếm trong vòng 30 ngày

  thanhtruong > 18-07-15, 08:29 PM

  Hôm trước tạo chủ đề tìm kiếm trong 1 khoảng thời gian bằng VBA và đã được anh Ongke0711 giúp đở,
  Hôm nay cũng từ chủ đề trên xin hỏi làm sao để tìm được trong khoảng thời gian 30 ngày hay 60 ngày.
  
  Ví dụ: hôm nay ngày 17/7/2015. khi nhập vào ô tìm Số ngày cần tìm là "30" chẳn hạn, thì chương trình sẽ tìm 30 ngày gần nhất dựa vào "ngày vào đảng".
  
  File access: file demon
  
  Mọi người xem giúp em xem nên sửa code ở chổ nào cho đúng?

• RE: tạo nút Tìm kiếm trong vòng 30 ngày

  ongke0711 > 18-07-15, 10:35 PM

  Bạn sử dụng hàm Dateadd nhé. Thay thế chỗ [DenNgay] bằng hàm dateadd. Tìm hiểu các thông số của hàm này trên google nhé.
  
  Ví dụ: tạo 1 textbox để nhập số ngày cần tra cứu có dạng Number , có Name: txtSoNgay
  
  s10 = " AND ((t01DScanbo.Ngayvaodang)BETWEEN [t10] AND DateAdd("d", Me.txtSoNgay, t01DScanbo.Ngayvaodang))"

• RE: tạo nút Tìm kiếm trong vòng 30 ngày

  thanhtruong > 31-07-15, 11:48 AM

  nó bị lỗi chổ chữ d:
  
  s10 = " AND ((t01DScanbo.Ngayvaodang)BETWEEN [t10] AND DateAdd("d", Me.txtSoNgay, t01DScanbo.Ngayvaodang))"
  
  không tìm kiếm được!

• RE: tạo nút Tìm kiếm trong vòng 30 ngày

  ongke0711 > 31-07-15, 02:28 PM

  Bạn đổi dấu nháy kép thành nháy đơn của tham số ngày nhé: "d" -> 'd'.
  Mình quên code trong VBA chỉ nhận dấu nháy đơn.

• RE: tạo nút Tìm kiếm trong vòng 30 ngày

  thanhtruong > 03-08-15, 08:41 PM

  Không có tác dụng gì cả?
  
  Nó vẫn không tìm được. Ongke xem lại giúp mình với

• RE: tạo nút Tìm kiếm trong vòng 30 ngày

  ongke0711 > 03-08-15, 09:42 PM

  Nó báo lỗi sao bạn? hay form không phản ứng gì?
  
  Sửa đoạn code lại:
  s10 = " AND ((t01DScanbo.Ngayvaodang)BETWEEN [t10] AND DateAdd('d', " & Me.txtSoNgay & ", t01DScanbo.Ngayvaodang))"

• RE: tạo nút Tìm kiếm trong vòng 30 ngày

  thanhtruong > 04-08-15, 07:50 AM

  from không phản ứng gì cả bạn à!

• RE: tạo nút Tìm kiếm trong vòng 30 ngày

  ongke0711 > 04-08-15, 12:11 PM

  Bạn upload file của bạn lên xem.
  Đổi kiểu gõ ngày thàng thành mm/dd/yyyy xem sao.

• RE: tạo nút Tìm kiếm trong vòng 30 ngày

  thanhtruong > 06-08-15, 04:46 PM

  file đây bạn.
  file tải về

• RE: tạo nút Tìm kiếm trong vòng 30 ngày

  ongke0711 > 06-08-15, 08:06 PM

    ô rất sorry là mình không để ý kỹ cái cú pháp, add thêm ngày vào textbox ngày cần tìm chứ không phải ngày vào đảng. Bị sai ở chỗ [t10]
  
  s10 = " AND ((t01DScanbo.Ngayvaodang)BETWEEN [t10] AND DateAdd('d'," & Me.txtsongay & ", [t10]))"
  
  
• Bài trước Bài tiếp