MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  Assis em 24/6/2019, 09:41

    Bom dia Amigos

    No exemplo que anexo, ao executar o formulário "FrmInicial" automaticamente é gravado o numero do HDD do PC na tabela "Números", abrindo de seguida o formulário "Menu".

    Minha duvida é:
    Quando a tabela "Numeros" já tiver 5 (Cinco registos), não gravar o 6º (Sexto).


    Obrigado
    Anexos
    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) AttachmentAssis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 17 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6398
    Registrado : 15/03/2013

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  ahteixeira em 24/6/2019, 11:25

    Bom dia Assis,

    Não vi exemplo, estou no telemovel.
    Será fazer o Dcount ... > 5 não falta exemplos no fórum.
    Veja este por exemplo:
    https://www.maximoaccess.com/t25778-exemplo-limitar-n-de-registos-em-formulario

    Assis, atenção às Regras do Fórum, não abrir tópicos sem pesquisar primeiro.

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  Assis em 24/6/2019, 11:57

    Bom dia Teixeira
    Agradeço então que responda depois de analisar o exemplo que postei no PC.
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6398
    Registrado : 15/03/2013

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  ahteixeira em 24/6/2019, 12:17

    Olá Assis,

    Lá consegui abrir o seu exemplo via Teamviewer, se o que pretende é diretamente na tabela, desconheço.
    Não sei qual a versão que usa, mas se for 2010 ou superior a solução pode estar nas macro de dados.

    O fórum também já tem essa matéria.
    https://www.maximoaccess.com/t34525-macros-de-dados-e-nomeadas

    Abraço
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 787
    Registrado : 11/09/2013

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  formiga10x em 24/6/2019, 13:25

    Tente...
    No carregamento do form alterei...

    Código:
    If DCount("*", "Numeros") >= 5 Then
        MsgBox "Atingiu o Limite de Computadores Permitidos!", vbInformation, "Aviso"
            DoCmd.Close acForm, "FrmInicial"
        DoCmd.Quit
    Else

        Call BtnGetInfo_Click

    End If


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  Assis em 24/6/2019, 14:38

    Boa tarde Elias

    Problema resolvido, mas apareceu novo problema.

    Os primeiros 5 registos da tabela "Numeros" podem e devem ter acesso ao formulário "Menu".

    Por isso é que eu queria impedir o 6º (sexto).

    Uma ideia por favor ….

    Obrigado.


    .................................................................................
    *** Só sei que nada sei ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1080
    Registrado : 22/11/2016

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  IvanJr. em 24/6/2019, 15:05

    Evento ao carregar do formulário
    Código:
    me.AllowAdditions = DCount("*", "Numeros") < 5


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1080
    Registrado : 22/11/2016

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  IvanJr. em 24/6/2019, 16:25

    Assis, deixo exemplo sugerido pelo mestre Alvaro onde o controle é feito direto na tabela.
    Anexos
    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) AttachmentAssis_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 18 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  Assis em 24/6/2019, 23:38

    Obrigado Ivan



    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6398
    Registrado : 15/03/2013

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  ahteixeira em 25/6/2019, 00:26

    Olá a todos,

    Assis, uma vez que teve várias ajudas seria bom postar o exemplo da mensagem nº 1 com a solução adotada.
    O fórum agradece.

    Abraço a todos
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  Assis em 28/6/2019, 09:18

    Bom dia Amigos

    Teixeira eis o exemplo final, limita a cinco.
    Queria agora fazer um para limitar a 1 (Um PC para Demo) e não estou a ver onde colocar o numero limitador.

    Obrigado
    Anexos
    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) AttachmentLimitar a 5 PC.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (69 Kb) Baixado 15 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6398
    Registrado : 15/03/2013

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  ahteixeira em 28/6/2019, 11:20

    Olá a todos,

    Assis, obrigado pela partilha da solução o forum agradece.

    Quanto à dúvida o exemplo é seu e foi construído conforme as suas orientações e sugestões dos colegas.
    A decisão final foi sua de como implementou.
    Analisando verificamos que o exemplo que partilhou, seguiu a minha sugestão da mensagem nº 4, exemplificada e muito bem (Parabéns  lol! ) pelo nosso colega IvanJr na mensagem nº 8.

    Será isto que procura:
    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) 070

    Abraço a todos
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  Assis em 28/6/2019, 12:06

    Não Teixeira

    No exemplo que postei na mensagem 11, não tem nenhuma Macro.

    Aonde está definido o limitador ?

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6398
    Registrado : 15/03/2013

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  ahteixeira em 28/6/2019, 13:59

    Olá a todos

    Assis, Caso insista com afirmação da mensagem nº 13 nada digo, apenas observo! Shocked

    Se quer estudar mais sobre o assunto:
    support.office.com/pt-pt/article/criar-uma-macro-de-dados-b1b94bca-4f17-47ad-a66d-f296ef834200

    O exemplo é seu, acredito que possa passar ao lado, mas é só seguir o tópico do início até ao fim, não se limitar a copiar/descarregar e colar, mas sim explorar e compreender o que se está a fazer. Está tudo neste tópico.

    Abraço a todos
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  Assis em 28/6/2019, 14:37

    Muitíssimo obrigado Teixeira


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  Assis em 28/6/2019, 14:46

    Não …. continuo sem saber ..


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6398
    Registrado : 15/03/2013

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  ahteixeira em 28/6/2019, 21:00



    Link direto:
    cld.pt/dl/download/e5a6d4b8-1e42-4c14-92f7-cc63c75370c1/ImpedirGravarTabelaMais5.mp4

    Bons estudos com o MaximoAccess Wink
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  Assis em 29/6/2019, 10:53

    Bom dia Teixeira

    Obrigado pela longa metragem bounce


    .................................................................................
    *** Só sei que nada sei ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1080
    Registrado : 22/11/2016

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  IvanJr. em 29/6/2019, 14:48

    bounce


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6398
    Registrado : 15/03/2013

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  ahteixeira em 30/6/2019, 13:10

    cheers

    Conteúdo patrocinado

    [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos) Empty Re: [Resolvido]Impedir gravar na tabela mais de 5 (Cinco registos)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 12/12/2019, 01:15