Product Group Sequence with Auto Numbers
How to generate automatic sequence numbers for different Category of Products. See the sample data given below to understand the gravity of the problem more clearly:
|2||Condiments||2||Northwoods Cranberry Sauce|
|3||Confections||1||Uncle Bob’s Organic Dried Pears|
First two column values are Product Category Code and Description respectively. Third column represents the Category-wise Product Sequence Numbers and the last column value is Product Description. Product serial is consecutive numbers. Both Category Code combined with the Product Sequence number forms the PrimaryKey of the Table. Duplicates in Product Sequence number is not valid.
The Product file contains several products under each category (1. Beverages, 2. Condiments etc.) and the products under each group should have their own sequence numbers. The Product sequence should not end up with duplicate values.
When a new product is added to the file under a particular Category, the Form should generate the next product sequence number automatically. It is impossible to keep track of the last sequence number used under each product group manually, during data entry. But we can give that job to MS-Access to do it effectively without mistakes. A simple VBA routine on the Form can do it for us.
An image of a sample Form for the above data is given below:
The first field is Category Code (1,2,3 etc.) is a lookup field (Combo box) linked to the Category Table. The first Column Width is set to 0 on the Property Sheet so that the description of the Category is displayed in the Combobox rather than the numeric value.
During data entry the User selects a Product Category on the first field in preparation for entering a new Product under that Category. The next sequence number (the existing Product sequence number + 1) inserted automatically in the second field ProdSeq, when the User presses Tab Key to leave out the Category field. The User needs to enter only the Product Description manually. The ProdSeq field may be kept locked so that it is protected from inadvertent changes.
The following program runs on the Category_LostFocus() Event Procedure and finds the existing highest Product Sequence Number for the selected Category from the Table, calculate the next sequence number and insert it in the ProdSeq field:
Private Sub Category_LostFocus() Dim i, s If Me.NewRecord Then i = Me!Category s = Nz(DMax("ProdSeq", "Products", "Category = " & i), 0) s = s + 1 Me![ProdSeq] = s End If End Sub
The program works only when the User attempts to create a New Record.
If the Category Code is Text value then you need to make change in the criteria part of the DMax() Function as given below:
s = Nz(DMax("ProdSeq", "Products", "Category = ‘" & i & "’"), 0)
- Join Split Array Function
- Memo Field and Data Filtering
- Lively Controls on Form
- Create your own Color Pallette
- Colors 24 bits and Binary Conversion