Noname > 26-08-10, 08:24 PM
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
Noname > 03-10-10, 06:57 PM
ngocsondalat > 18-10-11, 12:26 PM