Office: (Office 2000) QR CODE (2D Barcode) in Bericht

Helfe beim Thema QR CODE (2D Barcode) in Bericht in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo es gibt im Netz einige Anlaufstellen wo erklärt ist, wie man per VBA Bilder oder andere Objekte als OLE speichern kann...rt z.B.:... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von GTRDRIVER, 24. März 2011.

Seite 2 von 3

GTRDRIVER

GTRDRIVER

QR CODE (2D Barcode) in Bericht

Hallo

es gibt im Netz einige Anlaufstellen wo erklärt ist, wie man per VBA Bilder oder andere Objekte als OLE speichern kann...rt

z.B.: Bildverwaltung in Access - Access im Unternehmen

Aber wie gesagt - alles ohne Gewähr - ich habe es nie probiert...

Einfach mal probieren

Ich rate dir dennoch zu Variante1.
Ich bin der Meinung man sollte hier nicht nur diese eine ACC DB sehen - bei korrekter Aufteilung in FE und BE Datenbank und beim Einbinden externer Module oder MDE´s hat man ohnehin mehrere Dateien...
Ich sehe bei meiinen Projekten immer ein Verzeichnis als "EinzelProjekt"

cU
GTR

GTRDRIVER, 19. August 2011

#16
MUNGO72

Mungo72

Hallo GTR,
vielen Dank für den Link. Leider hilft er mir nicht weiter.
Mein Problem ist wohl das es einen großen Unterschied macht ein Bild aus der Zwischenanlage mit ctrl+v in das Formular Feld eines OLE-Objekts einzufügen oder es mit VBA zu tun.
Ich bekomme dann nicht den QRCode direkt angezeigt sondern nur den Dateinamen, selbst wenn ich Inhalt als Anzeigemodus mache.
Bei dem Einfügen aus der Zwischenablage ist das kein Problem da kann ich das Feld einfach bei einem weiteren Formular anfügen und schon bekomme ich den QRCode direkt angezeigt und ausgedruckt.
Da der QRCode maximal 400 Bytes hat würde ich ihn schon lieber direkt speichern um mir die Mühe mit den Dateien zu sparen zumal sie mir nur angezeigt werden wenn ich sie als Bild integriere und mit VBA dann den entsprechenden Dateinamen passend zur ausgewählten Charge aufrufe.

Ich werd weiter suchen :-)
Gruß
Bernd

Mungo72, 22. August 2011

#17
GTRDRIVER

GTRDRIVER

Hallo

wie gesagt - ich habe Grafiken NIE in die DB gespeichert - evtl weiss jemand anderes im Forum hier besser bescheid !

CU

GTRDRIVER, 22. August 2011

#18
CRACK25

crack25

QR CODE (2D Barcode) in Bericht

Hallo,

ich bin auf der Suche nach Lösungen für QR-Codes in Access auf euren Thread gestoßen. Das ist eigentlich genau das was ich brauche. Aber irgendwie funktioniert es noch nicht richtig bei mir. Kann es evtl. daran liegen dass ich noch Access 97 benutze?

Ist vielleicht einer der Beteiligten noch hier aktiv und könnte mir einen Tip geben?

crack25, 6. Januar 2013

#19
GTRDRIVER

GTRDRIVER

Hallo

sorry - zu ACC97 kann ich dir leider nicht viel sagen ...
Die Lösung jedenfalls funktioniert noch immer wunderbar (ACC2000 - auch schon uralt...)

GTRDRIVER, 6. Januar 2013

#20
CRACK25

crack25

Normalerweise müßte das aber funktionieren. Ich denke, dass ich noch irgendwo einen Fehler drin habe. Es kommt zwar keine Meldung, aber es wird auch kein QR-Code auf meinem Bericht angezeigt. Ein Bild mit dem Namen "bild94" habe ich eingefügt.

Den Code habe ich ja so von hier übernommen.

*edit*
Ich glaube der Code wird gar nicht ausgeführt, weil wenn ich bewußt einen Fehler einbaue, kommt auch keine Fehlermeldung.

Code:

Option Explicit

Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000

Private Declare Function InternetOpen Lib "wininet.dll" Alias _
"InternetOpenA" (ByVal lpszAgent As String, ByVal dwAccessType As Long, _
ByVal lpszProxyName As String, _
ByVal lpszProxyBypass As String, _
ByVal dwFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias _
"InternetOpenUrlA" (ByVal hInternetSession As Long, _
ByVal lpszUrl As String, _
ByVal lpszHeaders As String, _
ByVal dwHeadersLength As Long, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet.dll" _
(ByVal hFile As Long, ByVal lpBuffer As String, _
ByVal dwNumberOfBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
On Error Resume Next
CopyURLToFile "http://api.qrserver.com/v1/create-qr-code/?data=es klappt" & "&amp" & "&size=250x250", _
"c:\temp\qrlogo.png"
End Sub

Sub CopyURLToFile(ByVal URL As String, ByVal FileName As String)
Dim hInternetSession As Long
Dim hUrl As Long
Dim DatNum As Integer
Dim ByteAnz As Long
Dim Buffer As String * 4096
Dim DatInhalt As String
On Error GoTo Fehler

If Len(URL) = 0 Or Len(FileName) = 0 Then
MsgBox "Fehlende URL"
Exit Sub
End If
' open an Internet session, and retrieve its handle
hInternetSession = InternetOpen("dummy", INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0)
If hInternetSession = 0 Then
MsgBox "Fehler bei InternetOpen"
Exit Sub
End If
' open the file and retrieve its handle
hUrl = InternetOpenUrl(hInternetSession, URL, vbNullString, 0, _
INTERNET_FLAG_EXISTING_CONNECT, 0)
If hUrl = 0 Then
If hInternetSession Then InternetCloseHandle hInternetSession
MsgBox "Fehler bei InternetOpenUrl"
Exit Sub
End If
' evtl vorhandene Datei löschen
On Error Resume Next
Kill FileName
On Error GoTo Fehler
' Daten sammeln
Do
InternetReadFile hUrl, Buffer, Len(Buffer), ByteAnz
If ByteAnz = 0 Then Exit Do
DatInhalt = DatInhalt & Left(Buffer, ByteAnz)
Loop
' Datei schreiben
DatNum = FreeFile
Open FileName For Output As #DatNum
Print #DatNum, DatInhalt;
Close #DatNum
Fehler:
If hUrl Then InternetCloseHandle hUrl
If hInternetSession Then InternetCloseHandle hInternetSession
If Err Then MsgBox "Fehler " & Err.Number & ":" & Err.Description
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

crack25, 6. Januar 2013

#21
CRACK25

crack25

Ok der Code wird anscheinend jetzt ausgeführt, im temp Order liegt das Bild. Allerdings wird es mir nicht auf dem Bericht angezeigt. Ich sehe nur das weiße Rechteck, dass Platzhalter ist.

crack25, 7. Januar 2013

#22
GTRDRIVER

GTRDRIVER

QR CODE (2D Barcode) in Bericht

Hi

Na dann fehlst ja nimmer weit....

Die bildanzeige i. Bericht ist ja kein Hexenwerk

GTRDRIVER, 7. Januar 2013

#23
CRACK25

crack25

Hm Access 97 kann wohl keine png Files anzeigen. Und der Format Parameter aus der Doku QR code API: command “create-qr-code” (generate QR code, QR code generator) funktioniert nicht. Ich krieg damit immer wieder nur png Dateien raus. Kannst du da irgendwie ein gif draus machen?

crack25, 7. Januar 2013

#24
DAOLIX

daolix

Hallo

ich gaub es ist egal welchen wert du für Format angibst, es kommt wohl immer ein png heraus.
Umwandeln müsstest du dann evtl mit einem externen Bildprogramm was konvertierungen per cmd-zeile zulässt (ich glaube InfraView kann das ) oder du müsstest es per VB(a) selber programmieren z.B. via API, o. GDIP...
Vorteil externen Proggies: kurzer übersichtlicher Code
Nachteil externe Progies: Lizenz, Weitergabebestimmungen, im welchen umfeld einsetzbar

daolix, 7. Januar 2013

#25
CRACK25

crack25

Der Typ mit dem Irfanview war super. Funktioniert. Vielen Dank.

crack25, 7. Januar 2013

#26
KATSCHE

Katsche

Hallo,
besteht die Möglichkeit von Euch eine Demo-DB zu erhalten? *entsetzt

Ich habe noch irgendwo einen Fehler gemacht und der QR-Code wird nicht gespeichert im Temp-Verzeichnis, selbst wenn ich einen QR-Code (als PNG) von Hand ins Tempverzeichnis abspeichere übernimmt er diesen nicht im Bericht.

Vielen Dank für die Mühe.

Katsche, 7. Januar 2013

#27
DAOLIX

daolix

QR CODE (2D Barcode) in Bericht

Hallo

ggf. hilft dir dies. Verwendete aber URLDownloadToFile statt der Internet..-Funktionen

daolix, 7. Januar 2013

#28
KATSCHE

Katsche

vielen Dank! *grins

Katsche, 7. Januar 2013

#29
KATSCHE

Katsche

Hallo zusammen,

vielen Dank für die Beispiel-DB, hat super funktioniert jedoch habe ich noch eine Rückfrage / Bitte.

Ich habe die Tabelle und den Bericht um Rechnungswert + Rechnungsdatum erweitert und möchte diese Felder auch dynamisch untereinander (per Zeilenumbruch) mit in den QR-Code haben. Meine Demo-DB siehe Anlage.

Ich habe für mich schon etwas getestet und versucht auf der QR-Homepage fündig zu werden jedoch kenne ich die Syntax nicht um den VBA-Code umzusellen, derzeit wird nur "http://Rechnungsdatum" angezeigt. Ich bitte um Hilfe um den Code umzustellen. *mrcool

Vielen Dank!

Katsche, 8. Januar 2013

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 3

Thema:

QR CODE (2D Barcode) in Bericht

Die Seite wird geladen...

QR CODE (2D Barcode) in Bericht - Similar Threads - CODE Barcode Bericht
Per Hyperlink ausgeblendetes Blatt einblenden
in Microsoft Excel Hilfe
Per Hyperlink ausgeblendetes Blatt einblenden: Hola ins Forum, ich bräuchte mal wieder eure Hilfe. Ich habe ein Tabellenblatt das mir als Register dient und wo Hyperlinks eingefügt sind um auf das dazugehörige Blatt zu springen. Diese Blätter...
Code wird nicht komplett ausgeführt
in Microsoft Excel Hilfe
Code wird nicht komplett ausgeführt: Guten Morgen in die Runde! Situation: Dieser Code wird nicht komplett ausgeführt. es wird der Teil mit der Du Until Schleife übersprungen. Wenn ich aber mit Einzelschritte durch den Code gehe...
Rabat Codes in einen Serienbrief einfügen
in Microsoft Word Hilfe
Rabat Codes in einen Serienbrief einfügen: Hi, Ich möchte bei einem Brief für meine Kunden eine Rabatcode einfügen. Diese sind zufällig erstellt und in Excel als Tabelle gespeichert. Wie bekomme ich diese nun so eingefügt das auf jedem...
Combobox einbinden
in Microsoft Excel Hilfe
Combobox einbinden: Hallo, ich bastele an einer Funktion, bei der ich an einer Stelle im Programm eine Combobox aufrufen möchte, die dann mit bestimmten Werten aus einer Tabelle gefüllt ist und dann den gewählten...
VBA Code für Zeilen ausblenden einblenden mit JA/Nein
in Microsoft Excel Hilfe
VBA Code für Zeilen ausblenden einblenden mit JA/Nein: Hallo, habe eine Exceltabelle, bei der ich bei einer Zelle eine Ja/Nein abfrage mache, wenn in der Zelle Nein steht, dann soll ein bestimmter Zeilenbereich, den ich definieren möchte, ausgeblendet...
VBA Code ohne ergebnis
in Microsoft Excel Hilfe
VBA Code ohne ergebnis: Hallo, ich habe einen VBA Code der in meiner Tabelle nicht funktioniert. Kann mir vielleicht jemand bei der Korrektur ggf. weiter helfen? Danke und Gruß Private Sub Worksheet_Change(ByVal Target...
VBA Code abändern für Barcodes
in Microsoft Excel Hilfe
VBA Code abändern für Barcodes: Hallo, der Code (aus dem Netz) erstellt mir aus einer Zelle rechts daneben einen Barcode39. Wie muss der Code abgeändert werden, wenn der Code darunter ausgegeben werden soll? Bitte um Eure...

Anmelden oder registrieren

Suche

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.

Akzeptieren Weitere Informationen...

Information ausblenden