... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$145,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Gerar etiquetas QrCode pelo Microsoft Access

Podemos gerar etiquetas QrCode pela WEB e baixar para o nosso aplicativo.  Vamos utilizar o seguinte endereço para gerar a etiqueta:

http://api.qrserver.com/v1/create-qr-code/?size=180x180&data=Texto

Basta substituir a palavra Texto pelo conteúdo desejado. Digite o nome de seu time de futebol e você terá como resultado, a etiqueta abaixo:

Usando Access - Etiqueta QrCode


Baixe no seu celular o aplicativo QR Code Reader,  via Play Store

Usando Access - Play Store QrCode Reader

 

Depois de instalado, rode o aplicativo e faça a leitura da Etiqueta gerada com o seu time de futebol.

Agora vamos lançar na etiqueta duas informações:

Batata Doce 1kg
Valor: R$5.60

Copie a linha abaixo e carregue no seu navegador:

http://api.qrserver.com/v1/create-qr-code/?size=180x180&data=Batata%20Doce%201kg%0D%0AValor:5.60

Confira o conteúdo da etiqueta gerada com o Qr Code Reader de seu Celular.

Usando Access - Qr Code

 

Baixe o arquivo e faça o teste:

Clique aqui e baixe o arquivo exemplo.

No exemplo oferecido é gerado a etiqueta em uma estrutura Vcard que irá permitir transferir as informações para a lista de contatos de seu celular.  Saiba mais sobre Vcard aqui

Veja o código principal aplicado e atente para os comentários:

Option Compare Database
Const BASE_URL As String ="http://api.qrserver.com.../?size=180x180&data=Texto"
 
Private Sub fncGerarQR()
On Error GoTo TrataErro
Dim Url As String
Dim strVcard$
Dim nomeDoc$
'---------------------------------
'verifica se a Internet está ativa
'---------------------------------
If InternetGetConnectedState(strResultado, 0) = 0 Then
   MsgBox "Sem internet para poder gerar a etiqueta...", vbInformation, "Aviso"
   Exit Sub
End If
'------------------------
'Monta a estrutura Vcard
'------------------------
strVcard = "BEGIN:VCARD" & vbCrLf
strVcard = strVcard & "VERSION:2.1" & vbCrLf
strVcard = strVcard & "N;LANGUAGE=pt-br:" & vbCrLf
strVcard = strVcard & "FN:" & Me!NomeContato & vbCrLf
strVcard = strVcard & "TEL;WORK;VOICE:" & Me!TelefoneFixo & ";" 
strVcard = strVcard & Me!TelemovelEmpresa & ";" & Me!Telemovel & vbCrLf
strVcard = strVcard & "ADR;WORK;PREF:" & Me!Endereço & ", " & Me!Cidade & ", " 
strVcard = strVcard &  Me!País & ";;" & Me!CódigoPostal & vbCrLf
strVcard = strVcard & "EMAIL;PREF;INTERNET:" & Me!EmailPessoal & vbCrLf
strVcard = strVcard & "End: VCARD"

Url = BASE_URL
'-------------------------------------------------------------
'Substitui a palavra Texto pelo conteúdo da variável strVcard
'--------------------------------------------------------------
Url = Replace(Url, "Texto", URLEncode(strVcard))
'-----------------------------------------------------------------
'Gera o nome exclusivo para a imagem, que será gerada e armazenada
'na pasta imagens
'-----------------------------------------------------------------
Me!NomeImagem = "qr-" & IdContato & ".png"
'----------------------------------------------------------------
'Gera a etiqueta e baixa da página WEB para a pasta local imagens
'----------------------------------------------------------------
fncDownloadFile Url, CurrentProject.Path & "\imagem\" & Me!NomeImagem
'----------------------------------------------------------
'Carrega a etiqueta salva no quadro de imagem do formulário
'----------------------------------------------------------
Me!Imagem.Picture = CurrentProject.Path & "\imagem\" & Me!NomeImagem

Sair:
   Exit Sub
TrataErro:
   MsgBox err.Number & " - " & err.Description
   Resume Sair
End Sub

Abra o formulário frmContatos e clique no botão Gerar QR e observe o quadro de imagem recebendo a etiqueta gerada.  Pegue o seu Celular e faça a leitura da etiqueta direto no formulário.

Usando Access - Qr Code


Bom estudo!


 

 


2 comentário(s)

Paulo Soares   08/02/2017 08:13:50

Excelente! Não estou precisando, mas achei tão boa a possibilidade que vou pensar onde vou implementar. Muito bom!!
Obs: para não receber o erro 2220, é preciso criar a subpasta "imagens" na pasta onde salvar o arquivo exemplo.

Edson Rodrigues   02/08/2017 20:54:41

Ola Mestre Avelino

to fazendo uso desse codigo para gerar um qr code, muito legal, só estou com um problema nessa parte que monta o qrCode, não tem nem um campo chamdo pagina URL, e eu não consegui fazer o que parecia ser o mais simples, descobrir o codigo da url, ai tem o ADR que é localização, tem TEL que é telefone, tem EMAIL, agora o que abre pagina não tem e eu nao consegui descobri, tentei URL, HOMEPAGE, e nada, é que quando eu fizer a leitura de uma url é para aparecer a opção no aplicativo open url

strVcard = "BEGIN:VCARD" & vbCrLf
strVcard = strVcard & "VERSION:2.1" & vbCrLf
strVcard = strVcard & "N;LANGUAGE=pt-br:" & vbCrLf
strVcard = strVcard & "FN:" & Me!NomeContato & vbCrLf
strVcard = strVcard & "TEL;WORK;VOICE:" & Me!TelefoneFixo & ";"
strVcard = strVcard & Me!TelemovelEmpresa & ";" & Me!Telemovel & vbCrLf
strVcard = strVcard & "ADR;WORK;PREF:" & Me!Endereço & ", " & Me!Cidade & ", "
strVcard = strVcard & Me!País & ";;" & Me!CódigoPostal & vbCrLf
strVcard = strVcard & "EMAIL;PREF;INTERNET:" & Me!EmailPessoal & vbCrLf
strVcard = strVcard & "End: VCARD"


Envie seu comentário: