MaximoAccess

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

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
    avatar
    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 149
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4473
    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: Sab 21 Out 2017, 14:48