[Resolvido]Limitar qtde de registros em formulários contínuos

Galera tem como limitar a quantidade de registros em formulários contínuos?
Se possível gostaria de que quando atingisse a qtde de 10 itens (ou linhas)não fosse possível adicionar mais registros obrigando o usuário a abrir outra solicitação.
access 2k.

Tem algum código específico para cada solicitação? Por exemplo um número único que identifique cada solicitação.

Olá Junior;

Cole isto no VBA do seu Sub formulário;


Private Sub Form_Current()
'By JPaulo ® Maximo Access
Dim R As Object
Set R = Me.Recordset
Cancel = (R.RecordCount >= 10)
If Cancel Then
MsgBox "Não é possível gravar: quantidade de registros atingiu o limite.", vbCritical, "Aviso"
Me.AllowAdditions = False
Else
Me.AllowAdditions = True
Exit Sub
End If
End Sub

JPaulo, fiz de acordo com o 1º exemplo e ele realmente limita quando chega no 10º registro (até ai blz), porém, quando vou fazer outra solicitação o formulário contínuo simplesmente some (pelo que entendi por conta da limitação) pois se voltar p/ o registro anterior ele mostra novamente.
Criquio eu utilizo o codigo do produto p/ relacionar o form de solicitação com o formcontínuo (que nada mais é doque a consulta aos produtos na tabela).

Como faço p/ enviar uma cópia do bd p/ vocês analisarem?
Quem sabe vcs entenderão o quê da questão.

Podes postar no www.esnips.com ou www.speedyshare.com

Segue o link http://www.speedyshare.com/files/24236872/Almoxarifado_Forms_Fe_-_C_pia.rar

Então galera, o nome do form é frmSolNotaFiscal.
Se alguém tiver como dar uma luz de como resolver....

Desde já agradeço.

teste;

http://www.speedyshare.com/files/24253521/Almoxarifado_Forms_Fe_-_C_pia_II.rar

Então JPaulo, boa noite, a questão é que o subformulário limita quando chega aos 10 registros (funciona blz), porém, quando tento criar uma outra solicitação simplesmente o subformulário some???

Some ? como assim ?

Numa nova ele fica apenas com uma linha nova para se dar inicio a uma nova solicitaçao.

Não faz algum sentido você fazer uma nova solicitação e ficar com os dados de uma outra solicitação, ae para que serviria o subformulario ?

Private Sub Form_Current() 'By JPaulo Maximo Access Dim R As Object Set R = Me.Recordset Cancel = (R.RecordCount >= 10) If Cancel Then MsgBox "Não é possível gravar: quantidade de registros atingiu o limite.", vbCritical, "Aviso" Me.AllowAdditions = False Else Me.AllowAdditions = True Exit Sub End If End Sub escreveu:

pra nao abrir outro tópico e desenterrar esse...

eu queria saber se com este código, ali onde coloco o >=10, posso colocar o campo que está no formulário principal para que ele limita a quantidade q eu digitar no campo... e qual código eu poderia usar para referenciar este campo no subformulario

por exemplo...

tem um formulario para abrir uma turma nova com um subformulario para adicionar os alunos nesta turma, quero limitar o número de alunos nesta turma, pra isso tenho um campo chamado "número de vagas", quero q limite o número de vagas que eu digitar neste campo, não colocar a limitação no código