Sao kê ngày đến hạn

[haocaocu]

Tôi có dịch vụ đăng ký nhờ thu tự động tiền điện, nước, điện thoại, ... cho khách hàng. khi khách hàng đăng ký lần đầu thì mình có 1 field để cho họ gõ vào ngày tự động thanh toán (VD : họ đăng ký ngày 22 hằng tháng trích tài khoản của họ để nộp tiền dịch vụ). Nhiệm vụ của mình là từng ngày sao kê những người nào đến hạn thanh toán cho họ.Pro nào hướng dẫn mình viết đoạn code để so sánh ngày đó với ngày hiện tại để vấn tin những khách hàng đến hạn thanh toán.Thanks

 

[lequyc07k3a]

Ðề: Sao kê ngày đến hạn

=if(now-(ngàydangky)>=30;"đến hạn thanh toán";" ")
sao đó bạn trich loc dữ liệu minh tính trong công cụ data-->pilter-->auto fillter

 

[xuanthanh]

Ðề: Sao kê ngày đến hạn

=if(now-(ngàydangky)>=30;"đến hạn thanh toán";" ")
sao đó bạn trich loc dữ liệu minh tính trong công cụ data-->pilter-->auto fillter

Hình như bạn bị ...lộn đề tài. Ý tác giả hỏi trong Access cơ mà
Thân
-----------------------------------------------------------------------------------------

Tôi có dịch vụ đăng ký nhờ thu tự động tiền điện, nước, điện thoại, ... cho khách hàng. khi khách hàng đăng ký lần đầu thì mình có 1 field để cho họ gõ vào ngày tự động thanh toán (VD : họ đăng ký ngày 22 hằng tháng trích tài khoản của họ để nộp tiền dịch vụ). Nhiệm vụ của mình là từng ngày sao kê những người nào đến hạn thanh toán cho họ.Pro nào hướng dẫn mình viết đoạn code để so sánh ngày đó với ngày hiện tại để vấn tin những khách hàng đến hạn thanh toán.Thanks

Sub HenNgay()
    Dim Rs As Recordset
    Set Rs = CurrentDb.OpenRecordset("tblDangKy", dbOpenTable)
    If Rs.RecordCount > 0 Then
        Rs.MoveFirst
        Do Until Rs.EOF
            If Day(Rs!NgayDangKy) = Day(Date) Then
                Ten = Rs!TenKhach
                MsgBox "Khach hang " & Ten & " da den han thanh toan", , "Thong Bao"
            End If
            Rs.MoveNext
        Loop
     End If
     Rs.Close
End Sub

Thử xem
Thân
-----------------------------------------------------------------------------------------

Tôi có dịch vụ đăng ký nhờ thu tự động tiền điện, nước, điện thoại, ... cho khách hàng. khi khách hàng đăng ký lần đầu thì mình có 1 field để cho họ gõ vào ngày tự động thanh toán (VD : họ đăng ký ngày 22 hằng tháng trích tài khoản của họ để nộp tiền dịch vụ). Nhiệm vụ của mình là từng ngày sao kê những người nào đến hạn thanh toán cho họ.Pro nào hướng dẫn mình viết đoạn code để so sánh ngày đó với ngày hiện tại để vấn tin những khách hàng đến hạn thanh toán.Thanks

Nếu muốn dùng query để lọc thì làm thế này
1/ Thêm vào bảng tblDangKy một trường NgayHienTai, Defaut Value = Date()
2/ Xây dưng một query thế này để lọc

SELECT tblDangKy.TenKhach, tblDangKy.NgayDangKy
FROM tblDangKy
WHERE (((Day([NgayDangKy]))=Day([NgayHienTai])));

Thân