[Resolvido]Pedido de Ajuda pra abrir direto no Microsoft WebBrowser

Oi  a todos
preciso da ajuda de voces, ao gerar um qr code no office 2016 eu queria que ele aparecesse no web browser direto, mas abre primeiro essa caixa de mensagem



o código que estou usando é esse

Código:

If Len(PlainText(Me.txtResultPix)) > 282 Then Exit Sub
twebqrc = "https://chart.googleapis.com/chart?chs=250x250&cht=qr&chl=" & txtResultPix
Me.WB2.Navigate twebqrc
Me.frmQRCODEPIXBarra.Visible = True

ja no office 2010 abre direto no web browser sem essa caixa de mensagem

alguem pode me ajudar

no aguardo

Bom dia amigo!

Coloque o seu banco aqui apenas com os objetos envolvidos para que fique mais fácil achar uma possível solução.

O que dá pra diposnibilizar é o que está na mensagem 1
è só voce ler a com calma bastante atenção que voce vai entender,
é simples tudo que voce precisa está na mensagem

Tá certo meu amigo...

Mas antes de saber se está funcionando é necessário testar para não enviar uma resposta ou solução equivocada. Não postando o banco você leva a quem se disponibiliza a te ajudar a criar um inventario do seu banco o que aumenta o trabalho ao buscar a solução. Mas se não é possível, compreendo.


Mesmo assim... Creio que está enfretando esse problema por uma configuração no seu navegador padrão. Altere a configuração para que não seja necessário a interação do usuário para peguntar onde salvar o arquivo.

Não amigos não é essa a questão que não está funcionando talvez eu me expressei mau, o oproblema é o seguinte

NO Office 2010 a imagem qr code está abrindo normalmente como tem que sr,
mas quando roda o no officce 2016 ea imagem não abre direto no browser navigator ele abre essa caixa de mensagem pdando a opçõ pra abrir a imagem em visualisador de igam padão ou salvar imagem e a intenção é de aprenas abrir a imagem dentro controle sem aparecerecer a caixa de mensagem, deu pra entender agora colegas?

Olá a todos,

Roberto Alves, o que o colega Adriano Nascimento pediu faz sentido.
Pois se está com problemas e necessita ajuda fica mais fácil ter a base de dados com a parte envolvida na questão para se poder verificar, testar e ajudar.
Evitando o membro que pretende ajudar a perder tempo a recriar o que já está feito (mesmo que esteja a dar erro).

No entanto, não falta exemplos, já tentou a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Veja este que eu próprio partilhei em 2016:
https://www.maximoaccess.com/t26904-webbrowser-controle-navegador



Abraço a todos

Veja a mensagem nº 4

Amigo adriano poderia me dizer como eu faria essa configuração?
pois o navegador a ser usado pra essa finalidade é o web browser do Acccess
estu a olhar os exepmlos do Alvario também

Qual o navegador padrão de acesso a internet que vc utiliza no seu computador?

O Chrome

Abre as configurações e depois vai em Downloads, depois que clicar vai ver essa opção: Perguntar onde salvar cada arquivo antes de fazer download, destiva a chave que tem a frente dessa opção e testa o seu código.

Não amigo não resolve, a imagem vai abrir dentro do objeto Web Browser dentro do formulário igual na mensagem nº 1, não vai ser usado o Navegador padrão que uso na internet entendeu não tem nada a haver com o navegador que eu uso

Curioso...

Pra mim deu certo aqui...

Mas vou tentar aqui uma modificação no teu código.

Te agradeço a boa vontade em ajudar,
te aguardando

Tenta o código desta forma:

Código:


If Len(PlainText(Me.txtResultPix)) > 282 Then Exit Sub
twebqrc = "https://chart.googleapis.com/chart?chs=250x250&cht=qr&chl=" & txtResultPix

Dim img As MSOffice.IPicture
Set img = CreateObject("WIA.ImageFile")
img.LoadFile twebqrc

Dim tempFileName As String
tempFileName = Environ$("temp") & "\qr-code.png"

img.SaveFile tempFileName

Me.WB2.Navigate tempFileName
Me.frmQRCODEPIXBarra.Visible = True



Estou usando biblioteca Windows Imaging Acquisition (WIA) para carregar a imagem gerada pelo QR Code em um objeto de imagem e salvá-la em um arquivo temporário no sistema. Em seguida, ele abre o arquivo temporário no navegador, o que deve evitar a exibição da caixa de diálogo. Mas só vou saber se deu certo depois de você testar no seu Banco.

não deu certo
vale lembrasque testei o exemplo da mensagem 6 que o alvaro disponibilizou e também aparece a caixa de mansagem
estou usando o windows11 e o Access 2016

no exemplo do alváro use o exemplo com o windows 11 e o officce 2016 informando a seguinte url: https://i.servimg.com/u/f86/20/15/00/32/tela_a12.png
que voce verá o que eu estou querendo transmitir

Olá a todos,

Adriano, acabei de testar numa máquina W11 com Access 2021 e apresenta corretamente.
Ficamos então a saber que o problema não está no código mas sim numa configuração da máquina.
Tente verificar diretamente no browser se aparece.

Vamos continuar a explorar.

Abraço a todos

Alvaro eu me enganei acima tente ocolocar pr abrir no seu exemplo

Código:

https://chart.googleapis.com/chart?chs=250x250&cht=qr&chl=" & txtResultPix

usando o windows 11 e o office 2016 veja se não vai aparecer conforme a ultima imagem que anexei na mensagem 16

Se você postasse o banco amigo, consegueríamos verificar se o problema está em alguma configuração na sua máquina. Estamos de olhos vendados aqui. Como o Álvaro já disse, ele testou o código que eu enviei nas versões que você especificou e está funcionando.

Amigão pode tomar por base o banco que o  o amigo alvaro postou aqui, o meu pra desmembrar ele está muito complicado, use o banco que ele postou tentando abrir esse link:

Código:

https://chart.googleapis.com/chart?chs=250x250&cht=qr&chl=

mas faça isso usando o access 2016 e o windowss 11
o banco do alvaro está em anexo, é a mesma caixa de  mensagem, que postei na mensagem numero1  que aparece no meu  aparece no dele também pode se basear no dele amigo

Olá a todos,

Roberto,
Em primeiro gostaria de esclarecer que não são permitidos links externos, pode colocar da forma que ajustei na mensagem nº 18 e 20.
Aproveito para informar que a url da mensagem 20 dá erro (pode testar diretamente no seu webbrowser).
A url da mensagem nº 18 não dá erro e apresenta a imagem, no entanto lembro que não estamos a passar o "parametro" que tem no seu código na variável txtResultPix , mas não faz diferença par ao erro que você relata neste tópico.

Apenas uma sugestão, não tem outro PC com W11 e Office 2016 para testar?

Abraço

Alvaro amigo, se eu usei este link da api do google

Código:

https://chart.googleapis.com/chart?chs=250x250&cht=qr&chl=" & txtResultPix

me perdoe não foi a intenção infrigir as regras, eu já fiz de tudo e não obtive exito com essa questão, já testei em outras máquina com windows 11 e officce 2016 e apararece a mesma caixa de mensagem que citei na mensagem 1
usei este link no seu exemplo e também abre a caixa de mensagem então que o o problema não está em meus offices ou windows, pois no seu exemplo aparece a mesma coisa que quero resolver em relação a esse tópico.

então fico no aguardo de tentar resolver de alguma forma desde que eu não infriga as normas que ao referenciar ao objeto tenho que mencionar o link da Api do google

2 perguntas:
1- tem que gerar imagem? Eu crio os códigos de barras de outra maneira e funciona perfeitamente
2-tem que abrir no browser? Não pode ser relatório ou mesmo no formulário?

Resposta 1 Sim tem que gerar imagem
Resposta 2 sim tem que ser no browser
Tem de ser como está no projeto


O projeto está funcioando direito
O único problema é o que consta na mensagem número 1

Olá a todos,

Roberto, para mencionar a url, efetue como sendo código, ficando da forma que está na mensagem nr. 22, desta forma não desrespeita as regras.
Relativamente ao problema em questão, só mesmos você ir despistando, pois não temos forma de testar, só você mesmo:

Na minha opinião, tente o seguinte:
1) Testar noutro computador
2) Verificar se onde está a funcionar é 32 ou 64 bits e onde não funciona qual a versão.
3) Desinstalar e voltar a instalar Office
4) Verificar se tem atualizações
5) Verificar Segurança ( Configurar a pasta como zona confiável, Macros, etc)

Boa sorte

Abraço

Alvaro
onde funciona sem a caixa de mensagem é no windows 10 de 32bits e office 2010 de 32 bits
quero que funcione conforme está na mensagem 1 no Windows 11 e Officce 2016 ambos de 64bits
Ok obrigado

resolvido