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

Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Thread Modes
[Thủ Thuật] tạo nút Tìm kiếm trong vòng 30 ngày
thanhtruong Offline
Tín đồ Access
***
Bài viết: 204
Chủ đề: 19
Tham Gia: 23-06 -14
Điểm danh tiếng: 0
Số lần cảm ơn 152
3 cảm ơn trong 2 bài
Tiền Access: 4,715.26Ac$
#1
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?
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Website Find
Reply
Những người đã cảm ơn
ongke0711 Offline
Thanh vien dang cap
****
Bài viết: 1,172
Chủ đề: 12
Tham Gia: 10-04 -15
Điểm danh tiếng: 79
Số lần cảm ơn 184
1332 cảm ơn trong 808 bài
Tiền Access: 16,631.52Ac$
#2
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))"
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Website Find
Reply
Những người đã cảm ơn maidinhdan , thanhtruong
thanhtruong Offline
Tín đồ Access
***
Bài viết: 204
Chủ đề: 19
Tham Gia: 23-06 -14
Điểm danh tiếng: 0
Số lần cảm ơn 152
3 cảm ơn trong 2 bài
Tiền Access: 4,715.26Ac$
#3
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!
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Website Find
Reply
Những người đã cảm ơn
ongke0711 Offline
Thanh vien dang cap
****
Bài viết: 1,172
Chủ đề: 12
Tham Gia: 10-04 -15
Điểm danh tiếng: 79
Số lần cảm ơn 184
1332 cảm ơn trong 808 bài
Tiền Access: 16,631.52Ac$
#4
31-07-15, 02:28 PM (Được chỉnh sửa: 31-07-15, 02:29 PM bởi ongke0711.)
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.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Website Find
Reply
Những người đã cảm ơn thanhtruong
thanhtruong Offline
Tín đồ Access
***
Bài viết: 204
Chủ đề: 19
Tham Gia: 23-06 -14
Điểm danh tiếng: 0
Số lần cảm ơn 152
3 cảm ơn trong 2 bài
Tiền Access: 4,715.26Ac$
#5
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
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Website Find
Reply
Những người đã cảm ơn
ongke0711 Offline
Thanh vien dang cap
****
Bài viết: 1,172
Chủ đề: 12
Tham Gia: 10-04 -15
Điểm danh tiếng: 79
Số lần cảm ơn 184
1332 cảm ơn trong 808 bài
Tiền Access: 16,631.52Ac$
#6
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))"
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Website Find
Reply
Những người đã cảm ơn thanhtruong
thanhtruong Offline
Tín đồ Access
***
Bài viết: 204
Chủ đề: 19
Tham Gia: 23-06 -14
Điểm danh tiếng: 0
Số lần cảm ơn 152
3 cảm ơn trong 2 bài
Tiền Access: 4,715.26Ac$
#7
04-08-15, 07:50 AM
from không phản ứng gì cả bạn à!
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Website Find
Reply
Những người đã cảm ơn
ongke0711 Offline
Thanh vien dang cap
****
Bài viết: 1,172
Chủ đề: 12
Tham Gia: 10-04 -15
Điểm danh tiếng: 79
Số lần cảm ơn 184
1332 cảm ơn trong 808 bài
Tiền Access: 16,631.52Ac$
#8
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.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Website Find
Reply
Những người đã cảm ơn
thanhtruong Offline
Tín đồ Access
***
Bài viết: 204
Chủ đề: 19
Tham Gia: 23-06 -14
Điểm danh tiếng: 0
Số lần cảm ơn 152
3 cảm ơn trong 2 bài
Tiền Access: 4,715.26Ac$
#9
06-08-15, 04:46 PM
file đây bạn.
file tải về
Chữ ký của thanhtruong Xin chào, mình là thanhtruong, Tham gia http://thuthuataccess.com/forum từ ngày 23-06 -14.
Website Find
Reply
Những người đã cảm ơn
ongke0711 Offline
Thanh vien dang cap
****
Bài viết: 1,172
Chủ đề: 12
Tham Gia: 10-04 -15
Điểm danh tiếng: 79
Số lần cảm ơn 184
1332 cảm ơn trong 808 bài
Tiền Access: 16,631.52Ac$
#10
06-08-15, 08:06 PM
007  ô 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]))"

[Hình: search.png]
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Website Find
Reply
Những người đã cảm ơn maidinhdan , thanhtruong


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Sử dụng window account cho việc phân quyền trong access tvn_hut 2 93 Hôm qua, 01:11 PM
Bài mới nhất: tvn_hut
  [Hàm] Nhờ gở khó về hàm DLookup trong câu lệnh VBA phungminhluan 3 114 13-10-17, 07:24 PM
Bài mới nhất: phungminhluan
  [Thủ Thuật] Lọc điều kiện theo nhiều dòng trong 1 Listbox hoặc nhiều Listbox ongke0711 11 1,526 23-09-17, 04:54 PM
Bài mới nhất: ongke0711
  Làm sao chạy được code cả trong access 32 bit và access 64 bit haquocquan 1 149 12-09-17, 11:15 PM
Bài mới nhất: maidinhdan
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 61 22,230 18-06-17, 08:49 AM
Bài mới nhất: lehongduc

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ