[Resolvido]Contar registro

Como fazer para contar registros de um subformulário?

Grande Alexandre.... Para isso Utilize o Dcount... contando os registros da tabela cujo subform está acoplado.

De uma pesquisada no Fórum sobre o DCount...

Cumprimentos.

Bom dia para todos....

Com a permissão do Piloto ( um bom dia para ti, meu caro )

no evento ao abrir do seu subformulário.....

Me.seucampo = DCount("[Codigo]", "Tabela1")

Pessoal eu queria é contar somente os itens inseridos na venda?

Amigo, isso é simples, pois se tem um sub-formulário, logo o mesmo tem uma vinculação
com o formulário pai. Portante, use como critério o código que faz a junção entre os
formulários:

DCount("*", "Tabela", "[Codigo]=" & Me.Codigo)

Tabela = Tabela de origem do subformulário
[Codigo] = Código filho, usado para vincular ao campo pai
Me.Codigo = Código pai do vículo, do formulário pai

Ou ainda...

=DContar("Formulários![NomeDoFormulárioPrincipal]![NomeDoSubFormulário].Form![NomeDoCampoASerContado]";"TabelaDoSubForm")

estou tentando assim
=DContar("Forms![f_vendas]![f_c_tbl_itens].Form![texto15]";"c_tbl_itens")
form principal f_vendas
subform f_c_tbl_itens
campo a ser calculado texto15
subformulário, acoplado a uma consulta c_tbl_itens
mas só da erro.

A caixa de texto para mostrar o resultado tem de estar no formulario.

Texto15 é um campo do seu subform ?

Veja o simples;

Estava a colocar no subformulário por isso não dava certo!
Valeu mestre JPaulo.

Obrigado pelo retorno amigão.

Não é meu Tópico mas me ajudou Bastante Obrigado a todos ...

Fala pessoal, tudo bem?

Estou com o problema parecido tentei os códigos que vocês informara mas parece que nã odeu certo.

Pois preciso realizar a contagem do subformulário mas no cálculo DCOUNT ele não aceita, somente da tabela, então como vou conseguir contar o critério que está no SUB ?

EX:

Tenho um prestador que realizou 10 exames, porém por erro do ASO eu só vou poder pagar 5 que se chama GLOSA.

então eu fiz assim: =DContar(" * ";"subdba";"[ENCAMINHADO PARA:] = 'GLOSA'").

Podem me ajudar?

Um abraço

Olá Arthur,

Vc tem que fazer a contagem de registro usando a origem dos dados do formulário, seja ela uma consulta ou tabela.

Ex:

=DContar(" * ";"Nome_da_Consulta_ou_Tabela_que_Carrega_o Subformulario";"[ENCAMINHADO PARA:] = 'GLOSA'")

é isso

Att,

Fim

Boa noite amigo,

Eu coloquei a tabela que carrega o sub, porém, ele não filtra, ele conta TUDO.

O que estou fazendo, Tenho um subformulário "SUBESPELHO" onde é carregado os dados que vem da tabela "basededados", e estou criando este Dcount no rodapé para depois referenciá-lo no formulário "espelho".

só não estou conseguindo entender como faço agora para fazer este filtro que não seja pela tabela, mas que seja pelo subformulário, pois lá está o filtro.

Um abraço

Arthur,
Por gentileza, envie uma cópia do seu bd (somente objetos envolvidos) para análise e solução.

Valeu

Att,
Alexandre Fim

Boa tarde amigo,

Segue em anexo.

um abraço

Olá,

Eu fiz em 1 procedimento apenas:

Código:



Private Sub privadopostalespelho()
Dim privadopostalespelho As String
    If Me.GPOPCOESespelho = 2 Then
    privadopostalespelho = "SELECT * FROM basededados WHERE FUNCIONARIO LIKE '*" & Me.TXTPESQespelho & "*' ORDER BY FUNCIONARIO"
End If
If Me.GPOPCOESespelho = 3 Then
    If Nz(Me.TXTPESQespelho) <> "" Then privadopostalespelho = "PRESTADOR LIKE '*" & Me.TXTPESQespelho & "*'" & " ORDER BY FUNCIONARIO"
    If Nz(Me.TXTDATAPGTOespelho) <> "" Then privadopostalespelho = "PRESTADOR LIKE '*" & Me.TXTPESQespelho & "*'" & "AND [DATA PREVISTA DE PGTO] LIKE '*" & Me.TXTDATAPGTOespelho & "*'" & " ORDER BY FUNCIONARIO"
    If Nz(Me.RESPONSAVELespelho) <> "" Then privadopostalespelho = "PRESTADOR LIKE '*" & Me.TXTPESQespelho & "*'" & "AND [DATA PREVISTA DE PGTO] LIKE '*" & Me.TXTDATAPGTOespelho & "*'" & "AND [RESPONSAVEL PELO FATURAMENTO] LIKE '*" & Me.RESPONSAVELespelho & "*'" & " ORDER BY FUNCIONARIO"
    privadopostalespelho = "SELECT * FROM basededados" & IIf(privadopostalespelho <> "", " WHERE " & privadopostalespelho, "")
End If
    If Me.GPOPCOESespelho = 4 Then
    privadopostalespelho = "SELECT * FROM basededados WHERE [Nº DO RELATORIO] LIKE '*" & Me.TXTPESQespelho & "*' ORDER BY FUNCIONARIO"
End If
If Me.GPOPCOESespelho = 5 Then
    privadopostalespelho = "SELECT * FROM basededados WHERE [NUMERO NF] LIKE '*" & Me.TXTPESQespelho & "*' ORDER BY FUNCIONARIO"
End If
    Me.SUBESPELHO.Form.RecordSource = privadopostalespelho
   
    '-- Alexandre Fim
    Me.txtGlosa = Nz(DCount("*", "basededados", "PRESTADOR LIKE '*" & Me.TXTPESQespelho & "*' AND [ENCAMINHADO PARA:] = 'GLOSA'"), 0)
   
End Sub



Faça os testes e veja se funciona

Att,

Alexandre

Bom dia alexandre,

Deixaeu ver se entendi

'-- Alexandre Fim
Me.txtGlosa = Nz(DCount("*", "basededados", "PRESTADOR LIKE '*" & Me.TXTPESQespelho & "*' AND [ENCAMINHADO PARA:] = 'GLOSA'"), 0)

Nesta contagem você está puxando do prestador somente o que está escrito como GLOSA, certo?

Se for, não seria somente isto, mas que conforme tinha informado no exemplo anterior, eu precisaria da cotnagem do que foi e do que não foi glosa.

terão 3 caixas de texto, onde terão as contagens do total de atendimento, do que foi glosado e do que foi liberado(será pago).

Caso não tenha ficado claro no que descrevo eu possa ver uma forma de ser mais claro.

Att,