MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Gerar QRCode de uma Coluna Especifica

    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 411
    Registrado : 08/10/2012

    [Resolvido]Gerar QRCode de uma Coluna Especifica Empty [Resolvido]Gerar QRCode de uma Coluna Especifica

    Mensagem  Sidney 24/5/2018, 21:14

    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

    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 794
    Registrado : 11/09/2013

    [Resolvido]Gerar QRCode de uma Coluna Especifica Empty Re: [Resolvido]Gerar QRCode de uma Coluna Especifica

    Mensagem  formiga10x 25/5/2018, 03:56

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

    [Resolvido]Gerar QRCode de uma Coluna Especifica Sem_ty10

    Dowload


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 411
    Registrado : 08/10/2012

    [Resolvido]Gerar QRCode de uma Coluna Especifica Empty Re: [Resolvido]Gerar QRCode de uma Coluna Especifica

    Mensagem  Sidney 25/5/2018, 18:04

    Ola Formiga Boa Tarde!!!

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

    att.

    Sidney
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 411
    Registrado : 08/10/2012

    [Resolvido]Gerar QRCode de uma Coluna Especifica Empty Re: [Resolvido]Gerar QRCode de uma Coluna Especifica

    Mensagem  Sidney 30/5/2018, 21:18

    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
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 411
    Registrado : 08/10/2012

    [Resolvido]Gerar QRCode de uma Coluna Especifica Empty Re: [Resolvido]Gerar QRCode de uma Coluna Especifica

    Mensagem  Sidney 3/6/2018, 23:26

    Consegui resolver,

    valeu...

      Data/hora atual: 7/3/2021, 14:17