Erstellen von 2D (Data Matrix oder QR-Codes) in MS Access-Berichte/Formulare

Wir sind in den Prozess der Implementierung von code zum Lesen/erstellen von 2D-bar-codes, die beginnen zu zeigen, bis auf unsere Lieferanten teilen.

Brauchen wir zum erstellen des 2D-Barcodes in MS Access-Berichte und Formulare. Hat jemand hatte Erfolg mit der schriftart (IDAutomation) oder Active-X - (dlSoft) Lösungen gibt.

Für C#, die open-source-Bibliothek "http://barcoderender.codeplex.com/" vorgeschlagen wurde. Irgendwelche Gedanken auf, wie erfolgreich diese war, oder wenn jemand andere open-source und/oder zahlen für Optionen.

Dank,

Anton

InformationsquelleAutor Anton Ochss | 2013-03-08
  1. 1

    Abhängig von der Menge der codes, die Sie erzeugen müssen, könnten Sie die Google-Charts-API zum generieren von QR-Codes.

    Einfach ein "Microsoft Web Browser" ActiveX-Komponente und den folgenden code zu Ihrem Formular:

    Dim Size As Integer
Dim Text As String
Dim URL As String
Size = 200
Text = "This is my test"
' Better to actually use a URL encoding function like those described here:
' http://stackoverflow.com/questions/218181/how-can-i-url-encode-a-string-in-excel-vba
Text = Replace(Text, " ", "%20")
URL = "http://chart.apis.google.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chld=H|0&chl=" & Text
WebBrowser.Navigate (URL)

    Können Sie natürlich ändern, die Größe und den Text je nach Ihrem Bedarf. Der Text kann auch direkt ein Wert aus dem Formular, so werden Ihre Daten.

    Ich würde Ihnen raten, zu überprüfen, Googles Bedingungen und Dienstleistungen, bevor Sie es verwenden.

    InformationsquelleAutor user2088176
  2. 0

    Ich komplett aus dem Webbrowser-Steuerelement und die Google API, da diese Funktionalität ist jetzt veraltet aus, was ich sagen kann. Ich ging mit einer anderen freien API, aber die Google-API oder eine andere API könnte stattdessen verwendet werden.

    In meinem Beispiel erstelle ich eine .png-Bild in das gleiche Verzeichnis wie die Anwendung. Ich habe ein Textfeld auf mein Formular mit dem Namen txtToCode, in denen ich in jedem text, ich will code. Ich habe auch ein Bild-Steuerelement so, dass das Bild angezeigt werden kann von der form, aber Sie können es ändern, wie Sie wünschen:

    Private Sub btnCode2_Click()
     Call GetQRCode(Me.txtToCode, 150, 150)
End Sub

Sub GetQRCode(Content As String, Width As Integer, Height As Integer)
    Dim ByteData() As Byte
    Dim XmlHttp As Object
    Dim HttpReq As String
    Dim ReturnContent As String
    Dim EncContent As String
    Dim QRImage As String
    EncContent = EncodeURL(Content)

    HttpReq = "https://api.qrserver.com/v1/create-qr-code/?data=" & EncContent & "&size=" & Width & "x" & Height & ""

    Set XmlHttp = CreateObject("MSXML2.XmlHttp")
    XmlHttp.Open "GET", HttpReq, False
    XmlHttp.Send
    ByteData = XmlHttp.responseBody
    Set XmlHttp = Nothing

    ReturnContent = StrConv(ByteData, vbUnicode)
    Call ExportImage(ReturnContent)
End Sub

Private Sub ExportImage(image As String)
    Dim FilePath As String

    On Error GoTo NoSave

    ' Build Export Path
    FilePath = Application.CurrentProject.Path & "\qr.png"


    Open FilePath For Binary As #1
       Put #1, 1, image
    Close #1
    Me.Image3.Picture = FilePath
    ' Save File Path
    Exit Sub
NoSave:
MsgBox "Could not save the QR Code Image! Reason: " & Err.Description, vbCritical, "File Save Error"
End Sub

Private Function EncodeURL(str As String)
    Dim ScriptEngine As Object
    Dim encoded As String
    Dim Temp As String

    Temp = Replace(str, " ", "%20")
    Temp = Replace(Temp, "#", "%23")
    EncodeURL = Temp
End Function
    InformationsquelleAutor Anthony Griggs
Schreibe einen Kommentar