[Resolvido]Somar as Letras F e P

Bom dia a todos os colegas Mestres em Access e VBA, Gostaria de uma ajuda de vocês..

Tenho um sistema bem completo que roda na escola que eu trabalho já algum tempo, funciona bem, tem muitos recursos.. foi criado com base em muitas dicas e orientações obtidas neste respeitado fórum.

Porém, gostaria de implementar um diário de classe para os professores... eles usam aqui um no Excel que funciona, mas apresenta muitos problemas na hora de finalizar ele no fim do ano. Por esse motivo gostaria de desenvolver um em access.

Minha dificuldade é: o diário é preenchido assim:

|Nome dos Alunos  | Data1 | Data2 | Data3 | até o dia 31.... | Total Faltas |
| Cláudio Ramos      |  P       |   P      |    F      | etc...               |       1          |      

Gostaria de fazer isso em VBA, a medida que o professor vai colocando a presença (P) ou falta (F) o campo total de falta vai somando as faltas.

Bem Caros Mestres, espero que tenham entendo minha dificuldade e desde já agradeço a atenção de vocês.

Ok
Não deu para entender como está a sua estrutura
Tem como postar está tabela com algumas informações.
Pode ser o arquivo em Excel também.

Segue o modelo do diário no Excel para visualizar  a estrutura para ser feito no access.

Veja ai....

Boa noite amigo, excelente solução apresentada... muito obrigado... porém, gostaria de fazer da seguinte maneira..
conforme imagem em anexo..

se for possível, gostaria que fosse via código.

Atenciosamente,

Cláudio Ramos

Então vão ser 12 tabelas para lá meses?

Bom dia amigo, na verdade são quatro frequências, uma para cada bimestre...

Atenciosamente,

Cláudio Ramos

Ok veja se é isto

Veja o frmListaPresenca

e tambem adicionei uma consulta de referencia cruzada para completar o racicocinio do anterior

Boa Tarde amigo, excelente, excelente mesmo... exatamente isso que eu precisava... agora, se não for abusar da sua atenção, gostaria saber se é possível colocar a opção se caso a pessoa mudar a letra F que já tinha sido lançada para a letra P o sistema ajuste a quantidade..

Pois no momento ele calcula certinho as faltas, porém se mudar para P ele permanece o mesmo valor de antes de mudar, e se eu mudar novamente ele soma o que tinha + 1. mas ai não vai ficar correto a totalização.

Atenciosamente;

Cláudio Ramos

Alteres todos os códigos por este
não esqueça de alterar o nome do campo



'scandinavo 11/05/18
Dim FP As Variant
Dim VA As Variant
FP = Me.Ctl01.OldValue 'Valor anterior do campo
VA = Me.Ctl01.Value 'Valor Atual do campo
'se era falta agora é presença
If FP = "F" And VA = "P" Then
Me.TotalFaltas = Me.TotalFaltas - 1
Else
'se era presença e agora é falta
If FP = "P" And VA = "F" Then
Me.TotalFaltas = Me.TotalFaltas + 1
Else
'se é o primeiro registro e é falta
If IsNull(FP) And VA = "F" Then
Me.TotalFaltas = Me.TotalFaltas + 1
End If
End If
End If

Boa tarde amigo, ficou realmente excelente sua solução para meu problema. Muito obrigado mesmo.

Valeu pelo retorno
mas veja ai coloquei o código em uma função fica mais simples a programação.

Public Function acaoClique(ByVal ctl As Control)
'scandinavo 11/05/18
'somas os campos com a letra F
Dim FP As Variant
Dim VA As Variant
FP = ctl.OldValue 'Valor anterior do campo
VA = ctl.Value 'Valor Atual do campo
'se era falta agora é presença
If FP = "F" And VA = "P" Then
Me.TotalFaltas = Me.TotalFaltas - 1
Else
'se era presença e agora é falta
If FP = "P" And VA = "F" Then
Me.TotalFaltas = Me.TotalFaltas + 1
Else
'se é o primeiro registro e é falta
If IsNull(FP) And VA = "F" Then
Me.TotalFaltas = Me.TotalFaltas + 1
End If
End If
End If
End Function



só chamar a função no campo.

Call acaoClique(Ctl01)

Boa tarde amigo, mas uma vez, repito meu elogio... ficou melhor ainda esta solução. muito obrigado.