Office: (Office 2016) QR Code im Formular/Bericht

Helfe beim Thema QR Code im Formular/Bericht in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Guten Abend, ich benötige bitte Hilfe zum Thema QR-Code im Bericht. Ich würde gerne aus mehreren Formularfeldern einen QR-Code im Bericht erzeugen.... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Dimei, 16. Januar 2023.

  1. Dimei Neuer User

    QR Code im Formular/Bericht


    Guten Abend,

    ich benötige bitte Hilfe zum Thema QR-Code im Bericht.
    Ich würde gerne aus mehreren Formularfeldern einen QR-Code im Bericht erzeugen.
    Dazu gibt es eine Lizenz in der Firma, wo man über VBA diesen Code integrieren kann.
    Leider fehlt mir das Wissen.
    Dieses Modul steht schon zur Verfügung:

    '*****************************************************************
    '* Visual Basic Functions for Morovia QRCode Font Encoder DLL, version 5.
    '* (c) 2011, 2012 Morovia Corporation. All rights reserved.
    '*
    '* See user manual for details on each encoder function.
    '*
    '* You may use Source Code in your application only if you
    '* received a valid license from Morovia Corporation.
    '*
    '* You need a distribution license to distribute font or source code
    '* outside your organization.
    '*
    '* $Id$
    '* Version: 5.1
    '*****************************************************************

    ' Note:
    ' This VBA module calls QRCode Font Encoder DLL internally. Therefore the DLL must
    ' be located in search path.

    #If VBA7 Then
    Private Declare PtrSafe Function DllImport_QRCodeEncode _
    Lib "MoroviaQRCodeFontEncoder5.dll" _
    Alias "QRCodeEncode2W" _
    (ByVal DataToEncode As String, _
    ByVal versionRequested As Long, _
    ByVal ecLevel As Long) As LongPtr
    #Else
    Private Declare Function DllImport_QRCodeEncode _
    Lib "MoroviaQRCodeFontEncoder5.dll" _
    Alias "QRCodeEncode2W" _
    (ByVal DataToEncode As String, _
    ByVal versionRequested As Long, _
    ByVal ecLevel As Long) As Long
    #End If


    #If VBA7 Then
    Private Declare PtrSafe Function DllImport_QRCodeResultGetBarcodeString _
    Lib "MoroviaQRCodeFontEncoder5.dll" _
    Alias "QRCodeResultGetBarcodeString" _
    (ByVal handle As LongPtr, _
    ByVal buffer As String, _
    ByRef maxSize As Long, _
    ByVal eol As String _
    ) As Long
    #Else
    Private Declare Function DllImport_QRCodeResultGetBarcodeString _
    Lib "MoroviaQRCodeFontEncoder5.dll" _
    Alias "QRCodeResultGetBarcodeString" _
    (ByVal handle As Long, _
    ByVal buffer As String, _
    ByRef maxSize As Long, _
    ByVal eol As String _
    ) As Long

    #End If

    #If VBA7 Then
    Private Declare PtrSafe Sub DllImport_DestroyQRCodeEncodeResult _
    Lib "MoroviaQRCodeFontEncoder5.dll" _
    Alias "DestroyQRCodeEncodeResult" _
    (ByVal handle As LongPtr)
    #Else
    Private Declare Sub DllImport_DestroyQRCodeEncodeResult _
    Lib "MoroviaQRCodeFontEncoder5.dll" _
    Alias "DestroyQRCodeEncodeResult" _
    (ByVal handle As Long)
    #End If


    Public Function QRCodeEncode(ByVal DataToEncode As String, _
    Optional ByVal versionID As Long = 0, _
    Optional ByVal ecLevel As Long = 0) As String
    Dim myOut As String * 8096
    Dim lRetVal As Long
    Dim maxSize As Long
    maxSize = 8096

    #If VBA7 Then
    Dim handle As LongPtr
    #Else
    Dim handle As Long
    #End If

    handle = DllImport_QRCodeEncode(StrConv(DataToEncode, vbUnicode), _
    versionID, ecLevel)

    If (handle = 0) Then
    QRCodeEncode = "ERROR"
    Else
    lRetVal = DllImport_QRCodeResultGetBarcodeString(handle, myOut, maxSize, Chr(13) + Chr(10))
    Call DllImport_DestroyQRCodeEncodeResult(handle)
    QRCodeEncode = myOut
    End If

    End Function


    Dazu folgender Aufruf:


    Function Prototype
    Font to Use Comment
    QRCodeEncode(DataToEncode As String, _
    Optional versionID As Long=0, _
    Optional ecLevel As Long=0) As String

    barcodestr = QRCodeEncode("this is data")

    Kann mir einer behilflich sein?

    Gruß

    Dirk
     
  2. Dimei Neuer User
    Hallo nochmal,

    ich habe es selbst gelöst. Es war eine Beispieldatenbank in der Dokumentation.

    Einfacher als gedacht.

    Danke trotzdem

    Gruß

    Dirk
     
Thema:

QR Code im Formular/Bericht

Die Seite wird geladen...
  1. QR Code im Formular/Bericht - Similar Threads - Code Formular Bericht

  2. VBA - Zeilen je nach Bedingung in neues Tabellenblatt verschieben und löschen

    in Microsoft Excel Hilfe
    VBA - Zeilen je nach Bedingung in neues Tabellenblatt verschieben und löschen: Hallo liebe Excel-Kommunity, nach ewigen Stunden des Suchens und Rumprobierens bin ich an dem Punkt angekommen an dem ich verzweifelt um eure Hilfe fragen muss. Da ich leider keinerlei...
  3. MSAccess - Feldinhalt in Formular aus anderer Tabelle befüllen (VBA)

    in Microsoft Access Hilfe
    MSAccess - Feldinhalt in Formular aus anderer Tabelle befüllen (VBA): Hallo und guten Tag allerseits, ich habe ein, für viele von Euch sicherlich einfach zu lösendes Problem. In meiner Tabelle literatur habe ich unter anderem die Felder Magazin, Kennung_Jahrgang,...
  4. VBA Code im Hintergrund ausführen ohne dass das Formular blockiert

    in Microsoft Access Hilfe
    VBA Code im Hintergrund ausführen ohne dass das Formular blockiert: Hallo ich habe ein Formular mit einem Timerevent das alle 20 Sec teile des formulares aktualisiert oder ändert. Dabei werden teilweise recht komplexe Abfragen ausgeführt was je nach Auslastung...
  5. Access VBA Abfrage erstellen für Filterung eines Berichtes

    in Microsoft Access Hilfe
    Access VBA Abfrage erstellen für Filterung eines Berichtes: Hallo Leute, habe ein Problem und im nach langer Suche im Netz leider nichts gefunden. Ich möchte mittels VBA einen Bericht öffnen/drucken, bei dem sich erst ein Formular öffnet, in dem ich den...
  6. Code für Ereignisprozedur im formular wo speichern???

    in Microsoft Access Hilfe
    Code für Ereignisprozedur im formular wo speichern???: Ich möchte für ein Steurelement eines Formulars eine Prozedur schreiben. Je nach Inhalt des Textfeldes, soll das Textfeld eine bestimmte Farbe annehmen. Aber das ist nicht das momentane Problem....
  7. VBA code für senden Formular über Lotus Notes

    in Microsoft Excel Hilfe
    VBA code für senden Formular über Lotus Notes: Hallo Leute, ich habe hier anscheinend ein unlösbares Problem. Ich habe eine Excel-Datei die aus dem Formular heraus versendet werden kann. Und zwar über einen Button und dann ist man in der...
  8. Code ändern (access Formular Button)

    in Microsoft Access Hilfe
    Code ändern (access Formular Button): Hallo ich habe ein kleines Problem ich habe ein formular dort gibt es einen button der als suche dient klickt man in an erscheint eine inputbox und man kann den rechnernamen eingeben und...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden