Início![[Resolvido]Contar registro Empty](https://2img.net/i/empty.gif)
Agravina 10/7/2012, 13:50Como fazer para contar registros de um subformulário?
+3
Marcelo David
Silvio
Agravina
7 participantes
[Resolvido]Contar registro
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Convidado- Convidado
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.
De uma pesquisada no Fórum sobre o DCount...
Cumprimentos.
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5089
Registrado : 20/04/2011
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")
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")
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Pessoal eu queria é contar somente os itens inseridos na venda?
Marcelo David- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3928
Registrado : 21/04/2011
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
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
.................................................................................
![[Resolvido]Contar registro Favicon-16x16](https://www.udemy.com/staticx/udemy/images/v8/favicon-16x16.png)
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo] Access e VBA - Formulário Desacoplado - [Passo a passo]![[Resolvido]Contar registro Yt_16x10](https://i.servimg.com/u/f16/19/98/66/47/yt_16x10.png)
Conheça meu canal no Youtube e se inscreva.![[Resolvido]Contar registro Marcel11](https://i.servimg.com/u/f16/19/98/66/47/marcel11.png)
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11022
Registrado : 04/11/2009
Ou ainda...
=DContar("Formulários![NomeDoFormulárioPrincipal]![NomeDoSubFormulário].Form![NomeDoCampoASerContado]";"TabelaDoSubForm")
=DContar("Formulários![NomeDoFormulárioPrincipal]![NomeDoSubFormulário].Form![NomeDoCampoASerContado]";"TabelaDoSubForm")
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido]Contar registro Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
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.
=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.
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11022
Registrado : 04/11/2009
A caixa de texto para mostrar o resultado tem de estar no formulario.
Texto15 é um campo do seu subform ?
Veja o simples;
Texto15 é um campo do seu subform ?
Veja o simples;
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Estava a colocar no subformulário por isso não dava certo!
Valeu mestre JPaulo.
Valeu mestre JPaulo.
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11022
Registrado : 04/11/2009
Obrigado pelo retorno amigão.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Jerecardoso- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 79
Registrado : 12/07/2013
Não é meu Tópico mas me ajudou Bastante Obrigado a todos ...
Arthur Herval- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 13
Registrado : 17/07/2022
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
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
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3417
Registrado : 13/12/2016
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
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
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui ![[Resolvido]Contar registro Setinf11](https://i.servimg.com/u/f50/19/64/99/05/setinf11.png)
Sistemas e Tecnologia Ltda
Arthur Herval- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 13
Registrado : 17/07/2022
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
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
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3417
Registrado : 13/12/2016
Arthur,
Por gentileza, envie uma cópia do seu bd (somente objetos envolvidos) para análise e solução.
Valeu
Att,
Alexandre Fim
Por gentileza, envie uma cópia do seu bd (somente objetos envolvidos) para análise e solução.
Valeu
Att,
Alexandre Fim
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui Sistemas e Tecnologia Ltda
Arthur Herval- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 13
Registrado : 17/07/2022
Boa tarde amigo,
Segue em anexo.
um abraço
Segue em anexo.
um abraço
- Anexos
![[Resolvido]Contar registro Attachment](https://2img.net/i/fa/attachment.png)
access.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (808 Kb) Baixado 22 vez(es)
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3417
Registrado : 13/12/2016
Olá,
Eu fiz em 1 procedimento apenas:
Faça os testes e veja se funciona
Att,
Alexandre
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
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui Sistemas e Tecnologia Ltda
Arthur Herval- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 13
Registrado : 17/07/2022
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,
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,
|
|
|