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]Analisar campos vazios ao abrir formulário.

    avatar
    Rosalvo0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 28
    Registrado : 19/03/2021

    [Resolvido]Analisar campos vazios ao abrir formulário. Empty [Resolvido]Analisar campos vazios ao abrir formulário.

    Mensagem  Rosalvo0 11.11.22 17:28

    Olá, boa tarde a todos!

    Necessito de um código para quando abrir um formulário contínuo, seja analisado onde o "campo data" [duração] esteja vazio e preencha o "campo data" [atualizar] Agora().

    Caso o campo [Duração] esteja vazio, preencher o campo [atualizar] com a data de hoje.

    Desde já agradeço a atenção de todos!
    Muito Obrigado!
    Cristian Souza
    Cristian Souza
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 12/01/2021

    [Resolvido]Analisar campos vazios ao abrir formulário. Empty Re: [Resolvido]Analisar campos vazios ao abrir formulário.

    Mensagem  Cristian Souza 17.11.22 13:10

    Olá Rosalvo.

    No evento ao abrir do seu formulário, utilize o seguinte código

    Código:


    'REALIZA A CONTAGEM DOS REGISTROS EM BRANCO

        '-- Executa a função para contar registros em branco, caso não ache nenhum, finaliza a função.
        If Nz(DCount("*", "NomeDaTabela", "IsNull ([NomeDaCampoDuração])"), 0) = 0 Then
            Exit Sub '-- para aqui e suspende a execução do código restante
        End If

        '-- Atualiza com a data de hoje todos os registros em que o campo duração estiverem em branco.
        CurrentDb.Execute "UPDATE NomeDaTabela SET [NomeCampoAtualizar] = '" & Format(Date, "mm/dd/yyyy") & "' WHERE IsNull ([NomeDaCampoDuração])"
        Form.Refresh
        Exit Sub '-- para aqui e suspende a execução do código restante

    Rosalvo0 gosta desta mensagem

    avatar
    Rosalvo0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 28
    Registrado : 19/03/2021

    [Resolvido]Analisar campos vazios ao abrir formulário. Empty Re: [Resolvido]Analisar campos vazios ao abrir formulário.

    Mensagem  Rosalvo0 17.11.22 15:14

    Certíssimo Cristian!!!
    A princípio pensei em ter que usar um laço qualquer, mas dessa forma que você orientou ficou perfeito.
    Muito obrigado meu amigo e tenha uma boa tarde!
    avatar
    Rosalvo0
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Localização : Anónimo
    Mensagens : 28
    Registrado : 19/03/2021

    [Resolvido]Analisar campos vazios ao abrir formulário. Empty Re: [Resolvido]Analisar campos vazios ao abrir formulário.

    Mensagem  Rosalvo0 17.11.22 15:23

    Resolvido!

    Conteúdo patrocinado


    [Resolvido]Analisar campos vazios ao abrir formulário. Empty Re: [Resolvido]Analisar campos vazios ao abrir formulário.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 07.11.24 11:32