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é 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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:
Baixe no seu celular o aplicativo QR Code Reader, via
Play Store.
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.
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:
Faça o login aqui para ter acesso ao código.
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.
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Aprenda sobre filtragens
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Programação de relatórios - Parte 1
Como carregar o seu menu sem que ele vá para lista de suplementos
Vídeo - Criando Ribbons parte 1 - Conhecendo a estrutura Xml
|
5 comentário(s) Américo 10/12/2023 07:11:09 Bom dia Como posso utilizar o Qr Code no Access 2003 DAVID ALEXANDRE RIBEIRO DA SILVA 28/10/2023 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/2023 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/2022 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/2022 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. |
