[Resolvido]Contar registos em subformulário após filtro

Boas.
Tenho um subformulário dentro de um formulário que mostra todos os registos existentes. Neste subformulário posso aplicar filtros directamente nos cabeçalhos. Eu queria criar uma caixa de texto que mostrasse o n.º de registos que o subformulário está a exibir após aplicar um filtro.
Tal como existe numa lista ([lstexemplo].[ListCount]), existe algo parecido para o subformulário?

Cumprimentos,
Burita

Ola;

Veja o simples;

1º Insira uma caixa de texto no Rodapé do subform.

2º No evento VBA do Atual no subform;

Código:

Private Sub Form_Current()
With Me
    !SuaCaixaTextoNoSubform = .RecordsetClone.RecordCount
End With
End Sub

3º Insira uma caixa de texto no formulário;

Na origem dessa caixa de texto;

=[Forms]![SeuFormulário]![SeuSubFormulário].[Form]![SuaCaixaTextoNoSubform]

E voilá...

Boas.
JPaulo é isto mesmo. Quem sabe, sabe.
Obrigado pela ajuda.

Nota: Este procedimento tem algum limite para contar os registos? É que a minha tabela tem cerca de 950 registos e na caixa de texto só aparecem 501 (sem filtros aplicados, claro).

Cumprimentos,
Burita

Não tem qualquer limite, provavelmente os 501 são mesmo os que aparecem no subform.

Obrigado pelo retorno o forum agradece.

Boas JPaulo,
coloco só um exemplo para se puder ver, agradecia. Não estou a conseguir perceber o que estou a fazer mal.

Obrigado.


http://www.filedropper.com/teste_2

Ola;

Isso acontece porque o subform leva algum tempo a ser preenchido.
Se reparar o 911 demora a aparecer na barra de Status, onde diz Registo: 1 de 911

Para resolver isso vamos fazer o simples;

No seu form de exemplo "Registos" no evento VBA ao Carregar;

Código:

Private Sub Form_Load()
    Me.Texto33.ControlSource = ""
    Me.Texto33.Value = DCount("*", "Registos")
End Sub

No seu SubForm vai acrecentar uma nova linha de código logo no inicio, que somente será ativada quando filtrar direto;

Código:

Private Sub Form_Current()
Forms!Registos.Form!Texto33.ControlSource = "=[Forms]![Registos]![Registos subformulário].[Form]![txtnumregistos]"
    With Me
        !txtnumregistos = .RecordsetClone.RecordCount
    End With
End Sub

Teste e retorne.

Boas.
JPaulo com esse código agora não mostra nada na caixa de texto, nem antes nem depois de aplicar o filtro.


http://www.filedropper.com/teste2

No subform a caixa de texto "txtnumregistos" não pode ter nada na origem e tem lá, delete o que tem lá escrito e vai ver que funfa.


http://dl.dropboxusercontent.com/u/771097/Teste_OLD_II.zip

Olá.
JPaulo já testei e funciona. Já mostra todos os registos.
Também mostra correctamente os registos ao aplicar o filtro. No entanto, ao retirar o filtro, a caixa de texto volta a mostrar somente 501 registos. Se clicar-mos, por exemplo, na 2º linha onde tem todos os registos, no subforum, a caixa de texto volta a mostrar o valor certo.

Delete este primeiro trecho de código no form

Código:

Private Sub Form_Load()
    Me.Texto33.ControlSource = ""
    Me.Texto33.Value = DCount("*", "Registos")
End Sub

Substitua o código do subform para este;

Código:

If Me.FilterOn = False Then
    Forms!Registos.Form!Texto33.ControlSource = ""
    Forms!Registos.Form!Texto33 = Nz(DCount("*", "Registos"), 0)

    Else
    With Me
    !txtnumregistos = .RecordsetClone.RecordCount
        Forms!Registos.Form!Texto33.ControlSource = "=[Forms]![Registos]![Registos subformulário].[Form]![txtnumregistos]"
End With
End If

JPaulo.... perfeito!
Muito obrigado.

Cumprimentos

Obrigado pelo retorno o forum agradece.