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
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011
    • Mensagem nº1

    [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.




    • Ir para o topo
    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº2

    [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 ***
    • Ir para o topo
    Connekta Informatica
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011
    • Mensagem nº3

    [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.




    • Ir para o topo
    Marcelo David
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011
    • Mensagem nº4

    [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?


    .................................................................................
    [Resolvido]tabela Apenas com um registro Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]tabela Apenas com um registro Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]tabela Apenas com um registro Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]tabela Apenas com um registro Marcel11
    • Ir para o topo
    Connekta Informatica
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011
    • Mensagem nº5

    [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.




    • Ir para o topo
    Marcelo David
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011
    • Mensagem nº6

    [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





    .................................................................................
    [Resolvido]tabela Apenas com um registro Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]tabela Apenas com um registro Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]tabela Apenas com um registro Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]tabela Apenas com um registro Marcel11
    • Ir para o topo
    Connekta Informatica
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011
    • Mensagem nº7

    [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.




    • Ir para o topo
    Marcelo David
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011
    • Mensagem nº8

    [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.)


    .................................................................................
    [Resolvido]tabela Apenas com um registro Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]tabela Apenas com um registro Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]tabela Apenas com um registro Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]tabela Apenas com um registro Marcel11
    • Ir para o topo
    Connekta Informatica
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011
    • Mensagem nº9

    [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.




    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº10

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 22/11/2024, 05:06