Using calculated fields - Code 39

You can display and print calculated fields as bar codes using TrueType bar code fonts.

Note: Using calculated fields limits you to the Code 39 normal character set.

Normal characters A-Z 0-9 -.<SPACE>$/+%.
Extended characters All 7-bit ASCII characters. (Access using LotusScript).

Code 39

The Code 39 standard says that Code 39 bar codes must start and end with an asterisk character, like so;


You can use the following calculated fields to print a field with asterisk characters at the start and end. You can also format the field values in the calculation;

Text fields

Simply print asterisk at the start and end using this calculation;

Combine('*', Upper(Fieldname), '*')

Numeric fields

See Lotus Approach Help for details about the NumToText( ) function;

Combine('*', NumToText(Fieldname, '0.00'), '*')

For bar codes without decimal places;

Combine('*', NumToText(Fieldname, '0'), '*')

For fixed width bar codes with 6 digits and leading zeros;

Combine('*', NumToText(Fieldname, '000000'), '*')

Date Fields

See Lotus Approach Help file for details about the DateToText( ) function;

Combine('*', DateToText(Fieldname, 'YYYYMMDD'), '*')


To prints bar codes as YES or NO;

Combine('*', Upper(Fieldname), '*')

To print bar codes as Y for Yes and N for No;

If (IsBlank(Fieldname),'',Combine('*', If (Like(Fieldname),'Yes'),'Y', 'N'), '*'))

Fields containing spaces

Space characters are non-printing characters (they always print a blank gap). If your text fields contains space characters, to print the spaces correctly;

Combine('*', Translate(Upper(Fieldname),' ','_'), '*')

Fields that may be blank

If you want fields containing no data to print no bar code;

If(IsBlank(Fieldname),'', Combine('*',Translate(Upper(Fieldname),' ', '_'),'*'))


Copyright 2000 CIA (BAR CODES) UK. All rights reserved. Reproduction prohibited.