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]Variável = caixa de texto com valor nulo (erro)

    Compartilhe
    avatar
    Tobiasfranca
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 08/05/2013

    [Resolvido]Variável = caixa de texto com valor nulo (erro)

    Mensagem  Tobiasfranca em Qua 02 Jul 2014, 15:21

    Mais uma vez estou aqui precisando da ajuda de vocês, dessa vez o problema é o seguinte: estou desenvolvendo um sistema que emite RPA (recibo de pagamento de autônomo), tenho um formulário que contém algumas caixas de texto com uma fórmulas que somam os dados de campos de um subformulário, até ai tudo bem, nesse formulário também tenho um botão vinculado a um código que calcula o valor do IRRF, no inicio do código declarei as variáveis que irei utilizar e logo abaixo coloquei o vinculo das variáveis com as caixas de texto, exemplo:

    Private Sub bt_irrf_Click()

    Dim v_acumulado As Currency
    Dim v_atual As Currency
    Dim v_inss As Currency
    Dim v_subtotal As Currency
    Dim v_irrfdesc As Currency
    Dim v_dep As Integer
    Dim v_irrf As Currency
    Dim v_terceiros As Currency

    'Extração de dados so formulário para iniciar o calculo
    v_atual = Me.txt_valor
    v_inss = Me.txt_inss
    v_dep = Me.txt_dep
    v_irrfdesc = Me.txt_acumirrf
    v_terceiros = Me.txt_sestsenat
    (continuação do código...)

    quando clico no botão para rodar o código, ocorre um erro devido a algumas caixas de texto estarem com valor null e por esse motivo o código não continua sua execução. o que devo fazer?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Variável = caixa de texto com valor nulo (erro)

    Mensagem  ahteixeira em Qua 02 Jul 2014, 16:17

    Ola,

    Antes efetuares a atribuição podes verificar se é nulo e fazer o tratamento do erro

    poderá ser

    Código:

    If IsNull(Me.txt_valor) then
       v_atual = 0
    else
       v_atual = Me.txt_valor
    endif

    No entanto verifica os comentários seguintes


    Última edição por ahteixeira em Qua 02 Jul 2014, 22:40, editado 1 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9268
    Registrado : 04/11/2009

    Re: [Resolvido]Variável = caixa de texto com valor nulo (erro)

    Mensagem  JPaulo em Qua 02 Jul 2014, 20:36

    As boas práticas da programação ditam o uso da função interna Nz para tratamento de nulos.

    Nz (SuaCaixaTexto. Value), 0



    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 976
    Registrado : 05/02/2010

    Variável=caixa de texto com valor nulo(erro)

    Mensagem  good guy em Qua 02 Jul 2014, 21:17

    Está corretíssimo nosso nobre moderador João Paulo.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Variável = caixa de texto com valor nulo (erro)

    Mensagem  ahteixeira em Qua 02 Jul 2014, 22:38

    Obrigado colegas.
    Não tenho utilizado essa função nos meus projetos.
    Estamos sempre aprender.
    avatar
    Tobiasfranca
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 08/05/2013

    Re: [Resolvido]Variável = caixa de texto com valor nulo (erro)

    Mensagem  Tobiasfranca em Sex 11 Jul 2014, 11:51

    Consegui resolver esse problema, apesar da minha fórmula para calcular o IRRF não ter funcionado, agradeço a ajuda.

      Data/hora atual: Ter 27 Jun 2017, 21:40