[Resolvido]Contar letras nas colunas de formulario continuo

Boas noites para todos.

Tenho um formulário continuo onde necessito de contar o nº de determinadas letras por coluna. Os campos de contagem estão no rodapé do formulário. Coloquei a seguinte fórmula na origem de controlo do campo (rodapé do form) da 1ª coluna e contou certo: =Soma([C1] Como "M")*-1 (*-1, porque o valor retornava negativo). O problema surge quando coloco a fórmula no 2º campo(2ª coluna: =Soma([C2] Como "M")*-1), porque aí dão os dois (#erro). Coloco imagem do formulário.

Alguma ideia?

Crie uma caxa de texto.

M : =Soma(SeImed([NomeDaColuna]="M";1;0))

T : =Soma(SeImed([NomeDaColuna]="T";1;0))

N : =Soma(SeImed([NomeDaColuna]="N";1;0))


Dar seguencia para todos os dias do mês

João Afonso.

Obridado pelo retorno

Dá: #erro

A caixa de texto se verificou a imagem já se encontra no rodapé do formulário

Verifiquei

então coloque em cada campo responsavel pela coluna 1, 2, 3 e etc....
=Soma(SeImed([coluna1]="N";1;0))
=Soma(SeImed([coluna1]="T";1;0))
=Soma(SeImed([coluna1]="M";1;0))

fiz o teste e funciona normal

Amigo vai o exemplo


http://www.4shared.com/document/AqL_zDwk/CONTAT_COLUNA.html

Olá

Não vi o exemplo do amigo João. Como alternativa vc poderia usar o abs(). Exemplo: =Abs(Soma([C2] Como "M"))

Outra alternativa é usar uma função no seu formulário, conforme modelo abaixo:

Código:

Private Function fncContarColuna(strTipo As String, campo As String) As Long
Dim rs As DAO.Recordset
Dim t As Long
Dim strSql As String
strSql = Me.RecordSource
Set rs = CurrentDb.OpenRecordset(strSql)
Do While Not rs.EOF
    If rs(campo) = strTipo Then t = t + 1
    rs.MoveNext
Loop
fncContarColuna = t
rs.Close
Set rs = Nothing
End Function

Na propriedade coloque assim:

=fncContarColuna("m";"c1")


Sucesso!

Amigo João afonso!

Testei o que disse mas continua a dar erro. O exêmplo não consegui fazer o download. De qualquer forma obrigado por tentar.


Amigo Avelino!

Mais uma vez resolveu o meu galho. Colocando a sua função no formulário e na propriedade

=fncContarColuna("m";"c1")

Funciona na perfeição

Correndo o risco de me tornar repetitivo.

Mais uma vez o meu muito obrigado

Vai abrir uma tela de propaganda depois é so fechar a página da propaganda que vai abrir o local para baixar o arquivo, esta funcionando muito bem.

O exemplo do João Afonso funciona perfeitamente e de maneira simples.

Senhor josé, poderia por gentileza me fornecer uma explicação do porque no exemplo abaixo não funciona o simples?

Baixar exemplo

No aguardo

Meu amigo Avelino, realmente o exemplo postado no seu link não funciona.

Dei um ajuste na estrutura da tabela, ajustei o formulário para tabela

e usei o mesmo código de pesquisa, veja o exemplo modificado abaixo.


http://www.4shared.com/file/PFjjcQNu/ContarColuna.html

ao abrir o link, vai abrir primeiro uma tela de propaganda deixe finalizar a contagem e depois clique em fechar propaganda, depois é só baixar o arquivo

espero que aprove

Avelino!

Eu também não entendo, mas no exêmplo que postou agora por último, a rotina funciona se você colocar nas propriedades de origem de controlo só de um campo, ou então colocar a mesma letra nos dois campos. Se tentar colocar para somar duas letras, uma em cada campo, dá erro nos dois. Já a função que colocou anteriormente funciona a 100%.

João Afonso!

Já consegui fazer o download, mas como estou a trabalhar num computador com access 2003 e o seu exêmplo está num superior terei de aguardar para experimentar e depois retorno, embora tenha ficado com a ideia que o seu exêmplo terá sido o que o avelino colocou por último e se fôr o caso o que ocorre é o que expliquei acima.

João Afonso.

Já estive a experimentar o seu último exêmplo e na verdade funciona. Mas você alterou o FuncionarioID para numeração automática e isso não pode ser porque o ID é para repetir-se. Talvez por isso o anterior não dava.

Olá amigos

O motivo deu ter oferecido a função, como alternativa, foi por ter percebido tal particularidade no projeto do Mendes.

Fiquem com Deus e um bom final de semana!

Sucesso!

Meu amigo Avelino a sua colocação assim como de qualquer outro amigo do fórum é muito importante, estamos em constante aprendizado e não podemos desperdiçar essa oportunidade que o fórum oferece de aprender com os Developer e Modeladores.

mendesof você pode alterar o id do funcionário não tem problema, pode deixar como esta no seu bd só ajuste a questão dos campos c1, c2 e etc.. para Dia1, Dia2 e o campo de 50 para 1 caractere.
fica bom do mesmo jeito, tenho certesa que aminha ideia como a do Avelino vai ficar muito boa no seu sistema.

João Afonso, obrigado pelo retorno.

Fiz como disse e funciona simples.
Continuando o aprendizado, as definições do campo têm de ser como diz? e se eu necessitar de introduzir 2 carateres?

é só alterar na estrutura da tabela o e aumenta o campo de para 2 caractere,

Porem na estrutura do formulário no campo pesquisa você de informar se caso precisar pesquisa mais de uma letra.