[Resolvido]Gerar QRCode de uma Coluna Especifica

Pessoal Boa Tarde!!!

Pessoal eu tenho uma coluna chamada "CodigoChamada", e preciso gerar os QR's Codes de todos os registros existente nesta coluna de uma só vez, alguém já viu algum projeto parecido com isso neste fórum que possa indicar?

att;

Sidney

Boa noite.
Fiz um form semelhante a alguns anos atrás para um sistema, tente adequar ao teu.



Dowload

Ola Formiga Boa Tarde!!!

vou dar uma olhada, e te dou um retorno
valeu parceiro,

att.

Sidney

Formiga,

Boa Tarde!!!

Então verifiquei o seu projeto mas não consegui adaptar ao meu, meu nível de programação ainda é baixo, eu já tenho um projeto, mas ele só gera uma QRcode por vez, e gostaria de fazer as adaptações nele, veja abaixo,

eu tenho um formulário chamado "frm_Code" nele tenho um campo onde coloco o numero e um botao para gerar o qrcode, neste botão estão os comando abaixo:

Código:

Private Sub btQRCode_Click()

'função para gerar o arquivo QRCODE

If IsNull(Cod_Chamado) Or Cod_Chamado = "" Then

    MsgBox "Por favor, preencha o campo em branco.", vbExclamation, "Aviso"
    
End If

    modQrCode.gerarQrCode Cod_Chamado & ".png", Cod_Chamado

End Sub


também tem um módulo quer faz parte, veja abaixo;

Código:


Function gerarQrCode(argNomeArquivoSaida, argDados)
Dim varExeGerador
'===============================================================================
'qrencode version 3.3.1
'Copyright (C) 2006-2012 Kentaro Fukuchi
'Usage: qrencode [OPTION]... [STRING]
'Encode input data in a QR Code and save as a PNG or EPS image.
  
'  -o FILENAME  write image to FILENAME. If '-' is specified, the result
'               will be output to standard output. If -S is given, structured
'               symbols are written to FILENAME-01.png, FILENAME-02.png, ...
'               (suffix is removed from FILENAME, if specified)
'  -l {LMQH}    specify error correction level from L (lowest) to H (highest).
'               (default=L)
'  -v NUMBER    specify the version of the symbol. (default=auto)
'  -m NUMBER    specify the width of the margins. (default=4 (2 for Micro))
'  -d NUMBER    specify the DPI of the generated PNG. (default=72)
'  -S           make structured symbols. Version must be specified.
'  [STRING]     input data. If it is not specified, data will be taken from
'               standard input.
'================================================================================
'local onde esta o qrCode.exe
varExeGerador = CurrentProject.Path & "\qrCode.exe"
'congigurando local de saida do arquivo png e os parametros basicos
varExeGerador = varExeGerador & " -o """ & CurrentProject.Path & "\" & argNomeArquivoSaida & """ """ & argDados & """"


'executa o aplicativo qrCode.exe para gerar o QR Code
Shell varExeGerador, vbHide
End Function

O programa que gera o qrcode se chama qrcode.exe, que esta na mesma pasta do programa access.
A idéia é aproveitar este código para fazer a incrementação, para gerar vários QRCode de um campo de uma tabela para uma pasta especifica, e se puder já anexar automaticamente as imagens aos referido id da tabela. Mas não consegui fazer isso.

se puder dar um help ficarei muito grato.

atrt; Sidney

Consegui resolver,

valeu...