-
08-30-2009, 07:01 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Giúp mình tạo số chứng từ tự động tăng theo tháng năm hiện tại
Mình có 1 forms nhập kho, xuất kho, thu, chi. mình muốn số chứng từ tăng theo tháng năm tương ứng với ngày hoạch toán trong tháng, mình có thảm khảo 1 số code nhưng đều tăng dần chứ không theo tháng năm.
Mình ví dụng : ngày tháng năm hoạch toán : 10/08/2009, thì tháng hiện tại là tháng 9. nếu khi nhấn nút thêm trên form nhập kho, xác định tháng hiện tại là tháng 8, thì dò trong csdl nếu trong tháng 8 chưa có số CT thì gán số CT =1 và nếu có thì cứ cho số CT tăng lên theo thứ tự số đã có. và như thế khi đến tháng 9 thì số CT này bắt đầu quay lại từ đầu.
ví dụ :
SoCT : 001, ngayHT : 01/08/09
002 ngayHT : 10/08/09
001 ngayHT : 02/09/09
002 ngayHT : 30/09/09View more random threads:
- Giúp mình bị lỗi phóng to chữ trong Form của Access !
- Xây dựng CSDL in hóa đơn thanh toán tiền bắt đầu như thế nào?
- Xin các Thầy và các bạn giúp mình chỉnh sửa file đính kèm
- Mỗi ngày thêm 1 code hay
- nho huong dan sua loi code va huong dan lam do an lap trinh access
- Sử dụng chức năng phân quyền truy cập của access
- [Tip] Code hiển thị thông tin File
- khởi tạo mã số
- dữ liệu ngày trả về quý
- Access xem giúp mình bài tính đơn giá này,tạo bảng table lấy dữ liệu từ table khác
-
09-01-2009, 03:52 PM #2Junior Member
- Ngày tham gia
- Dec 2015
- Bài viết
- 8
Ðề: Giúp mình tạo số chứng từ tự động tăng theo tháng năm hiện tại
Gửi bởi xiketuan
Nói đơn giản là nếu chứng từ phát sinh trong tháng thì tăng tự động, qua tháng tính lại từ đầu, đúng không?
Ở đây chỉ "an toàn" khi chạy đơn thôi nhé. Còn chạy dùng chung thì khác rồi.
Làm cái After_Update của ngày hạch toán, cho nó một đoạn:
Dim so
so = DMax("SOCT", "table", "Year(ngayhachtoan) = " & Year(Date()) & " AND Month(ngayhachtoan) = " & Month(Date()))
If Nz(so, 0) = 0 Then
soct = "0001"
Else
soct = Right("000" & CInt(so) + 1, 4)
End If
Trứng rung tình ái được thiết kế nhỏ gọn, thuận tiện cho việc mang đi đến nhiều nơi khác nhau. Chính vì điểm này nên chị em hay các cặp đôi có thể sử dụng kín đáo mà không sợ mọi người phát hiện ra....
Các cô có nên sử dụng chày rung tình yêu không?