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]Pegar numero de Nota fiscal

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Pegar numero de Nota fiscal Empty [Resolvido]Pegar numero de Nota fiscal

    Mensagem  msilveir em Qua 03 Abr 2019, 10:51

    ola Pessoal

    tenho um numero de nota (43190492665611032290550220006911361136412174)

    preciso pegar so o numero da nota (691136)

    fiz 2 caixas de texto uma com nome txtNota pega o numero todo da nota

    e outra para txtnumero da nota mas nao sei como pegar o numero

    alguem poderia me ajudar
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Pegar numero de Nota fiscal Empty Re: [Resolvido]Pegar numero de Nota fiscal

    Mensagem  msilveir em Qua 03 Abr 2019, 14:09

    ola pessoal

    consegui com esse codigo mas esta dando erro em tempo de execução "94" uso de null invalido

    Dim valor As String
    valor = DLookup("txtNota", "tblTeste") erro nessa linha
    Me.txtEsquerda = Left(valor, 28)
    Me.txtDireita = Right(valor, 10)
    Me.txtNumeroNota = Mid(valor, 29, 6)

    tambem esta gravando so um numero de nota no txtnumeronota

    43190392665611000177550010006981121084081112 = 698112 esse é número
    43190392665611000177550010006981091084075095 = 698109
    43190392665611000177550010006981101084078109 = 698110

    mas grava para todos so esse numero 698109 para todas notas que eu leio no leitor

    alguem poderia me ajudar


    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Pegar numero de Nota fiscal Empty Re: [Resolvido]Pegar numero de Nota fiscal

    Mensagem  scandinavo em Sex 05 Abr 2019, 06:48

    valor é um nome reservado do access.


    Dim NNota As String
    NNota = Me.NCodigo
    'valor = DLookup("txtNota", "tblTeste") erro nessa linha
    'falta o criterio por isto sempre vai buscar o primeiro registro da tabela
    'NNota = DLookup("seucampoTabela", "suaTabela", "seucampoTabela='" & Me.seucampoFormulario & "'") 'para texto
    'NNota = DLookup("seucampoTabela", "suaTabela", "seucampoTabela=" & Me.seucampoFormulario & ") 'para numero

    Me.txtEsquerda = Left(NNota, 28)
    Me.txtDireita = Right(NNota, 10)
    Me.txtNumeroNota = Mid(NNota, 29, 6)
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Pegar numero de Nota fiscal Empty Re: [Resolvido]Pegar numero de Nota fiscal

    Mensagem  msilveir em Sex 05 Abr 2019, 10:35

    ola scandinavo

    funcionou certinho o seu codigo.

    muito obrigado pela sua atenção
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Pegar numero de Nota fiscal Empty Re: [Resolvido]Pegar numero de Nota fiscal

    Mensagem  scandinavo em Sex 05 Abr 2019, 13:00

    What a Face Valeu agora de o tópico como resolvido What a Face
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Pegar numero de Nota fiscal Empty Re: [Resolvido]Pegar numero de Nota fiscal

    Mensagem  msilveir em Sab 06 Abr 2019, 14:37

    valeu eu esqueci de clicar no resolvido

    obrigado

      Data/hora atual: Seg 28 Set 2020, 08:03