Barcode Generation using Report in MSaccess 2003

[wassimdaccache]

Hello everybody



Does someone have a VB module and FONT for windows XP SP2 to import into a MSaccess (2003) to print a barecode ...


Please leave me any comments about barecode generation or anything u know about barecode...

[maxamis4]

Yes I do!!! but I can't attach the file. I am currently not at home, But when I get home I will attach the file you will need to do this, in addition a script that will check to make sure that it exist will also be included.

[maxamis4]

First you will have to load this code on the form on load. It uses does scripting to do this function.

Private Sub Form_Load()
On Error GoTo err_form_Load
Dim stAppName As String
HideAccessCloseButton
    stAppName = "\\itdc01\opsupt\data\Asset Tracking\Fonts\font.cmd"
    'Call Shell(stAppName, 1)
    Me.txtPassword.SetFocus
 
Exit_Form_Load:
    Exit Sub
err_form_Load:
    MsgBox Err.Description
    Resume Exit_Form_Load
 
End Sub
 

stAppName should be set to the location where your database will reside.

The second part to get this to work is modify the file called font.cmd. Goto the file named font.cmd and right click on it and goto edit.

echo on
if exist c:\windows\fonts\FRE3OF9X.TTF goto ttf
:ttf
if exist c:\windows\fonts\FREE3OF9.TTF goto done
xcopy "\\itdc01\opsupt\data\Asset Tracking\Fonts\*.ttf" c:\windows\fonts
:done
exit
 

goto the xcopy part and modify the location where the .ttf file exist on your network and you will be done.

afte this when you open access you can select the actual font to use as the barcode. good luck!

[wassimdaccache]

It woked very well ............. Thank you Very Very Very Very much

[wassimdaccache]

I have to add something to this subject ... When you want to use these fonts your ascii or you number or whatever the symbol is must be wrote between to stars for example if you want to print the barecode of ABC27001 you have to write *ABC27001* ...


NB: Barcode reade will just read ABC27001


anyway thank you again for the one that he helped me to find these fonts ....