MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Mimexx
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    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 : 345
    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 21 vez(es)

    Mimexx
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    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.


    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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



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

    Mimexx
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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.


    .................................................................................
    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: Sab 03 Dez 2016, 19:43