Scanable Barcode

[pds8475]

Hi
Im trying to add a barcode to a report which I can scan with a barcode scanner. I have downloaded A code39 TrueType font and created a textbox and have put the following in the Data, Control source

 ="*" & [Barcode] & "*"

but when I print out the report its only converting the field barcode to a code 39 barcode and leaving "*" at either side of it. I know its not the font as if I open note pad, select the font and enter *1234* all is converted to a scanable barcode.

Any help would be much appreciated.

 

[Uncle Gizmo]

Try this function as your control source =fX([Barcode])

Place the following function in a module:-

Public Function fX(strFldTxt As String) As String
    
    fX = "*" & strFldTxt & "*"

End Function      'fX

 

[AccessBlaster]

Hi
Im trying to add a barcode to a report which I can scan with a barcode scanner. I have downloaded A code39 TrueType font and created a textbox and have put the following in the Data, Control source

 ="*" & [Barcode] & "*"

but when I print out the report its only converting the field barcode to a code 39 barcode and leaving "*" at either side of it. I know its not the font as if I open note pad, select the font and enter *1234* all is converted to a scanable barcode.

Any help would be much appreciated.

In the control source of your texbox you need, the name of the font plus the field name.

You may need a module to help translate the font.

=BCW_Code128B([SerialNumber])

 

[Darla123]

We do this on a lot of our reports, and sometimes when I paste

="*" & [Barcode] & "*"

into the control source or if I use expression builder it does that. Did you try manually typing it out? I know this seems like a weird suggestion, but it works for me.