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

Assis em 24/6/2019, 09:41

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4270
Registrado : 06/11/2009

Mensagem nº1

[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

Assis.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** em 24/6/2019, 11:25

ahteixeira

ahteixeira: Moderador Global; Sexo :
Localização :
Mensagens : 6978
Registrado : 15/03/2013

Mensagem nº2

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 em 24/6/2019, 11:57

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4270
Registrado : 06/11/2009

Mensagem nº3

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** em 24/6/2019, 12:17

ahteixeira

ahteixeira: Moderador Global; Sexo :
Localização :
Mensagens : 6978
Registrado : 15/03/2013

Mensagem nº4

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 em 24/6/2019, 13:25

formiga10x

formiga10x: Super Avançado; Sexo :
Localização :
Mensagens : 793
Registrado : 11/09/2013

Mensagem nº5

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 em 24/6/2019, 14:38

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4270
Registrado : 06/11/2009

Mensagem nº6

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.** em 24/6/2019, 15:05

DamascenoJr.

DamascenoJr.: Moderador; Sexo :
Localização :
Mensagens : 2515
Registrado : 22/11/2016

Mensagem nº7

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.** em 24/6/2019, 16:25

DamascenoJr.

DamascenoJr.: Moderador; Sexo :
Localização :
Mensagens : 2515
Registrado : 22/11/2016

Mensagem nº8

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

Assis_rev.zip: Você não tem permissão para fazer download dos arquivos anexados.; (36 Kb) Baixado 19 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 em 24/6/2019, 23:38

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4270
Registrado : 06/11/2009

Mensagem nº9

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** em 25/6/2019, 00:26

ahteixeira

ahteixeira: Moderador Global; Sexo :
Localização :
Mensagens : 6978
Registrado : 15/03/2013

Mensagem nº10

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 em 28/6/2019, 09:18

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4270
Registrado : 06/11/2009

Mensagem nº11

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

Limitar 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** em 28/6/2019, 11:20

ahteixeira

ahteixeira: Moderador Global; Sexo :
Localização :
Mensagens : 6978
Registrado : 15/03/2013

Mensagem nº12

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 em 28/6/2019, 12:06

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4270
Registrado : 06/11/2009

Mensagem nº13

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** em 28/6/2019, 13:59

ahteixeira

ahteixeira: Moderador Global; Sexo :
Localização :
Mensagens : 6978
Registrado : 15/03/2013

Mensagem nº14

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 em 28/6/2019, 14:37

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4270
Registrado : 06/11/2009

Mensagem nº15

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 em 28/6/2019, 14:46

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4270
Registrado : 06/11/2009

Mensagem nº16

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** em 28/6/2019, 21:00

ahteixeira

ahteixeira: Moderador Global; Sexo :
Localização :
Mensagens : 6978
Registrado : 15/03/2013

Mensagem nº17

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 em 29/6/2019, 10:53

Assis

Assis: Maximo VIP; Sexo :
Localização :
Mensagens : 4270
Registrado : 06/11/2009

Mensagem nº18

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.** em 29/6/2019, 14:48

DamascenoJr.

DamascenoJr.: Moderador; Sexo :
Localização :
Mensagens : 2515
Registrado : 22/11/2016

Mensagem nº19

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

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

.................................................................................
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** em 30/6/2019, 13:10

ahteixeira

ahteixeira: Moderador Global; Sexo :
Localização :
Mensagens : 6978
Registrado : 15/03/2013

Mensagem nº20

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

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

Pesquisar

Resultados por: Mensagens Tópicos
Busca avançada