MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Somar as Letras F e P

    Compartilhe

    claudiojsramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/09/2011

    [Resolvido]Somar as Letras F e P

    Mensagem  claudiojsramos em Sab 05 Maio 2018, 13:33

    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.
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 11/11/2009

    Re: [Resolvido]Somar as Letras F e P

    Mensagem  scandinavo em Sab 05 Maio 2018, 21:00

    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.

    claudiojsramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/09/2011

    Tela de diário escolar em Excel

    Mensagem  claudiojsramos em Sab 05 Maio 2018, 22:28

    Segue o modelo do diário no Excel para visualizar  a estrutura para ser feito no access.
    Anexos
    ModeloDiario.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (927 Kb) Baixado 7 vez(es)
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 11/11/2009

    Re: [Resolvido]Somar as Letras F e P

    Mensagem  scandinavo em Ter 08 Maio 2018, 17:43

    Veja ai....
    Anexos
    Controle de Faltas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (60 Kb) Baixado 7 vez(es)

    claudiojsramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/09/2011

    Somar Faltas

    Mensagem  claudiojsramos em Qua 09 Maio 2018, 03:13

    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
    Anexos
    TelaFrequencia.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (62 Kb) Baixado 9 vez(es)
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 11/11/2009

    Re: [Resolvido]Somar as Letras F e P

    Mensagem  scandinavo em Qui 10 Maio 2018, 01:46

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

    claudiojsramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/09/2011

    Quantidade de Tabelas

    Mensagem  claudiojsramos em Qui 10 Maio 2018, 12:56

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

    Atenciosamente,

    Cláudio Ramos
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 11/11/2009

    Re: [Resolvido]Somar as Letras F e P

    Mensagem  scandinavo em Qui 10 Maio 2018, 14:10

    Ok veja se é isto

    Veja o frmListaPresenca

    e tambem adicionei uma consulta de referencia cruzada para completar o racicocinio do anterior
    Anexos
    Controle de Faltas2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (174 Kb) Baixado 11 vez(es)

    claudiojsramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/09/2011

    Calculo de Faltas

    Mensagem  claudiojsramos em Qui 10 Maio 2018, 20:18

    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
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 11/11/2009

    Re: [Resolvido]Somar as Letras F e P

    Mensagem  scandinavo em Sex 11 Maio 2018, 18:01

    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

    claudiojsramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/09/2011

    Totalização de Faltas

    Mensagem  claudiojsramos em Sex 11 Maio 2018, 19:19

    Boa tarde amigo, ficou realmente excelente sua solução para meu problema. Muito obrigado mesmo.
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 11/11/2009

    Re: [Resolvido]Somar as Letras F e P

    Mensagem  scandinavo em Sex 11 Maio 2018, 19:30

    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)
    Anexos
    Controle de Faltas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 8 vez(es)

    claudiojsramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/09/2011

    Somar Faltas

    Mensagem  claudiojsramos em Qui 17 Maio 2018, 19:03

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

      Data/hora atual: Dom 27 Maio 2018, 09:08