wqweto / vbqrcodegen Goto Github PK

I put the code into my MS Access project. I put an unbound image on my report.
I used the following to assign a value to the code. This is on the detail section of the report.
Me![2dbarcode].PictureData = QRCodegenConvertToData(QRCodegenBarcode("'" & Me.CSLabelBC & "'"))

No image shows on my report. Can you tell me what I have done wrong?

Thank you for your efforts, this module is vary useful.
I have tried to use this function QRCodegenConvertToPicture and SavePicture trying to save a BMP file but StdPicture produce an EMF file. Any ideas? Is it possible to have a function like QRCodegenToFile and having a file output instead?

@wqweto Why are the lines of the QR codes so rounded?

Thank you for the project! 👍

Hello, the module runs perfect in .accdb access files but in .mdb files it returns error 2192 "The bitmap you specified is not in a device-independent bitmap (.dib) format."
I use the function "Image0.PictureData = QRCodegenConvertToData(QRCodegenBarcode("Sample text"), 500, 500)"
Can you help me please with this?

Thank you very much for your efforts.
I have tried to use this function QRCodegenBarcode as UDF in cell B2 but what I got is just numbers and not a barcode.
The code is working well on userform not on worksheet. Any ideas?

As mentioned, unable to scan the code with handheld E-Pos QR Code reader. iPhone works fine. QR codes generated online works fine with reader, so wonder what doesn't click.

Wonder if the code as option can be generated with text frame like attached example.

good job. thanks a lot.
Greg