MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

3 participantes

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

    Mimexx
    Mimexx
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mimexx 30/12/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.

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

    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
    avatar
    Pina
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Pina 30/12/2014, 22:21

    Boas
    veja se ajuda
    Pina
    Anexos
    [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS AttachmentIdade.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (335 Kb) Baixado 24 vez(es)
    Mimexx
    Mimexx
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mimexx 31/12/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 31/12/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 nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS Folder_announce_new Instruções SQL como utilizar...
    Mimexx
    Mimexx
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mimexx 31/12/2014, 14:31

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 5/1/2015, 11:33

    Obrigado pelo retorno o forum agradece.


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 5/12/2022, 18:16