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!