Uma maneira prática e rápida seria utilizar o código que criei acima como uma função, passando os números de 1 à 80 por argumento.
Observe a seguinte solução:
- Crie uma tabela com um campo para registrar os 80 números;
- Puxe em um formulário folha de dados ou continuo esses 80 registros;
- Acrescente um
controle caixa de texto ao lado do controle que mostra os 80 registros no form;
- Escreva na Fonte do
Controle desse controle criado:
=contaD(
[NomeDaFonteDeControleQueMostraOs80Registros])
Coloque a função em módulo qualquer e dê o nome que quiser:
Function contaD(argD) As Integer
On Error Resume Next
Dim Rs As DAO.Recordset
Dim i As Integer
Dim Encontrar As Integer
Dim Encontrado As Long
Dim DataIni As Date
Dim DataFin As Date
Set Rs = CurrentDb.OpenRecordset("SuaTabela")
Encontrar = argD
Encontrado = 0
DataIni = #1/1/2014#
DataFin = #1/1/2015#
For i = 1 To 4
Rs.MoveLast
Rs.MoveFirst
Do While Not Rs.EOF
If Rs("SeuCampoData") >= DataIni And Rs("SeuCampoData") <= DataFin Then
If Rs(("d" & i)) = Encontrar Then
Encontrado = Encontrado + 1
End If
End If
Rs.MoveNext
Loop
Next i
Rs.Close
contaD = Encontrado
End Function
Última edição por Dilson em 12/10/2014, 03:22, editado 1 vez(es)