ACCESS - Adding image from URL to the report 1

[EwaFAMA]

thread703-1758167

Hi,
I want to use the solution from the another post (suggested by @strongm), but I propably do something wrong in this step:
2) Add an event procedure to the OnFormat event for the report section the control is on

Could you please explain me this step in details?

Thank you in advance for your help.

Ewa

 

[strongm]

Ok, so ..

Step 1. Ensure HasModule is set to true for your report (you'll find thus under the 'Other' tab when viewing the Report's property sheet in design mode)

Now simply left-click the section of the report you are interested in,and have a look at the 'Event' tab in the Property sheet. You'll find an OnClick listed there. Left-Click on that, then click '...', and select 'Code Builder" from the 'Choose Builder' dialog that appears. That'll take you VBA editor in the correct onclick event (for a detail section, for example, this will be "Detail_Click()")

 

[EwaFAMA]

strongm, thank you for your prompt reply!

However, it's still not clear for me.
Why earlier you suggested to put the code as OnFormat event and now you are talking about OnClick event?

I've tried in those two ways:
OnClick - nothing happens
OnFormat - there is an error connected with "invalid use of propety" of Image0.Picture

I have everything exactly like in your example (I have object Image0 in section Details)

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Set Image0.Picture = LoadPictureFromURL("[URL unfurl="true"]http://www.blogcdn.com/www.engadget.com/media/2012/03/nokia-n9-inception.jpg")[/URL]
End Sub

 

[strongm]

?as OnFormat event and now you are talking about OnClick

Just me not concentrating. OnFormat is the one to use.

And just to confirm - you are using an MSForms Image control, NOT the Access Image control?

 

[EwaFAMA]

Yes, it was my mistake, I used Access Image Control.
Please confirm, if MSForms Image control = ActiveX control/ Microsoft Forms 2.0 Image ?
if yes and I added it correclty to my report, I have another problem now...

Compile error: type mismatch

 

[strongm]

That would suggest that the declaration for CLSIDFromString has somehow got messed up. Since you presumably just copied and pasted it from my working example, this suggest that you might be using 64bit Access. Is this the case? Because if so you'll need to modify the API declarations ...

 

[EwaFAMA]

Yes, probably it's a problem with Access version - I use 64bit Access.
Are you able to modify the code for my needs?

I really apraciate your help till now and I am really grateful!

 

[strongm]

Try:

[COLOR=blue]Public Declare PtrSafe Function CLSIDFromString Lib "ole32.dll" (ByVal lpstrCLSID As LongPtr, ByRef lpCLSID As Any) As Long
Private Declare PtrSafe Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As LongPtr, ByVal punkCaller As LongPtr, ByVal dwReserved As LongPtr, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As LongPtr[/color]

 

[EwaFAMA]

Yes, now it works!
Thank you very much for your help!

 

[EwaFAMA]

Now I have problem with my image

I want to display QR code on the report and would like to use this address:
"

https://chart.googleapis.com/chart?chs=125x125&cht=qr&chl=EWA.jpg"

or this
"

http://chart.googleapis.com/chart?chs=125x125&cht=qr&chl=EWA.jpg"

but it doesn't work... Do you have any idea why?

 

[strongm]

>Do you have any idea why?

Sadly, yes - and I am not sure of a quick or easy workaround.

The answer is in the name of the function: OleLoadPicturePath. It expects to be using a 'path' directly to the image you want to download. But the URL you are having a problem does not do that. It is a REST API query - effectively a function call itself, indirecting the access to the image. And OleLoadPicturePath cannot handle that.

 

[EwaFAMA]

I understand and supposed that here is the problem.

So... do you have any other idea how to generate QR code in report in Access?

I have a solution in Excel which use for example this patth "

https://chart.googleapis.com/chart?chs=125x125&cht=qr&chl=EWA.jpg"

as URL.

ActiveSheet.Pictures.Insert(URL).Select

Maybe it is possible to implement such solution to Access - it means that some function in a form will generate an image with QR code and raport will take this image from the form.

Or maybe there is a smarter way to generate QR code and I am complicating it