[Resolvido]Contar determinados registos em coluna e linha num formulario continuo

Boas Noites grandes Mestres!

Mais uma vez necessito da Vossa ajuda. Vou tentar explicar:

Tenho um formulario continuo, com registos directamente de uma tabela, com o seguinte esquema:

Balconista...... 1.......2.......3.......4

José.............L.......J.......M.......L.......Campo1

Joaquim..........J.......M.......L.......L.......Campo1

...............Campo2


Como fazer para contar o nº de "L" no campo1(Linha do formulário) e no campo2(Coluna do formulário)

Muito obrigado

Amigo as 03 letras L, J, M são fixa nas linhas?
você vai querer contar somente a L?

Desponibilise a parte do bd que deseja ajuda.

As letras são sempre as mesmas e repetem de acordo com uma sequência.
Conseguindo contar o "L", consegue-se as outras.

Obrigada pelo retorno

Amigos.

Coloquei assim:

Private Sub Form_Open(Cancel As Integer)
Dim E As Object, I As Long, T As Integer
For I = 1 To 31
Set E = Controls("E" & Format(I, "000"))

If E = "L" Then T = T + 1

Next I

Me.HorasTrabalhadas = T

End Sub

Mas dá-me o mesmo nº em todas as linhas

Help!!!!!!!!!!!

Alguma ideia?

Não deu para entender nadinha desse seu croqui (risos).

Monte um pequeno exemplo e mande para o meu email ou coloque aqui disponivel para todos.

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

No aguardo

MendesOf

É isto que pretende contar ?

Assis.

Muito obrigado é isso mesmo que pretendo. voçê entendeu o croqui.

Avelino Sampaio.

É mesmo isto que eu pretendo, mais a contagem nas colunas. O amigo Assis entendeu o croqui, mas pelo visto, também não deve saber a solução.

Se me puder ajudar, agradecia.

Uma pergunta: você quer contar os Ls de uma linha apenas ou de todas as linhas da tabela? Ou de todas as linhas da tabela dentro de uma condição, um filtro?

Eu faria isso criando os campos de cotagem na consulta, chamando por uma função

algo assim:

NomeDoCampo: fncContagem("L";[CampoID])

Ai vc cria a função acessando o recordset e usando o loop nos campos com o FOR que vc demostrou.

Mande o um BD exemplo que eu monto pra vc.

Sucesso!

Criquio-

De todas as linhas, como no exêmplo do Assis.

Avelino Sampaio,

O formulário é carregado directamente da tabela, não tem consulta. Vou tentar construir o bd exêmplo

Mande o BD somente com a tabela. Não precisa de mais nada. Pode destrui(no BD exemplo) boa parte dos dados da tabela, se quiser.

No aguardo

Avelino Sampaio.

Obrigada pelo retorno. Seguiu bd exêmplo para o mail acima referenciado. Agradeço confirmação

Olá

Segue projeto. Abra a consulta e veja o resultado. Use então a consulta no seu formulário.

Baixar exemplo

Sucesso!

Avelino.

Estou aqui com um problema, porque me esqueci de dizer que o funcionarioID pode repetir-se, ou seja a linha que aparece para cada funcionario com o mês de Janeiro, pode também aparecer para os outros meses para o mesmo funcionário, sendo depois filtrado o mês no formulário. Está a dar erro e deve ser por isso.

Help

Mandei uma modificação para o seu email. Veja se atende.

Sucesso!

Já funca 100%

Você é o Máximo(Access)

Você coloca exêmplo?

Obrigadíssima.

Amigo Avelino!

Será possivel colocar esta rotina a contar os dias úteis? Como?

Obrigado e desculpe a insistência.

Help!!!!!!!!!!!

Avelino Sampaio.

Desculpe insistir, mas preciso muito de sua ajuda. Será que dá para adaptar a seguinte rotina(da sua autoria), para contar os dias úteis:

Public Function fncContar(strTipo As String, id As Long, Mes As Variant) As Byte
Dim rs As DAO.Recordset
Dim strSql As String
Dim DiaActual As Date
Dim j As Byte, Contador As Byte, ContarDias As Byte
strSql = "SELECT * FROM HorarioInicialC WHERE FuncionarioId =" & id & " and format(mes,'yyyymm') =" & Format(Mes, "yyyymm") & ";"
Set rs = CurrentDb.OpenRecordset(strSql)
For j = 1 To 31
If rs("c" & j) = strTipo Then Contador = Contador + 1
Next
fncContar = Contador
rs.Close
Set rs = Nothing
End Function

Antes de mais eu precisava de saber se dá para isso, pois eu queria contar, na consulta (também da sua autoria) os dias úteis.

Se me puder dar alguma dica agradecia muito.

Meu amigo, você já vio no repositório tem alguns exemplos que pode lhe ajudar.

http://maximoaccess.forumeiros.com/t451-resolvidoscaculo-de-data-datas-e-hora-horas-de-dias-uteis-util?highlight=dias+uteis


http://maximoaccess.forumeiros.com/t775-resolvidofuncao-para-calculo-de-dias-uteis-access-2007?highlight=dias+uteis

Amigo João Afonso.

Muito obrigado pelo retorno.

Aqui o meu exêmplo é um pouco diferente porque não tem data inicio, nem de fim. O que pretendo é contar os dias úteis do mês inteiro(campo mes). Só se considerar a data inicio o primeiro dia de cada mês e a data fim o último dia de cada mês, mas isso não consta da consulta, nem da tabela. Tem uma ideia de como fazer?

Segue código. veja se atende

Código:

Public Function fncContarDiasUteis(DataInicio As Long) As Long
Dim TotalDias
Dim TotalDiasTrab As Byte
Dim UltimoDia As Long
Dim TotalFeriados As Byte
Dim j As Byte
   
UltimoDia = DateSerial(Year(DataInicio), Month(DataInicio) + 1, 0)
TotalDias = UltimoDia - DataInicio + 1
For j = 1 To TotalDias
    If Weekday(DataInicio) <> 7 And Weekday(DataInicio) <> 1 Then TotalDiasTrab = TotalDiasTrab + 1
    If Feriado(DataInicio) Then TotalFeriados = TotalFeriados + 1
    DataInicio = DataInicio + 1
Next

fncContarDiasUteis = TotalDiasTrab - TotalFeriados
End Function

Sucesso!

Avelino.

Você continua a ser o Máximo(Acess). Funca a 100%.

Só alterei o seguinte:

Public Function fncContarDiasUteis(DataInicio As Long) As Long
Dim TotalDias
Dim TotalDiasTrab As Byte
Dim UltimoDia As Long
Dim TotalFeriados As Byte
Dim j As Byte

UltimoDia = DateSerial(Year(DataInicio), Month(DataInicio) + 1, 0)
TotalDias = UltimoDia - DataInicio + 1
For j = 1 To TotalDias
'Debug.Print Weekday(DataInicio)
If Weekday(DataInicio) < 7 And Weekday(DataInicio) > 1 Then TotalDiasTrab = TotalDiasTrab + 1
If Feriado(DataInicio) And Weekday(DataInicio) <> 1 And Weekday(DataInicio) <> 7 Then TotalFeriados = TotalFeriados + 1
'If Feriado(DataInicio) Then TotalFeriados = TotalFeriados + 1
DataInicio = DataInicio + 1
Next

fncContarDiasUteis = TotalDiasTrab - TotalFeriados
End Function

Muito obrigado