[Resolvido]Caixa de mensagem de aviso.

Olá Feras de plantão, boa tarde.

Amigos, como faço para exibir uma caixa de mensagem que indique ao usuário que ele já cadastrou 50 ou múltiplos de 50 processos por Setor?

Atualmente utilizo o código abaixo no evento Após atualizar do registro:

If DCount("DtEvento", "tblCadProc", "Setor='" & (Me.Setor) & "'") = 50 Then
MsgBox "Atenção: Você acaba de incluir 50 processos para o Setor " & Me.Setor & ", " & Chr(13) & "assim é recomendado que você imprima de imediato a Etiqueta " & Chr(13) & "e a Listagem deste Setor. ", vbInformation, " InfoBasic Smart System"
Else: End If

O problema é que esse código fica restrito aos 50 primeiros registros e o que pretendo é que essa mensagem seja exibida aos 50, 100, 150 e assim por diante.

Abraços, WSenna

Caros Amigos, resolvi a questão com uma consulta a qual denominei de Consulta 76 como a que disponibilizo abaixo:

SELECT tblCadProc.Setor, Count(tblCadProc.Setor) AS Subtotal
FROM tblCadProc
GROUP BY tblCadProc.Setor
HAVING (((Count(tblCadProc.Setor))=50 Or (Count(tblCadProc.Setor))=100 Or (Count(tblCadProc.Setor))=150 Or (Count(tblCadProc.Setor))=200 Or (Count(tblCadProc.Setor))=250 Or (Count(tblCadProc.Setor))=300 Or (Count(tblCadProc.Setor))=350 Or (Count(tblCadProc.Setor))=400 Or (Count(tblCadProc.Setor))=450 Or (Count(tblCadProc.Setor))=500))
ORDER BY Count(tblCadProc.Setor) DESC;

No evento Após Atualizar do registro inseri o código:

Private Sub Form_AfterUpdate()
If DCount("*", "Consulta76", "Setor='" & (Me.Setor) & "'") = 1 Then
MsgBox "Atenção: Você acaba de incluir 50 processos para o Setor " & Me.Setor & ", " & Chr(13) & "assim é recomendado que você imprima de imediato a Etiqueta " & Chr(13) & "e a Listagem deste Setor. ", vbInformation, " InfoBasic Smart System"
Else: End If
End Sub

Assim quando qualquer um dos Setores atingirem a quantidade de 50 ou múltiplos de 50 registros será exebida uma caixa de mensagem sugerindo ao usuário que o mesmo deve imprimir a etiqueta e a listagem referente ao referente Setor.

Abraços, WSenna

Olá Wsenna, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Grande abraço Amigo.