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]tabela Apenas com um registro

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1072
    Registrado : 01/07/2011

    [Resolvido]tabela Apenas com um registro Empty tabela Apenas com um registro

    Mensagem  Connekta Informatica 20/6/2012, 19:28

    Boa tarde

    Tenho uma tabela conta que cadastra a empresa que vai usar o sistema. Mais o limite de registro é apenas um, ou seja, depois que cadastrar um registro não é permitido cadastrar outro.

    O que eu quero que cada empresa que for usar o sistema tenha direito de apenas um registro.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4557
    Registrado : 06/11/2009

    [Resolvido]tabela Apenas com um registro Empty Re: [Resolvido]tabela Apenas com um registro

    Mensagem  Assis 20/6/2012, 19:41

    http://maximoaccess.forumeiros.com/t8186-resolvidolimitar-o-numero-de-registro-de-uma-tabela


    .................................................................................
    *** Só sei que nada sei ***
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1072
    Registrado : 01/07/2011

    [Resolvido]tabela Apenas com um registro Empty Re: [Resolvido]tabela Apenas com um registro

    Mensagem  Connekta Informatica 20/6/2012, 19:54

    Eu usei esse código:

    If DCount("*", "NomeDaTabela") > 0 Then
    Me.AllowAdditions = False
    Else
    Me.AllowAdditions = True
    End If


    E aparece a seguinte mensagem:
    [Resolvido]tabela Apenas com um registro Imagem1

    Não tem como tirar essa mensagem? E colocar outra?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3490
    Registrado : 21/04/2011

    [Resolvido]tabela Apenas com um registro Empty Re: [Resolvido]tabela Apenas com um registro

    Mensagem  Marcelo David 20/6/2012, 20:22

    Essa mensagem aparece em qual situação?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]tabela Apenas com um registro Marcel11
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1072
    Registrado : 01/07/2011

    [Resolvido]tabela Apenas com um registro Empty Re: [Resolvido]tabela Apenas com um registro

    Mensagem  Connekta Informatica 20/6/2012, 21:03

    Na hora que eu vou gerar um novo registro.

    Tem como aparecer a seguinte mensagem:" O usuário atual não tem permissão para adicionar uma nova conta."


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3490
    Registrado : 21/04/2011

    [Resolvido]tabela Apenas com um registro Empty Re: [Resolvido]tabela Apenas com um registro

    Mensagem  Marcelo David 20/6/2012, 21:30

    Na instrução que você pôs acima, caso exista mais
    de zero registros, foi definido para não aceitar
    adições. Imagino que você queira que apenas um registro
    seja incluído. Dessa forma eu criaria uma sub simples assim:
    Código:
    Private Sub ContaRegistros
    If DCount("*", "NomeDaTabela") >=1 Then
        Me.AllowAdditions = False
    Else
        Me.AllowAdditions = True
    End If

      MsgBox "Limite de contas já atingido para o usuário atual", vbinformation, "Avido"

    End Sub

    E chamaria a sub ao carregar do formulário ou ao precionar o botão de adição:

    Código:
    Call ContaRegistros





    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]tabela Apenas com um registro Marcel11
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1072
    Registrado : 01/07/2011

    [Resolvido]tabela Apenas com um registro Empty Re: [Resolvido]tabela Apenas com um registro

    Mensagem  Connekta Informatica 21/6/2012, 20:17

    Obrigado , valeu a todos pela ajuda.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3490
    Registrado : 21/04/2011

    [Resolvido]tabela Apenas com um registro Empty Re: [Resolvido]tabela Apenas com um registro

    Mensagem  Marcelo David 21/6/2012, 20:47

    Gratos pelo retorno, só esqueceu de especificar
    qual mensagem lhe trouxe a solução. (Isso é importante
    para outro usuário que tenha a mesma necessidade que você,
    saber qual das dicas lhe será mais apropriada.)


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]tabela Apenas com um registro Marcel11
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1072
    Registrado : 01/07/2011

    [Resolvido]tabela Apenas com um registro Empty Re: [Resolvido]tabela Apenas com um registro

    Mensagem  Connekta Informatica 21/6/2012, 21:36

    O que resolveu meu problema foi o seguinte:
    Código:

    Private Sub ContaRegistrosIf DCount("*", "NomeDaTabela") >=1 Then   
    Me.AllowAdditions = FalseElse   
    Me.AllowAdditions = TrueEnd If 
    MsgBox "Limite de contas já atingido para o usuário atual", vbinformation, "Avido"End Sub

    Código:

    Call ContaRegistros

    Muito obrigado Marcelo David pela solução.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.





      Data/hora atual: 25/1/2022, 17:06