MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Dúvida sobre tópico "Qr Code (Código de Barras 2D)"

    Compartilhe

    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 138
    Registrado : 24/02/2013

    Dúvida sobre tópico "Qr Code (Código de Barras 2D)"

    Mensagem  brunogor em Ter 05 Jul 2016, 21:21

    Viva a todos, espero não estar a infringir alguma regra do forum.

    Queria colocar uma questão referente ao exemplo que se encontra neste tópico:
    [Você precisa estar registrado e conectado para ver este link.]

    Para que serve a seguinte sub que lá se encontra e não está a ser utilizada?
    Código:
    Sub ReadQrCode()
    Dim dlg As FileDialog
    Set dlg = Application.FileDialog(msoFileDialogOpen)
    dlg.Show
    FileName = dlg.SelectedItems(1)

    StrokeScribe1.Alphabet = DATAMATRIX  'or 'QRCODE  or PDF417 or DATAMATRIX
    Open FileName For Input As #1  'opens the file selected by user
    text = Input$(LOF(1), 1)
    StrokeScribe4.text = text
    Close #1
    End Sub

    Obrigado.

    Bruno Gordino

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: Dúvida sobre tópico "Qr Code (Código de Barras 2D)"

    Mensagem  ahteixeira em Ter 05 Jul 2016, 21:26

    Olá Bruno, não está a quebrar regra nenhuma.
    Pelo contrário, está a cumprir perfeitamente as Regras do Forum.
    Bem haja, parabéns!
    Que sirva de exemplo para os colegas menos atentos.
    What a Face
    Abraço

      Data/hora atual: Dom 04 Dez 2016, 14:12