[Resolvido]Limitar numero de registros no Subform!

Olá pessoal, muito bom dia!

Tenho um formulário com um subformulário, eu queria que cada formulário novo que eu gerasse, seria limitado 25 registros no sub form! Ele ficaria tipo uma planilha do excel com apenas 25 linhas para a digitação.
Isso seria possível? Segue o bd anexado!

Bom dia Norberto!

Risos,,,, ainda bem que temos você aqui no forum, com capacidade, entendimento, humildade e disposição para ajudar.
Funcionou perfeitamente, um abraço!

Bom dia a todos...

Com permissão Noberto, testei ele aqui no próprio exemplo do Lupércio ( bom dia você também Lupércio ) e fiz uma alteração.

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 *****coloquei o sinal de =, pois estava passando para 26
Cancel = True
MsgBox "O limite máximo de registros foi atingido."
End If
rs.Close
Set rs = Nothing
Exit Sub
Trato:
MsgBox Err.Description
End Sub

bom dia Silvio
É o seguinte é porque no meu caso vou trabalhar com 25 registros, começando da 00:00 horas até as 24:00 horas ai funcionou perfeito.

Companheiros:
É o seguinte quando, abro um form novo e vou digitar o primeiro horário no form,,, aparece uma mensagem "Nenhum registro atual" está aparecendo agora depois que inseri o código acima, tem como eliminar essa mensagem?

Norberto boa noite á você e todos do forum!

Mudei a linha que você sugeriu ai apareceu um erro "3021"

Ai eu exclui aquela linha,
veja o código e funcionou ele broqueia após os 25 registros e quando é um form novo não aparece mais a mensagem.

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:
End Sub


Funcionou será que pode deixar assim sem o Mgbox final!

O código funcionou mas cada vez que abro um form novo, quando digito o primeiro registro que é a 00:00 horas ele da uma mensagem, " Nenhum registro atual". Ai eu clica em ok, e digitava normalmente, só que eu não queria aquela mensagem, o Norberto sugeriu para trocar a linha do código.

Mude esta linha:

MsgBox Err.Description
Para:
MsgBox Err.Number

Para verificar o n° do erro, e então vamos tratá-lo.
Ai identifiquei o erro 3021.

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:
MsgBox Err.Number deletei essa linha ai funcionou
End Sub
A pergunta é será possível tratar o erro “3021” ou pode usar o código coma a exclusão da linha?

Vou dar o tópico por encerrado.

Porem se conseguir tratar o erro "3021" me retorne por favor, agradeço desejo uma boa noite a todos, e muito agradecido.

Heeeee Norberto matou a pau, 100% funcional, (risos) você é o cara, obrigado meu amigo!

Olá Senhores, boa noite.

Apesar do tópico já ter sido resolvido, se me permitem gostaria de dar um pitaco também.

Após muitas experiências cheguei à conclusão de que a melhor forma seria no evento Após Atualizar inserir o seguinte:

Private Sub Form_AfterInsert()
On Error GoTo Trato
 Dim rs As DAO.Recordset
 Set rs = Me.RecordsetClone
 rs.MoveLast
   If rs.RecordCount >= 25 Then
   MsgBox "O limite de 25 registros foi atingido.    " & Chr(13) & "Inicie um novo registro por favor.   ", vbInformation, "  Atenção !!!"
   DoCmd.SetWarnings False
   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
   DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
   DoCmd.GoToRecord , "", acFirst
   DoCmd.CancelEvent
   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

Notem que a "coisa" flui com maior naturalidade além de não precisar clicar várias vezes no comando OK da caixa de mensagem.

Abraços, WSenna

Caros!

E se o usuário quiser inserir um valor diferente a cada dia, tipo, hoje serão 10 registros.
No dia seguinte forem 7 registros.

Pergunto isso pois quero fazer uma agenda diária, onde o medico determinará um numero de atendimentos e a partir disso tratará somente o numero de agendamentos para aquele dia.

Boas....
Crie uma caixa de texto desacoplada onde vai ser inserido o numero de atendimentos diários feito pelo médico.

Então mude a linha abaixo:
...
...
If rs.RecordCount >= me!Caixadetextocriada Then
...
...
...