Generate Invoice Number Series

Code ResourceAuthor: Lokesh M

Difficulty Level:

Published: 21st Jun 2007 Read: 2788 times

Filed in: MS Access

Add Comment

The objective of this function is to generate invoice number in a specified serial format.

Commonly Invoice Number is stored as number in the database. While printing Invoice, It is offen required to print invoice numbers in specified format as per customer's requirement. Most of them would like to have invoice number printed in formats which has 000 as prefix along with financial year and suffix.This function is usefull in such cases.
Generate_Inv_No Function takes in 2 arguments, Invoice Number and Invoice Date and gives the out put in the format Inv / 0001 / 07-08

Sample Code

Public Function Generate_Inv_No(XNo As Long, XDate As Date)
Dim DString As String
Dim RNo As String
Select Case Len(LTrim(RTrim(Str(XNo))))
Case 1
RNo = "000" & LTrim(RTrim(Str(XNo)))
Case 2
RNo = "00" & LTrim(RTrim(Str(XNo)))
Case 3
RNo = "0" & LTrim(RTrim(Str(XNo)))
Case 4
RNo = LTrim(RTrim(Str(XNo)))
Case Else
RNo = LTrim(RTrim(Str(XNo)))
End Select
Select Case Month(XDate)
Case 1 To 3
DString = " / " & Mid(Year(XDate) - 1, 3, 2) & "-" & Mid(Year(XDate), 3, 2)
Case 4 To 12
DString = " / " & Mid(Year(XDate), 3, 2) & "-" & Mid(Year(XDate) + 1, 3, 2)
End Select
SType = "Inv / "
Generate_Inv_No = LTrim(RTrim(SType & RNo)) & DString
End Function
Public Function Test_Inv_No()
Inv_Series = Generate_Inv_No(1, Date)
MsgBox Inv_Series
End Function

Next Article: Navigation made easy

Post Comment

Popular Coders

#	Coder Name	Hits
1.	Lokesh M	4414
2.	Shivanna	2234
3.	Rajani	1515

Active Coders

#	Coder Name	Codes
1.	Shivanna	2
2.	Lokesh M	2
3.	Rajani	1

Question Bank

MS Access Code Base

Generate Invoice Number Series

Latest Code Samples

Popular Code Samples

Related Code Samples

Post Comment

Popular Coders

Active Coders

Refined Tags

Sponsored Links

User Name		Remember Me?
Password