ByteScout QR Code SDK – Microsoft Access – Add Barcode to Report

Home
/
Articles
/
ByteScout QR Code SDK – Microsoft Access – Add Barcode to Report

printable version:
ByteScout-QR-Code-Microsoft-Access-Add-Barcode-to-Report.pdf

How to add barcode to report in Microsoft Access and ByteScout QR Code

The tutorial below will demonstrate how to add barcode to report in Microsoft Access

Add barcode to report is easy to implement in Microsoft Access if you use these source codes below. What is ByteScout QR Code? It is QR Code barcode generator SDK with tunnable quality and features like QR Code embedded logo or images. Supports batch generation and specialized features like encoding of vCard and other structures inside QR Code barcodes. It can help you to add barcode to report in your Microsoft Access application.

Fast application programming interfaces of ByteScout QR Code for Microsoft Access plus the instruction and the code below will help you quickly learn how to add barcode to report. Follow the instructions from the scratch to work and copy the Microsoft Access code. You can use these Microsoft Access sample examples in one or many applications.

Trial version of ByteScout QR Code can be downloaded for free from our website. It also includes source code samples for Microsoft Access and other programming languages.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Barcode in Report.txt

      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.QRCode")
    BarCodeGenerator.RegistrationName = "demo"
    BarCodeGenerator.RegistrationKey = "demo"
    
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