GS1-128 of EAN128 barcode

[test1000]

Hoi,

Ik heb een rapport gemaakt met een barcode veld.
Maw op internet de CODE 128 font gedownload.
Een veld aangemaakt en het juiste veld toegekend.
Bij lettertype : code129 gekozen.
De barcode verschijnt.
Dus op zicht alles correct.
Behalve dat de barcode scanner de barcode niet scant.
Blijkbaar kan/moet je een start en stop waarde geven.
Maar deze kan ik niet vinden.
Voor code 39 is dat blijkbaar = "*" & [nummer] & "*"
Maar dit werkt niet voor code 128.

Kan iemand helpen ?

Alvast bedankt.

Met vriendelijke groeten.

 

[OctaFish]

Je hebt dit soort pagina's al bekeken?

 

[alphamax]

Code 128, heeft een startteken Chr(204), data, controlegetal en een stopteken Chr(206).
Per fabrikanten kan het start- en stopteken anders zijn om hun product "uniek" te maken (en de klant niet te later overstappen).
Onderstaande code heb ik ooit gemaakt voor excel maar zou je met een kleine moeite kunnen aanpassen naar access.

Option Explicit

Public Function Code128B(vntCode As Variant) As Variant
    'http://www.jtbarton.com/Barcodes/Code128.aspx
    'http://en.wikipedia.org/wiki/Code_128
    Dim ivntcode As Long
    Dim lngRemainder As Long
    Dim lngSum As Long
        lngSum = 104 'am_2012
        For ivntcode = 1 To Len(vntCode)
            lngSum = lngSum + ivntcode * (Asc(Mid(vntCode, ivntcode, 1)) - 32)
        Next
        lngRemainder = lngSum Mod 103
        If lngRemainder < 95 Then
            lngRemainder = lngRemainder + 32
        Else
            lngRemainder = lngRemainder + 100
        End If
        Code128B = Chr(204) & vntCode & Chr(lngRemainder) & Chr(206)
End Function