MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [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 : 4213
    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 : 6818
    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 : 4213
    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 : 6818
    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 : 788
    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 : 4213
    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 ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    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  DamascenoJr. 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.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    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  DamascenoJr. 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 : 4213
    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 : 6818
    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 : 4213
    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 17 vez(es)


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6818
    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 : 4213
    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 : 6818
    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 : 4213
    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 : 4213
    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 : 6818
    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 : 4213
    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 ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    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  DamascenoJr. 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 : 6818
    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

      Data/hora atual: 8/8/2020, 12:42