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

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

printable version:
ByteScout-Premium-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 Premium Suite

Continuous learning is a crucial part of computer science and this tutorial shows how to add barcode in report with barcode sdk in Microsoft Access

An easy to understand guide on how to add barcode in report with barcode sdk in Microsoft Access with this source code sample. ByteScout Premium Suite can add barcode in report with barcode sdk. It can be applied from Microsoft Access. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

The SDK samples given below describe how to quickly make your application do add barcode in report with barcode sdk in Microsoft Access with the help of ByteScout Premium Suite. Simply copy and paste in your Microsoft Access project or application you and then run your app! Applying Microsoft Access application mostly includes various stages of the software development so even if the functionality works please test it with your data and the production environment.

If you want to try other source code samples then the free trial version of ByteScout Premium Suite is available for download from our website. Just try other source code samples for Microsoft Access.

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