[Resolvido]Contar Palavras - Não consigo resolver

Bom dia Amigos

Como faço para contar palavras de uma determinada tabela e exibi a contagem num formulario.
No formulario tenho um caixa de texto, e nesta caixa exibi o total da contagem de palavra da tabela.
Abraços.

Você quer o total de palavras de todos os registros ou o total de registros da tabela?

Eu tenho uma tabela Esporte.
Onde o campo "tipo" consta: Natação, volei e basquete.
Eu quero contar total de natação, volei e basquete.Eu quero contar o total de cada tipo na tabela, e exibi no formulario cada um numa cx de texto.
Abraços

A dica que eu lhe passei aqui não surtiu efeito?

Desculpas

Funcionou sim. Sendo que ele ta somando todos os meses.
COmo faço para filtra essas contagens e soma por mes.
Eu tenho uma combobox para solicitar o mês.
Obrigada.

Tente assim:

=DSum("CampoDoValor";"Tabela";"Esporte='" & "volei" & "' And Mês='" & Me.NomeDaCombo & "'")

O caso acima é para o caso do mês estar como texto: Janeiro, Fevereiro, etc. Se estiver como número no formato, 1, 2, 3, etc. Retire as aspas simples do critério do mês na combo:

=DSum("CampoDoValor";"Tabela";"Esporte='" & "volei" & "' And Mês=" & Me.NomeDaCombo & "")

Se estiver formatado como data, ficaria assim:

=DSum("CampoDoValor";"Tabela";"Esporte='" & "volei" & "' And Mês=#" & Me.NomeDaCombo & "#")

Esta dando erro (#Nome?) depois q eu coloquei o mes.

Esqueci que está colocando direto na fonte do controle e não via vba. Tente assim:

=DSum("CampoDoValor";"Tabela";"Esporte='" & "volei" & "' And Mês=#" & [NomeDaCombo] & "#")

ou, se a combo tiver mais de uma coluna, passe a coluna correta da combo:

=DSum("CampoDoValor";"Tabela";"Esporte='" & "volei" & "' And Mês=#" & [NomeDaCombo].Column(0) & "#")

mude o 0 para a coluna correta, caso necessário.

Agora esta dando (#Erro)
Veja como eu coloquei:
=DContar("TIPO";"ESPORTE";"TIPO='" & "VOLEI" & "' E REFERENCIA=#" & [Combinação9] & "#")
Só tem uma coluna.

Você tentou as outras dicas que passei junto com essa?

Sim tentei, mas não foi.
Na combobox eu não coloquei nada, será q esta faltando alguma coisa na combobox q ativa essa soma na caixa de texto.

Você precisa selecionar alguma coisa na combo. Pode tentar tambem colocar assim no evento "Após atualizar" dessa combo:

Me.NomeDoCampo = DCount("*", "ESPORTE", "TIPO='" & "VOLEI" & "' And REFERENCIA=" & Me.Combinação9.Value)

ou assim:

Me.NomeDoCampo = DCount("*", "ESPORTE", "TIPO='" & "VOLEI" & "' And REFERENCIA='" & Me.Combinação9.Value & "'")

Não vai funcionar pq se eu colocar o "volei", vai exibi o mesmo valor nas outras caixa de texto que são outros esportes.
Teria que ser algo, q ao selecionar o mes, as caixas de texto exibi suas respectivas somas e quantidades.
Obrigada.

Não vai porque em cada caixa de texto você irá colocar um esporte diferente como critério. A única coisa comum será o mês escolhido na combo.

Senhor Lau, faça um croqui dos dados da sua tabela, para gente poder lhe ajudar de forma efetiva, se não fica aqui agente tentando adivinhar o nome dos campos, formato, tipo dos dados e por ai vai.... ou nos ofereça um BD exemplo que será mais rapido obter a ajuda necessária.

TIPO | referencia |

Basquete | ???????? |

Tipo > string
Referencia > String, número ou data ???????

Mostre os valores que fica mais fácil...

A combo é uma lista de valores?
O campo onde guarda o mes na tabela é tipo data ou texto contendo o nome do mes?

Se campo na tabela for do tipo data, crie uma consulta baseada na tabela e crie um campo não acoplado com a seguinte instrução:
Mes: Format(SeuCampoData;"mmmm")
Em sua combo transforme-a em uma lista de valores com os meses em texto

Na contagem...
=DSum("CampoDoValor";"Tabela";"Esporte='" & "volei" & "' And Mes=" & Me.NomeCombo.text & ")

caso o caso não seja este


Nas dicas fornecidas pelos colegas experimente ao fazer referencia a combo aplicar Me.NomedaCombo.text

Cmprimentos

Amigos

Não estou conseguindo enviar o arquivo do BD Esporte, que eu estou tentando fazer, com as contagens e somas dos tipos de esporte.
Se voces puderem me ajudar vou ficar muito grata.

Abraços

Puts, cadê a informação do campo referencia, minha jovem ????? Assim fica difícil nos ficarmos aqui adivinhando....

Se desejar, mande(zipado) para o meu email. Não precisa mandar o banco inteiro, se não quiser. basta enviar uma copia com a tabela e com o formulário envolvido.

avelino(arroba)usandoaccess(ponto)com(ponto)br

Avelino

Mandei para o seu email, o BD, o fomulario com as somas, é controle pgto.

Abraços muito obrigada.

Ja te devolvi. Se der certo, agente posta aqui como foi resolvido

Avelino

Desculpas, mas não funcionou eu ate olhei o código, mas aparece os números zerado.

Segue modificações.

Baixar arquivo

Bom estudo

Avelino

Não sei o que esta acontecendo, continua, aparecendo tudo, zerado, já alterei o mes, sai entrei de novo e nada.
Desculpas mais uma vezes, por esta insistindo, em tentar resolver isso.

Abraços.

Alguem pode baixar o exemplo e verificar se sai de fato tudo zerado, como ela está se referindo.

Grato

Exemplo funcionando a 100 por cento. Deve ter alguma coisa errada com o Access do amigo. Talvez por isso não tenha conseguido assimilar nenhuma das dicas.

Por um acaso vc desabilitou a macro de segurança do seu Access? Pois se não desabilitar, nenhum código funciona.

Veja aqui este artigo sobre Macro de Segurança.

Obrigado Valdino

Muito Obrigado a todos!

Consegui resolver.

Abraços

Resolvido

O Fórum agradece o Retorno.. Bom trabalho.

Eu apliquei em outro banco de dados, esse codigo e deu erros (3075). Nesse outro banco tem mais informações, mas a logica é a mesma.
Eu enviei o arquivo com BD para o Avelino e o Harysohn.
Alguem pode me ajudar?
Obrigada

Para melhor esclarecimento (soma e contagem)
Segue o codigo que eu apliquei e está dando o erro 3075. Sá aparece valores na primeira coluna de quantidade mas os seus valores totais, não esta filtrando por mes. E as outras colunas não está somando e nem contando.


Private Sub Combinação0_AfterUpdate()
Dim filtro As String
filtro = IIf(IsNull(Combinação0), "referencia like '*'", "referencia='" & Me!Combinação0 & "'")
Me!Texto2 = DCount("*", "FRB GERAL", "OPERADORA='AMIL DENTAL' AND " & filtro)
Me!Texto4 = DCount("*", "FRB GERAL", "OPERADORA='DIX DENTAL' AND " & filtro)
Me!Texto8 = DCount("*", "FRB GERAL", "OPERADORA='ODONTOPREV' AND " & filtro)
Me!Texto10 = DCount("*", "FRB GERAL", "OPERADORA='UNIMED RIO - FRB' AND " & filtro)
Me!Texto12 = DCount("*", "FRB GERAL", "OPERADORA='UNIMED RIO' AND " & filtro)
Me!Texto14 = DCount("*", "FRB GERAL", "OPERADORA='VIDAS EMERGENCIAS MÉDICAS' AND " & filtro)
Me!Texto16 = DCount("*", "FRB GERAL", "OPERADORA='DIX SAUDE' AND " & filtro)
Me!Texto18 = DCount("*", "FRB GERAL", "OPERADORA='ITALICA' AND " & filtro)

Me!Texto23 = DSum("VALOR BOLETO", "FRB GERAL", "OPERADORA='AMIL DENTAL' AND " & filtro)
Me!Texto25 = DSum("VALOR BOLETO", "FRB GERAL", "OPERADORA='DIX DENTAL' AND " & filtro)
Me!Texto27 = DSum("VALOR BOLETO", "FRB GERAL", "OPERADORA='ODONTOPREV' AND " & filtro)
Me!Texto29 = DSum("VALOR BOLETO", "FRB GERAL", "OPERADORA='UNIMED RIO - FRB' AND " & filtro)
Me!Texto31 = DSum("VALOR BOLETO", "FRB GERAL", "OPERADORA='UNIMED RIO' AND " & filtro)
Me!Texto33 = DSum("VALOR BOLETO", "FRB GERAL", "OPERADORA='VIDAS EMERGENCIAS MÉDICAS' AND " & filtro)
Me!Texto35 = DSum("VALOR BOLETO", "FRB GERAL", "OPERADORA='DIX SAUDE' AND " & filtro)
Me!Texto37 = DSum("VALOR BOLETO", "FRB GERAL", "OPERADORA='ITALICA' AND " & filtro)

Me!Texto41 = DCount("*", "FRB GERAL", "OPERADORA='AMIL DENTAL' AND " & filtro)
Me!Texto42 = DCount("*", "FRB GERAL", "OPERADORA='DIX DENTAL' AND " & filtro)
Me!Texto43 = DCount("*", "FRB GERAL", "OPERADORA='ODONTOPREV' AND " & filtro)
Me!Texto44 = DCount("*", "FRB GERAL", "OPERADORA='UNIMED RIO - FRB' AND " & filtro)
Me!Texto45 = DCount("*", "FRB GERAL", "OPERADORA='UNIMED RIO' AND " & filtro)
Me!Texto46 = DCount("*", "FRB GERAL", "OPERADORA='VIDA EMERGENCIAS MÉDICA' AND " & filtro)
Me!Texto47 = DCount("*", "FRB GERAL", "OPERADORA='DIX SAUDE' AND " & filtro)
Me!Texto48 = DCount("*", "FRB GERAL", "OPERADORA='ITALICA' AND " & filtro)

Me!Texto49 = DSum("VALOR PAGO", "FRB GERAL", "OPERADORA='AMIL DENTAL' AND " & filtro)
Me!Texto50 = DSum("VALOR PAGO", "FRB GERAL", "OPERADORA='DIX DENTAL' AND " & filtro)
Me!Texto51 = DSum("VALOR PAGO", "FRB GERAL", "OPERADORA='ODONTOPREV' AND " & filtro)
Me!Texto52 = DSum("VALOR PAGO", "FRB GERAL", "OPERADORA='UNIMED RIO - FRB' AND " & filtro)
Me!Texto53 = DSum("VALOR PAGO", "FRB GERAL", "OPERADORA='UNIMED RIO' AND " & filtro)
Me!Texto54 = DSum("VALOR PAGO", "FRB GERAL", "OPERADORA='VIDAS EMERGENCIAS MÉDICAS' AND " & filtro)
Me!Texto55 = DSum("VALOR PAGO", "FRB GERAL", "OPERADORA='DIX SAUDE' AND " & filtro)
Me!Texto56 = DSum("VALOR PAGO", "FRB GERAL", "OPERADORA='ITALICA' AND " & filtro)

End Sub

Private Sub Form_Load()
Combinação0_AfterUpdate
End Sub

Quando vc tiver ESPAÇO nos nomes dos objetos(campos, tabelas, consultas, ...), deverá obrigatoriamente acrecentar colchetes.

exemplo:

Me!Texto23 = Nz(DSum("[VALOR BOLETO]", "[FRB GERAL]", "OPERADORA='AMIL DENTAL' AND " & filtro), 0)

Sucesso!

Amigos

Muito Obrigada.
Abraços