bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Gerar etiquetas QrCode pelo Microsoft Access
Gerar etiquetas QrCode pelo Microsoft Access

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

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!


 

 


5 comentário(s)

Américo   10/12/2022 07:11:09

Bom dia
Como posso utilizar o Qr Code no Access 2003

DAVID ALEXANDRE RIBEIRO DA SILVA   28/10/2018 18:04:08

Olá mestre avelino,

isto realmente irá me ajudar muito mesmo, porém eu gostaria de perguntar se é possível criar qrcode com um numero variável, ou seja

Produto: XXXXX ( Fixo )
Quantidade.: 4 pcts c/10 unids ( fixo )
Lote ..: 001 ( variável )

a minha idéia é gerar etiquetas com o qrcode destas informações, porém fazendo a variação do Lote de 001 , 002, 003, 004 em diante

tem como fazer isto ?

David Silva
drsilva1976@gmail.com

MARCIO MELO - RJ   27/07/2018 06:07:07

Salve salve mestre Avelino, gostei muito desse artigo, já me ajudou com eficiência, graças a sua forma didática e profissional, consegui fazer funcionar como uma segunda leitura para crachás RFID de entrada que utilizei o próprio celular como leitor... Usei o app Barcodetopc ou RFID essa API requer internet, depois que gerou a imagem fica armazenado e pode ser usado off...

Sou mais Brasil!

Forte abraço meu amigo...

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"

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.


Envie seu comentário: