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]Ajuda - ERRO de Null para campo TextBox - ACCESS

    Compartilhe
    avatar
    Mimexx
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 23/11/2014

    [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS

    Mensagem  Mimexx em Ter 30 Dez 2014, 22:02

    Olá Sou entusiasta na área da programação e estou a fazer uma aplicação com Access 2013 e vba.
    Meu problema é muito simples.  Tenho um campo “txt_Data_Nasc” onde será preenchido a data de nascimento e o campo “Idade”  que receberá o calculo da idade. Adicionei no evento Ao perder o foco de txt_Data_Nasc para chamar o calculo. No entanto Quando o campo da txt_Data_Nasc está vazio retorna um erro. Gostaria de Solucionar esse Problema. Obrigado.

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Essa sequencia está escrito no evento Ao perder o foco de txt_Data_Nasc
    Private Sub txt_Data_Nasc_LostFocus()
    'Chama o calculo da Idade.'
    Me.Idade = Idade_Nascimento([txt_Data_Nasc])
    End Sub

    Esse Código utilizo para calcular a idade. Autor Lúcio Rezende
    Dim Anos, Meses, Dias
           Dim iAnos As Double, iMeses As Double, Intevalo As Double
           
           intervalo = Date - txt_Data_Nasc
           
           iAnos = intervalo / 365.25
           Anos = Int(iAnos)
           iMeses = (iAnos - Anos) * 12
           Meses = Int(iMeses)
           
           Dias = DateDiff("d", DateSerial(DatePart("yyyy", txt_Data_Nasc) + Anos, DatePart("m", txt_Data_Nasc) + Meses, Day(txt_Data_Nasc)), Date)
           
               If Dias >= 30 Then
               Dias = 0
               Meses = Meses + 1
               End If
               
               If Meses >= 12 Then
               Meses = 0
               Anos = Anos + 1
               End If
               
               If intervalo = "" Then
               intervalo = IsNull(intervalo)
               End If
               
               
               Idade_Nascimento = Anos

    Pina
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 349
    Registrado : 19/02/2011

    Re: [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS

    Mensagem  Pina em Ter 30 Dez 2014, 22:21

    Boas
    veja se ajuda
    Pina
    Anexos
    Idade.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (335 Kb) Baixado 22 vez(es)
    avatar
    Mimexx
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 23/11/2014

    Re: [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS

    Mensagem  Mimexx em Qua 31 Dez 2014, 04:40

    Perfeito! Me ajudou muito. Mas meu problema continua. Pois as tabelas estão separadas da lógica, e o código parece não funcionar assim. Testei com as tabelas junto com a lógica, e funcionou perfeitamente. No entanto preciso usar o banco separado da lógica.

    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS

    Mensagem  JPaulo em Qua 31 Dez 2014, 12:08


    Private Sub txt_Data_Nasc_LostFocus()
    If IsNull(Me!txt_Data_Nasc) Then
    Exit Sub
    Else
    Me.idade = Idade_Nascimento([txt_Data_Nasc])
    End If
    End Sub



    .................................................................................
    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
    Mimexx
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 23/11/2014

    Re: [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS

    Mensagem  Mimexx em Qua 31 Dez 2014, 14:31

    Perfeito Muito Obrigado a todos  Pela atenção. Este fórum é realmente excepcional.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS

    Mensagem  JPaulo em Seg 05 Jan 2015, 11:33

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    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.]

      Data/hora atual: Seg 26 Jun 2017, 13:14