[Resolvido]Limitar quantidade de registros em um subformulário

Saudações!

tenho um subformulário vinculado a um formulário principal, ocorre que preciso limitar a quantidade de registros que podem ser inseridos no subformulário limitando a 10 registros, testei a função sbfrm.Locked = true sem sucesso.

att,
Williams.

Boas William... No repositório temos um exemplo para isto..

De uma pesquisada.


Cumprimentos.

Veja:

http://maximoaccess.forumeiros.com/t814-resolvidolimitar-qtde-de-registros-em-formularios-continuos?highlight=limitar


Cumprimentos.

Piloto

tentei com a solução dada no post porém ocorre um problema, creio que é por eu estar trabalhando com sub-formulário.  A mensagem aparece mas após eu clicar no ok, ou no Cancelar e vou inserir um novo registro o subformulário fica oculto não permitindo inserir dados para outro registro diferente do que já atingiu o limite máximo.  Ocorre também que toda vez que fecho e abro o formulário principal a mensagem de limite aparece.

Formulário: Detalhe do Estudante

Subformulário: Tutores Estendidos

Estou enviando o arquivo anexo para demonstrar melhor a situação

Williams.

Cite o que deseja que aconteca..

Cumprimentos.

Pode testar este tambem,


http://maximoaccess.forumeiros.com/t6916-resolvidolimitar-numero-de-registros-no-subform

Rapaz.. voce está aproveitando um projeto pronto da Microsoft...
Este projeto utiliza muitas macros.. Eu no meu inicio comecei neste projeto.. e lá na frente tive que modificar praticamente tudo..
As consulta não são boas.. há maneiras mais simples..
Nomes de formulários com espaços e acentos

Sinceramente você terá o dobro de trabalho aproveitando este projeto..

No entanto.. no evento no atual do form Detalhes do Estudante


Private Sub Form_Current()
Dim nCount As Integer

nCount = DCount("*", "Tutores", "Estudante = " & Me.[Student Id] & "")

If nCount >= 2 Then
    MsgBox "Não é possível inserir mais registros"
    Me.sfrmContactGuardianInfo.Locked = True
Else
    Me.ctlGuia.Pages.Item(2).Enabled = True
End If
End Sub


Pense nisso

Cumprimentos

Piloto,

Preciso que aconteça o seguinte:

1- Ao aparecer a mensagem que atingiu o limite o sistema não permita a inclusão de um novo registro no subformulário.
2 - Quando eu mudar para outro estudante e for preencher o subformulário que não contenha ainda nenhum dado o sistema permita eu inserir os dados até o limite estipulado.
3 - após fechar e abrir novamente o formulário o sistema permita a inclusão normalmente, pois, agora esta ocorrendo que ele trava o subformulário.

Utilizei o código do link que o Paulo passou e estão ocorrendo os mesmos problemas.

Private Sub Form_BeforeInsert(Cancel As Integer)
On Error GoTo Trato
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.MoveLast
If rs.RecordCount >= 25 Then
Cancel = True
MsgBox "O limite máximo de registros foi atingido."
End If
rs.Close
Set rs = Nothing
Exit Sub
Trato:
If Err.Number = 3021 Then
Exit Sub
Else
MsgBox Err.Description
End If
End Sub



att,
Williams.

Está a colocar esse codigo no BeforeInsert do subform ?

Veja o que falei acima.

Cumprimentos.