Don't know if this is the correct group for this but can any one walk
me through the requirements for producing price bar code labels from
an Access inventory table?
Thanks!
I think you mean to use item ID barcodes. The ID would be used to
retrieve a price for the item. There are many different barcode
symbologies used, but when you mention price it typically means a UPC
barcode. The UPC symbol is comprised of 12 numerical digits. The first
6 are the UCC numbers followed by 5 for the item ID, and the last is a
Modulo 10 check sum digit - for validating the read.
Here is an example of constructing a Modulo 10 checksum digit.
=========================
'Calulate the Modulo 10 check sum digit:
'First sum odd positioned and even positioned digits.
For i = 11 To 1 Step -1
strDigit = Mid(strCheckSum, i, 1)
'Odd or even?
If i / 2 <> Int(i / 2) Or i = 1 Then
'It's an odd positioned digit so add it to the sum of odds
intOdd = intOdd + CInt(strDigit)
Else
'It's an even, add to sum of evens
intEven = intEven + CInt(strDigit)
End If
Next i
'Odd numbers get multiplied by 3
intOdd = intOdd * 3
'Now sum the odds and evens
dblCheck = intEven + intOdd
'Check sum digit is the results subtracted from the next highest
'multiple of 10
dblCheck = RoundToNearest(dblCheck, 10, 1) - dblCheck
========================
You can probably see what's going on from this snippet.
To print the barcode you need a barcode font. Then you might need to
construct the barcode image using chars to represent the bars and
spaces. That info would be provided by the maker of the font.
I have used fonts from these folks with good results...
http://www.riversedge.com/
- Jim
