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


    [Resolvido]Numero de Notas

    avatar
    msilveir
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 13/03/2011

    [Resolvido]Numero de Notas Empty [Resolvido]Numero de Notas

    Mensagem  msilveir em 24/4/2019, 15:30

    ola Pessoal

    consegui ler o código de barra de uma nota danfe (4319 0492 6656 1100 0177 5500 1000 7006 0511 6231 4817)
    e pegar o numero numa caixa de texto exemplo [700605] esse é numero da nota

    mas eu gostaria de ler varias notas tipo 5 ou mais notas e fica-se assim no campo

    700605-700606-700607-700608 e assim por diante no mesmo campo

    usei esse codigo

    Dim NNota As String

    NNota = Me.NCodigo

    Me.txtEsquerda = Left(NNota, 28)
    Me.txtDireita = Right(NNota, 10)
    Me.txtNumeroNota = Mid(NNota, 29, 6)

    txtnumeronota é caixa de texto







    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 610
    Registrado : 11/11/2009

    [Resolvido]Numero de Notas Empty Re: [Resolvido]Numero de Notas

    Mensagem  scandinavo em 25/4/2019, 01:03

    crie uma variável para ir concatenando casa cada vez que ler um codigo
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 610
    Registrado : 11/11/2009

    [Resolvido]Numero de Notas Empty Re: [Resolvido]Numero de Notas

    Mensagem  scandinavo em 25/4/2019, 17:58

    Veja o anexo
    Anexos
    [Resolvido]Numero de Notas AttachmentNumeroNota.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (48 Kb) Baixado 12 vez(es)
    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 132
    Registrado : 28/10/2010

    [Resolvido]Numero de Notas Empty Re: [Resolvido]Numero de Notas

    Mensagem  zcarloslopes em 26/4/2019, 11:50

    Bom dia msilveir,

    Se o código de barras tem sempre o mesmo formato e número de caracteres,
    no campo NCodigo após atualizar coloque o seguinte código:
    Código:
    If IsNull(txtnumeronota) Or txtnumeronota = "" Or txtnumeronota = Empty Then
    Me.txtnumeronota = Replace(Left(Right(NCodigo, 19), 7), " ", "")
    Else
    Me.txtnumeronota = Me.txtnumeronota & "-" & Replace(Left(Right(NCodigo, 19), 7), " ", "")
    End If

    Abraço
    avatar
    msilveir
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 13/03/2011

    [Resolvido]Numero de Notas Empty Re: [Resolvido]Numero de Notas

    Mensagem  msilveir em 27/4/2019, 17:05

    ola pessoal

    as duas dicas funcionarão muito bem
    obrigado a todos

    Conteúdo patrocinado

    [Resolvido]Numero de Notas Empty Re: [Resolvido]Numero de Notas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2019, 02:17