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


2 participantes

    [Resolvido]Uso de "null" inválido

    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 07/06/2017

    [Resolvido]Uso de "null" inválido Empty [Resolvido]Uso de "null" inválido

    Mensagem  AbymaelSousa 4/6/2022, 07:22

    Boa noite.
    Gostaria da ajuda de vocês.
    Tenho um formulário fFamilia da Tabela Família e com chave primária "dcod_familiar_fam" número.
    Dentro desse formulário fFamilia, tenho um subformulário subComposicaoFamiliar com chave primária "pnum_nis_pessoa_atual" número
    Adicionei um botão no subComposicaoFamiliar para abrir um outro formulário que será registrado a um atendimento e gerará uma chave primária "rcod_recepcao" com o seguinte código:
    Código:
    Private Sub btnRecep_Click()

    DoCmd.OpenForm "fRegistro_Recepcao", , , , acFormAdd
    'Verifica o próximo número livre e acrescenta como código da recepcao
    Forms!fRegistro_Recepcao!rcod_recepcao = Nz(DMax("[rcod_recepcao]", "t_Recepcao"), 0) + 1

    'Insere o codigo da familia no formulario fRegistro_Recepcao
    Forms!fRegistro_Recepcao!rcod_familiar_fam = Me.pcod_familiar_fam

    'Insiro o código do membro da familia no formulario fRegistro_Recepcao
    Forms!fRegistro_Recepcao!rnum_nis_pessoa_atual = Me.pnum_nis_pessoa_atual

    End Sub

    Ao abrir o formulário com o código da recepção gerado corretamente, juntamente com o rcod_familiar_fam e rnum_nis_pessoa_atual, o formulário me apresenta erro Uso de "null" inválido. Tenho um botão para excluir o registro, só que não funciona assim que dou OK no erro. Se eu clicar em uma caixa de seleção no formulário fRegistro_Recepcao após pressionar o Ok do Erro Null, o Access me permite clicar no botão de excluir o registro e ele executar corretamente.

    segue o link para baixar o BD

    Ao abrir o BD, executar o formulário fFamilia, clicar na guia compfam e terá um botão chamado "Rec"para registrar um atendimento.
    Alguma luz pra me ajudar? Desde já agradeço.
    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 07/06/2017

    [Resolvido]Uso de "null" inválido Empty Re: [Resolvido]Uso de "null" inválido

    Mensagem  AbymaelSousa 5/6/2022, 17:35

    Up
    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 07/06/2017

    [Resolvido]Uso de "null" inválido Empty Re: [Resolvido]Uso de "null" inválido

    Mensagem  AbymaelSousa 7/6/2022, 20:02

    Alguém poderia me ajudar?
    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 07/06/2017

    [Resolvido]Uso de "null" inválido Empty Re: [Resolvido]Uso de "null" inválido

    Mensagem  AbymaelSousa 10/6/2022, 19:07

    up
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Uso de "null" inválido Empty Re: [Resolvido]Uso de "null" inválido

    Mensagem  Alexandre Fim 10/6/2022, 19:47

    Olá Abymael,

    Por gentileza, compartilhe uma cópia do seu bd, somente objetos (forms/tabelas/consultas e etc) envolvidos no problema, para análise e solução.

    Att,
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Uso de "null" inválido Setinf11
    Sistemas e Tecnologia Ltda
    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 07/06/2017

    [Resolvido]Uso de "null" inválido Empty Re: [Resolvido]Uso de "null" inválido

    Mensagem  AbymaelSousa 13/6/2022, 21:31

    Eu havia mandado link pelo Google Drive, mas sumiu do post inicial.
    Segue em anexo o BD.
    Ao clicar no Formulário fFamilia, abrirá um controle de guias. Na aba da guia que se chama compfam, aparecerá membros da família correspondente ao Código Familiar (dcod_familiar_fam) e um botão btnRecep.
    Assim que apertar o btnRecep, ele abre um formulário chamado fRegistro_Recepcao. Quando o formulário abre, aparece o erro Null inválido. Já revisei e não localizo o erro de jeito nenhum, estou desesperado.
    Anexos
    [Resolvido]Uso de "null" inválido AttachmentTesteSISCRAS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (230 Kb) Baixado 7 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Uso de "null" inválido Empty Re: [Resolvido]Uso de "null" inválido

    Mensagem  Alexandre Fim 14/6/2022, 03:03

    Ola,

    Na rotina abaixo, o parametro destacado em vermelho está incorreto

    ''Evita o erro de data não preenchida
    If IsNull(Data_Nasc) Then
    CalculaIdade = ""
    Exit Function
    End If


    Substitua por:

    ''Evita o erro de data não preenchida
    If IsNull(DataNasc) Then
    CalculaIdade = ""
    Exit Function
    End If


    É isso

    Att,
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Uso de "null" inválido Setinf11
    Sistemas e Tecnologia Ltda

    AbymaelSousa gosta desta mensagem

    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 07/06/2017

    [Resolvido]Uso de "null" inválido Empty Re: [Resolvido]Uso de "null" inválido

    Mensagem  AbymaelSousa 14/6/2022, 06:49

    Alexandre, o problema era esse mesmo. Muito obrigado e desculpa minha falta de atenção. Eu achei que o erro estava de alguma forma relacionada à chave primária e não conseguia resolver. Mais uma vez obrigado a você e a este fórum.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Uso de "null" inválido Empty Re: [Resolvido]Uso de "null" inválido

    Mensagem  Alexandre Fim 14/6/2022, 13:01

    Valeu Abymael,

    Boa sorte e sucesso nos teus projetos.
    O fórum agradece.
    Abs


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Uso de "null" inválido Setinf11
    Sistemas e Tecnologia Ltda

    AbymaelSousa gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Uso de "null" inválido Empty Re: [Resolvido]Uso de "null" inválido

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 09:28