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]verificar se tem conteudo na tabela

    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]verificar se tem conteudo na tabela Empty [Resolvido]verificar se tem conteudo na tabela

    Mensagem  ifahidalgo 30/7/2014, 20:39

    tenho um formulario onde ao clicar no botão salvar, eu adiciono registros em 6 tabelas diferentes, meu problema é o seguinte.

    Preciso que quando eu abrir o formulario, seja checado as 6 tabelas, e se tiver registro nas 6 tabelas, preciso que os botões adicionar sejam desabilitados.

    estava tentando esse codigo mas não acontecia nada.

    If Not IsNull(DLookup("codigo", "Tbaprovacao1")) Then
     If Not IsNull(DLookup("codigo", "Tbaprovacao2")) Then
       If Not IsNull(DLookup("codigo", "Tbaprovacao3")) Then
         If Not IsNull(DLookup("codigo", "Tbaprovacao4")) Then
           If Not IsNull(DLookup("codigo", "Tbaprovacao5")) Then
             If Not IsNull(DLookup("codigo", "Tbaprovacao6")) Then
                 cmdeditar.Enabled = True
                 cmdsalvar.Enabled = True
             End If
            End If
          End If
        End If
     End If
    End If
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]verificar se tem conteudo na tabela Empty Re: [Resolvido]verificar se tem conteudo na tabela

    Mensagem  Alexandre Neves 30/7/2014, 20:57

    Boa tarde,
    E não tem condição de procura nas tabelas?
    Sem condição, desde que tenha um registo e no campo codigo não seja nulo, o código não é executado.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]verificar se tem conteudo na tabela Empty Re: [Resolvido]verificar se tem conteudo na tabela

    Mensagem  ifahidalgo 30/7/2014, 23:29

    o objetivo é o seguinte, ao abrir o formulario, verificar se essas tabelas não estão vazias, caso positivo desabilita os botões novo e salvar.

    fiz com somente um IF e uma tabela e deu certo, acho que estou escrevendo o codigo errado.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]verificar se tem conteudo na tabela Empty Re: [Resolvido]verificar se tem conteudo na tabela

    Mensagem  Avelino Sampaio 30/7/2014, 23:41

    Olá!

    Experimente:

    Dim k%
    If DCount("codigo", "Tbaprovacao1"))=0 Then k = k+1
    If DCount("codigo", "Tbaprovacao2"))=0 Then k = k+1
    If DCount("codigo", "Tbaprovacao3"))=0 Then k = k+1
    If DCount("codigo", "Tbaprovacao4"))=0 Then k = k+1
    If DCount("codigo", "Tbaprovacao5"))=0 Then k = k+1
    If DCount("codigo", "Tbaprovacao6"))=0 Then k = k+1

    me!cmdeditar.Enabled = (k=6)
    me!cmdsalvar.Enabled = (k=6)


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    ifahidalgo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 13/10/2011

    [Resolvido]verificar se tem conteudo na tabela Empty Re: [Resolvido]verificar se tem conteudo na tabela

    Mensagem  ifahidalgo 31/7/2014, 14:07

    perfeito

    Conteúdo patrocinado


    [Resolvido]verificar se tem conteudo na tabela Empty Re: [Resolvido]verificar se tem conteudo na tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/4/2024, 00:34