ByteScout tutorials are designed to explain the code for both Microsoft Access beginners and advanced programmers. Want to add barcode in report in your Microsoft Access app? ByteScout Barcode SDK is designed for it. ByteScout Barcode SDK is the robost SDK that generates high quality barcode images and pdf. Can generate all popular types of barcodes from QR Code, Code 39, Code 128, UPC, GS1, GS-128, PDF417, Datamatrix to more exotic barcode types. Fully customizable fonts, colors, print sizes. Includes special functions to ensure output quality, and tools for adding barcodes to new or existing pdf files and images.
Fast application programming interfaces of ByteScout Barcode SDK for Microsoft Access plus the instruction and the code below will help you quickly learn how to add barcode in report. Follow the instructions from the scratch to work and copy the Microsoft Access code. Implementing Microsoft Access application typically includes multiple stages of the software development so even if the functionality works please test it with your data and the production environment.
Trial version of ByteScout Barcode SDK can be downloaded for free from our website. It also includes source code samples for Microsoft Access and other programming languages.
' 1. Add reference to "Bytescout Barcode SDK" ActiveX object to your database project (in menu Tools->References). ' 2. Put Picture object on the Details section of the report. ' 3. Handle the Format event of the Details section and set barcode image to the Picture control. Option Compare Database Dim BarCodeGenerator Private Sub Report_Open(Cancel As Integer) ' Setup the barcode generator Set BarCodeGenerator = CreateObject("Bytescout.BarCode.Barcode") BarCodeGenerator.RegistrationName = "demo" BarCodeGenerator.RegistrationKey = "demo" BarCodeGenerator.Symbology = 16 ' QRCode End Sub Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) ' Set barcode value BarCodeGenerator.Value = Me.Field1 ' Set generated barcode image to Picture object Me.BarcodeImage.PictureData = BarCodeGenerator.GetImageBytesPNG() End Sub Private Sub Report_Close() ' Cleanup Set BarCodeGenerator = Nothing End Sub