trangdv.pchg > 08-11-16, 06:42 PM
maidinhdan > 08-11-16, 08:56 PM
(08-11-16, 06:42 PM)trangdv.pchg Đã viết: Làm sao để đặt mã phiếu là duy nhất trong 1 tháng.
Nhưng tháng sau vẫn sử dụng lại mã phiếu của tháng trước được.
Ví dụ: Tháng 1 có mã phiếu 01, 02, 03 thì tháng 1 không được phép trùng mã phiếu 01, 02, 03
Tháng 2 cũng giống tháng 1 nhưng lại được phép sử dụng mã phiếu 01, 02, 03
Dim so
so = DMax("SOCT", "Tentable", "Year(ngayhachtoan) = " & Year(Date()) & " AND Month(ngayhachtoan) = " & Month(Date()))
If Nz(so, 0) = 0 Then
Me.Textboxsoct = "0001"
Else
Me.Textboxsoct = Right("000" & CInt(so) + 1, 4)
End If