ByteScout Barcode Suite – Microsoft Access – Add barcode in report with barcode sdk

Home
/
Articles
/
ByteScout Barcode Suite – Microsoft Access – Add barcode in report with barcode sdk

printable version:
ByteScout-Barcode-Suite-Microsoft-Access-Add-barcode-in-report-with-barcode-sdk.pdf

How to add barcode in report with barcode sdk in Microsoft Access and ByteScout Barcode Suite

If you want to learn more then this tutorial will show how to add barcode in report with barcode sdk in Microsoft Access

The code displayed below will guide you to install an Microsoft Access app to add barcode in report with barcode sdk. Want to add barcode in report with barcode sdk in your Microsoft Access app? ByteScout Barcode Suite is designed for it. ByteScout Barcode Suite is the bundle that privides 3 SDK products to generate barcodes (Barcode SDK), read barcodes (Barcode Reaer SDK) and read and write spreadsheets (Spreadsheet SDK).

Want to save time? You will save a lot of time on writing and testing code as you may just take the Microsoft Access code from ByteScout Barcode Suite for add barcode in report with barcode sdk below and use it in your application. Just copy and paste the code into your Microsoft Access application’s code and follow the instructions. Check Microsoft Access sample code samples to see if they respond to your needs and requirements for the project.

The trial version of ByteScout Barcode Suite 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.vb

      ' 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