[Resolvido]Preenchimento de faltas em cartão de ponto via form.

Bom dia Mestres.
Seguindo no aprendizado, consegui criar um relatório na medida certa para a impressão de cartões de ponto, mas gostaria de uma luza para a introdução dos dias de falta do funcionário neste relatório.
Montei assim:

Para cada linha do cartão, existem 6 espaços para colocar os horários (Entrada e Saída -Manhã, Tarde e Hora Extra), os quais criei TextBox e as nomeei como txtME (Manhã Entrada), txtMS (Manhã Saída), txtTE (tarde Entrada) txtTS (Tarde Saída), txtEE (Extra Entrada) txtES (Extra Saída) em cima delas, labels para inclusão de faltas, sábados, domingos e feriados de acordo com o mês (lblF).
Para cada dia, a numeração correspondente, exemplo: dia 3 (linha 3 da frente do cartão) = txtME3, txtMS3...lblF3...E assim por diante.

Tenho um form (Form_Cartao_Ponto), no qual insiro as faltas de acordo com o registro aberto no Form_Funcionários e essas são salvas em uma tabela (tb_Faltas_Cartao) e são exibidas em uma listbox neste Form_Cartao_Ponto.

O que quero é o seguinte:

Que sejam mostradas na listbox apenas as faltas do mês que está na combobox neste form e estas, de acordo com seus respectivos dias sejam incluídas no relatório do Cartão Ponto nas linhas correspondentes aos dias das faltas e o motivo seja incluso nas lblF destes dias.

Complicado né?

Mas anexo vai o BD para maior compreensão.

No Menu Principal, clique em funcionários e use registros de 1 a 10 como exemplo para que possam testar. Digite o registro no campo REG e clique acima em PESQUISAR REG. Dpeois clique no botão CARTÃO DE PONTO e preencha qualquer falta para testar.
PS:. Criei código somente para os meses (Janeiro, Junho e Julho).
Se der pra ajudar no código dos botões Anterior e Próximo, que percorrem os registros no Form_Funcionários seria demais. rs.

Agradeço a quem tenha paciência e possa colaborar com meu aprendizado.

Abraços.

Tentei umas coisas e consegui imprimir as faltas na posição certa na frente do cartão (rel_CartaoPonto).
Porém, usei o mesmo código na parte de trás (rel_CartaoCostas) e não imprime as faltas, somente os dias normais.
Não consigo achar o erro. Por favor, me ajudem. Falta só isso para terminar essa parte do BD.
Agradeço desde já.

Abraços.

Alguma alma caridosa por favor???
Deve ser algum erro besta, mas não estou encontrando.
Peço a ajuda dos Mestres.
Grato!

Seguem os códigos dos dois cartões (Frente e Verso) para que tentem achar o erro:

'Frente
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)

Dim cont As Integer, cont2 As Integer, dia As Integer, mot As String
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Select DIA_FALTA, MOTIVO_FALTA from tb_Faltas_Cartao Where MES_FALTA= '" & Form_Cartao_Ponto.txtMes.Value & "'")
For cont2 = 1 To 15
dia = rs("DIA_FALTA")
mot = rs("MOTIVO_FALTA")
If cont2 = dia Then
Me("lblF" & dia).Caption = mot
Me("lblF" & dia).Visible = True
Me("txtME" & dia).Visible = False
Me("txtMS" & dia).Visible = False
Me("txtTE" & dia).Visible = False
Me("txtTS" & dia).Visible = False
End If
Next cont2
Set db = Nothing
Set rs = Nothing

Me!txtMes.Value = Form_Cartao_Ponto.txtMes.Value & " - " & Form_Cartao_Ponto.txtANO.Value

Select Case Form_Cartao_Ponto.txtMes
Case "Janeiro"
Select Case Form_Funcionários.cmbCARGO.Value
Case "Secretário de Escola", "Professor Responsável", "Inspetor de Alunos"
For cont = 1 To 15
Select Case cont
Case 1
Me("lblF" & cont).Caption = "FERIADO NACIONAL"
Me("lblF" & cont).Visible = True
Case 5, 12
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 3, 4, 7, 8, 9, 10, 11, 14, 15
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
Case "PPI"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 1 To 15
Select Case cont
Case 1
Me("lblF" & cont).Caption = "FERIADO NACIONAL"
Me("lblF" & cont).Visible = True
Case 5, 12
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 3, 4, 7, 8, 9, 10, 11, 14, 15
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
Case "Tarde"
For cont = 1 To 15
Select Case cont
Case 1
Me("lblF" & cont).Caption = "FERIADO NACIONAL"
Me("lblF" & cont).Visible = True
Case 5, 12
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 3, 4, 7, 8, 9, 10, 11, 14, 15
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
End Select
Case "PEB I"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 1 To 15
Select Case cont
Case 1
Me("lblF" & cont).Caption = "FERIADO NACIONAL"
Me("lblF" & cont).Visible = True
Case 5, 12
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 4, 7, 9, 11, 14
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 3, 8, 10, 15
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
End Select

Next
Case "Tarde"
For cont = 1 To 15
Select Case cont
Case 1
Me("lblF" & cont).Caption = "FERIADO NACIONAL"
Me("lblF" & cont).Visible = True
Case 5, 12
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 4, 7, 9, 11, 14
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 3, 8, 10, 15
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtME" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
End Select
Next
End Select
End Select

'Costas
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)

Dim cont As Integer, contF As Integer, diaC As Integer, motC As String
Dim db As DAO.Database
Dim rs2 As DAO.Recordset

Set db = CurrentDb
Set rs2 = db.OpenRecordsetdb.OpenRecordset("Select DIA_FALTA, MOTIVO_FALTA from tb_Faltas_Cartao Where MES_FALTA= '" & Form_Cartao_Ponto.txtMes.Value & "'")
Select Case Form_Cartao_Ponto.txtMes
Case "Janeiro", "Março", "Maio", "Julho", "Agosto", "Outubro", "Dezembro"
For contF = 16 To 31
diaC = rs2("DIA_FALTA")
motC = rs2("MOTIVO_FALTA")
If contF = diaC Then
Me("lblF" & diaC).Caption = motC
Me("lblF" & diaC).Visible = True
Me("txtME" & diaC).Visible = False
Me("txtMS" & diaC).Visible = False
Me("txtTE" & diaC).Visible = False
Me("txtTS" & diaC).Visible = False
End If
Next contF
Case "Abril", "Junho", "Setembro", "Novembro"
For contF = 16 To 30
diaC = rs2("DIA_FALTA")
motC = rs2("MOTIVO_FALTA")
If contF = diaC Then
Me("lblF" & diaC).Caption = motC
Me("lblF" & diaC).Visible = True
Me("txtME" & diaC).Visible = False
Me("txtMS" & diaC).Visible = False
Me("txtTE" & diaC).Visible = False
Me("txtTS" & diaC).Visible = False
End If
Next contF
Case "Fevereiro"
For contF = 16 To 29
diaC = rs2("DIA_FALTA")
motC = rs2("MOTIVO_FALTA")
If contF = diaC Then
Me("lblF" & diaC).Caption = motC
Me("lblF" & diaC).Visible = True
Me("txtME" & diaC).Visible = False
Me("txtMS" & diaC).Visible = False
Me("txtTE" & diaC).Visible = False
Me("txtTS" & diaC).Visible = False
End If
Next contF
End Select
Set db = Nothing
Set rs2 = Nothing

Select Case Form_Cartao_Ponto.txtMes
Case "Janeiro"
Select Case Form_Funcionários.cmbCARGO.Value
Case "Secretário de Escola", "Professor Responsável", "Inspetor de Alunos"
For cont = 16 To 31
Select Case cont
Case 19, 26
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 20, 27
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 17, 18, 21, 22, 23, 24, 25, 28, 29, 30, 31
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
Case "PPI"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 16 To 31
Select Case cont
Case 19, 26
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 20, 27
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 17, 18, 21, 22, 23, 24, 25, 28, 29, 30, 31
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
Case "Tarde"
For cont = 16 To 31
Select Case cont
Case 19, 26
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 20, 27
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 17, 18, 21, 22, 23, 24, 25, 28, 29, 30, 31
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
End Select
Case "PEB I"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 16 To 31
Select Case cont
Case 19, 26
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 20, 27
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 16, 18, 21, 23, 25, 28, 30
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 17, 22, 24, 29, 31
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
End Select
Next
Case "Tarde"
For cont = 16 To 31
Select Case cont
Case 19, 26
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 20, 27
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 16, 18, 21, 23, 25, 28, 30
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 17, 22, 24, 29, 31
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtME" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
End Select
Next
End Select
End Select
-----------------------------------------------------------------------------------------------------------------------------------------
O da frente imprime as faltas certinho nos campos exatos, o das costas, imprime os horários , mas ignora as faltas. Onde pode estar este erro?

Beleza feras?
Fiz mais umas tentativas ontem e percebi uma coisa:
Não é o rel_Costas que está com problema.
O que acontece é que após ele pegar a primeira falta, não pega mais as outras de dias posteriores.
alguém pode dar uma luz neste erro?
Valeu!

Alguém por favor.
Tenho que fazer estes cartões hoje a tarde e se não conseguir arrumar vou ter que fazer no manual.
Aí é muuuuuito osso!

Beleza mestres?

Segue o código que escrevi para captar todas as faltas cadastradas na tb_Faltas_Cartao, porém não está dando certo.
Se tiver mais de uma falta ele não mostra, só a primeira.
Alguém pode dar uma luz onde está o erro?
Grato.

Dim cont As Integer, cont2 As Variant, dia As Integer, mot As String

dia = Nz(DLookup("[DIA_FALTA]", "tb_Faltas_Cartao", "[MES_FALTA] = '" & Form_Cartao_Ponto.txtMes.Value & "' AND [REG] = " & Form_Funcionários.txtREG_FUNC.Value & ""), 0)
mot = Nz(DLookup("[MOTIVO_FALTA]", "tb_Faltas_Cartao", "[MES_FALTA] = '" & Form_Cartao_Ponto.txtMes.Value & "' AND [REG] = " & Form_Funcionários.txtREG_FUNC.Value & ""), 0)

For cont2 = 1 To 15
Select Case cont2
Case dia
Me("lblF" & dia).Caption = mot
Me("lblF" & dia).Visible = True
Me("txtME" & dia).Visible = False
Me("txtMS" & dia).Visible = False
Me("txtTE" & dia).Visible = False
Me("txtTS" & dia).Visible = False
End Select
Next cont2


Abraços.

Nenhuma dica Feras?
Pelo menos digam que não entenderam o que quero que vou compreender. rs
To quebrando a cabeça faz 2 semanas e nada.
Please, Help!!!

Ninguem?

Por Favor...

Po galera, essa deve ser fácil pra vcs. Da uma ajuda ae por favor...
Grato!

poste o exemplo fica mais facil

Segue o exemplo do BD.
Ao abrir ele abre o MENU. Clique em "Professores e Funcionários". Abrirá o Form_Funcionários. Digite o registro "1" e clique em Pesquisar REG.
Após, clique em "Cartão de Ponto". Abrirá o Form_Cartao_Ponto no qual estarão várias faltas do mês atual. Ao clicar em imprimir, na teoria, ele deveria imprimir essas faltas nos seus respectivos dias e os dias normais nos seus. Porém, ao pegar a data da primeira falata, ele ignora as outras. O que quero saber é o pq?
Aguardo ajuda.
Grato.

Alguém???
Por favor...

nao consegui abrir seu bd ta falando q ta nao e valido

Ele foi feito no access 2010 e não consegui converter para algum anterior. Da uma msg de erro, pois existem recursos que necessitam do 2010.

Fala feras, nenhuma luz?

Achei que o caso era fácil, mas pelo que vejo, não é.
Vou desistir dessa então.
Valeu pela força.

Ninguem pessoal?
Por favor!

Up!

Up!

Up!

Bom dia galera.
Alguém pode dar uma ajuda com este problema?
É o que está emperrando a finalização do meu BD.
Por favor.
Valeu!

Vou testar e retorno, mas desde já agradeço...
Abrasss!!!

Bom dia Mestre Avelino.
Tentei seu exemplo, mas sei que estou fazendo algo errado, pois na hora que mando imprimir, Os dias de falta aparecem como se tivesse trabalhado normalmente.
Segue o código como ficou para que possa me dar uma luz:

Option Compare Database

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)

Dim cont As Integer, cont2 As Integer, cont3 As Integer, dia As Integer, mot As String

Me!txtMes.Value = Form_Cartao_Ponto.txtMes.Value & " - " & Form_Cartao_Ponto.txtANO.Value

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tb_Faltas_Cartao WHERE [MES_FALTA] = '" & Form_Cartao_Ponto.txtMes.Value & "' AND [REG] = " & Form_Funcionários.txtREG_FUNC.Value & "")
Do While rs.EOF
dia = rs!DIA_FALTA
mot = rs!MOTIVO_FALTA
Me("lblF" & dia).Caption = mot
Me("lblF" & dia).Visible = True
Me("txtME" & dia).Visible = False
Me("txtMS" & dia).Visible = False
Me("txtTE" & dia).Visible = False
Me("txtTS" & dia).Visible = False
Loop
rs.Close
Set rs = Nothing

Select Case Form_Cartao_Ponto.qdoLicencas.Value
Case 1
For cont3 = 1 To 15
Me("lblF" & cont3).Visible = False
Me("txtME" & cont3).Visible = False
Me("txtMS" & cont3).Visible = False
Me("txtTE" & cont3).Visible = False
Me("txtTS" & cont3).Visible = False
Me("txtEE" & cont3).Visible = False
Me("txtES" & cont3).Visible = False
Next cont3
Me.imgLicencaMedica.Visible = True
Exit Sub
Case 2
For cont3 = 1 To 15
Me("lblF" & cont3).Visible = False
Me("txtME" & cont3).Visible = False
Me("txtMS" & cont3).Visible = False
Me("txtTE" & cont3).Visible = False
Me("txtTS" & cont3).Visible = False
Me("txtEE" & cont3).Visible = False
Me("txtES" & cont3).Visible = False
Next cont3
Me.imgLicencaGestante.Visible = True
Exit Sub
Case 3
For cont3 = 1 To 15
Me("lblF" & cont3).Visible = False
Me("txtME" & cont3).Visible = False
Me("txtMS" & cont3).Visible = False
Me("txtTE" & cont3).Visible = False
Me("txtTS" & cont3).Visible = False
Me("txtEE" & cont3).Visible = False
Me("txtES" & cont3).Visible = False
Next cont3
Me.imgFerias.Visible = True
Exit Sub
End Select

Select Case Form_Cartao_Ponto.txtMes
Case "Janeiro"
Select Case Form_Funcionários.cmbCARGO.Value
Case "Secretário de Escola", "Professora Responsável", "Inspetor de Alunos"
For cont = 1 To 15
Select Case cont
Case 1
Me("lblF" & cont).Caption = "FERIADO NACIONAL"
Me("lblF" & cont).Visible = True
Case 5, 12
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 3, 4, 7, 8, 9, 10, 11, 14, 15
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
Case "PPI"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 1 To 15
Select Case cont
Case 1
Me("lblF" & cont).Caption = "FERIADO NACIONAL"
Me("lblF" & cont).Visible = True
Case 5, 12
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 3, 4, 7, 8, 9, 10, 11, 14, 15
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
Case "Tarde"
For cont = 1 To 15
Select Case cont
Case 1
Me("lblF" & cont).Caption = "FERIADO NACIONAL"
Me("lblF" & cont).Visible = True
Case 5, 12
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 3, 4, 7, 8, 9, 10, 11, 14, 15
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
End Select
Case "PEB I"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 1 To 15
Select Case cont
Case 1
Me("lblF" & cont).Caption = "FERIADO NACIONAL"
Me("lblF" & cont).Visible = True
Case 5, 12
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 4, 7, 9, 11, 14
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 3, 8, 10, 15
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
End Select

Next
Case "Tarde"
For cont = 1 To 15
Select Case cont
Case 1
Me("lblF" & cont).Caption = "FERIADO NACIONAL"
Me("lblF" & cont).Visible = True
Case 5, 12
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 4, 7, 9, 11, 14
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 3, 8, 10, 15
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtME" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
End Select
Next
End Select
End Select
Case "Junho"
Select Case Form_Funcionários.cmbCARGO.Value
Case "Professora Responsável"
For cont = 1 To 15
Select Case cont
Case 1, 8, 15
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 2, 9
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 3, 5, 7, 10, 12, 14
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 4, 6, 11, 13
Me("txtME" & cont).Value = "08:15"
Me("txtMS" & cont).Value = "13:30"
Me("txtTE" & cont).Value = "14:30"
Me("txtTS" & cont).Value = "17:30"
End Select
Next
Case "Secretário de Escola", "Inspetor de Alunos"
For cont = 1 To 15
Select Case cont
Case 1, 8, 15
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 2, 9
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 3, 4, 5, 6, 7, 10, 11, 12, 13, 14
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
Case "PPI"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 1 To 15
Select Case cont
Case 1, 8, 15
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 2, 9
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 3, 4, 5, 6, 7, 10, 11, 12, 13, 14
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
Case "Tarde"
For cont = 1 To 15
Select Case cont
Case 1, 8, 15
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 2, 9
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 3, 4, 5, 6, 7, 10, 11, 12, 13, 14
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
End Select
Case "PEB I"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 1 To 15
Select Case cont
Case 1, 8, 15
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 2, 9
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 3, 5, 7, 10, 12
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 4, 6, 11, 13, 14
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
End Select
Next
Case "Tarde"
For cont = 1 To 15
Select Case cont
Case 1, 8, 15
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 2, 9
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 3, 5, 7, 10, 12, 14
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 4, 6, 11, 13
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtME" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
End Select
Next
End Select
End Select
Case "Julho"
Select Case Form_Funcionários.cmbCARGO.Value
Case "Professora Responsável"
For cont = 1 To 15
Select Case cont
Case 8
Me("lblF" & cont).Caption = "PONTO FACULTATIVO"
Me("lblF" & cont).Visible = True
Case 9
Me("lblF" & cont).Caption = "FERIADO ESTADUAL"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 7, 14
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 1, 3, 5, 8, 10, 12, 15
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 2, 4, 9, 11
Me("txtME" & cont).Value = "08:15"
Me("txtMS" & cont).Value = "13:30"
Me("txtTE" & cont).Value = "14:30"
Me("txtTS" & cont).Value = "17:30"
End Select
Next
Case "Secretário de Escola", "Inspetor de Alunos"
For cont = 1 To 15
Select Case cont
Case 8
Me("lblF" & cont).Caption = "PONTO FACULTATIVO"
Me("lblF" & cont).Visible = True
Case 9
Me("lblF" & cont).Caption = "FERIADO ESTADUAL"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 7, 14
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 1, 2, 3, 4, 5, 10, 11, 12, 15
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
Case "PPI"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 1 To 15
Select Case cont
Case 8
Me("lblF" & cont).Caption = "PONTO FACULTATIVO"
Me("lblF" & cont).Visible = True
Case 9
Me("lblF" & cont).Caption = "FERIADO ESTADUAL"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 7, 14
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 1, 2, 3, 4, 5
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 10, 11, 12, 15
Me("lblF" & cont).Caption = "RECESSO ESCOLAR"
Me("lblF" & cont).Visible = True
End Select
Next
Case "Tarde"
For cont = 1 To 15
Select Case cont
Case 8
Me("lblF" & cont).Caption = "PONTO FACULTATIVO"
Me("lblF" & cont).Visible = True
Case 9
Me("lblF" & cont).Caption = "FERIADO ESTADUAL"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 7, 14
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 1, 2, 3, 4, 5
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 10, 11, 12, 15
Me("lblF" & cont).Caption = "RECESSO ESCOLAR"
Me("lblF" & cont).Visible = True
End Select
Next
End Select
Case "PEB I"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 1 To 15
Select Case cont
Case 8
Me("lblF" & cont).Caption = "PONTO FACULTATIVO"
Me("lblF" & cont).Visible = True
Case 9
Me("lblF" & cont).Caption = "FERIADO ESTADUAL"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 7, 14
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 1, 3, 5
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 2, 4
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
Case 10, 11, 12, 15
Me("lblF" & cont).Caption = "RECESSO ESCOLAR"
Me("lblF" & cont).Visible = True
End Select
Next
Case "Tarde"
For cont = 1 To 15
Select Case cont
Case 8
Me("lblF" & cont).Caption = "PONTO FACULTATIVO"
Me("lblF" & cont).Visible = True
Case 9
Me("lblF" & cont).Caption = "FERIADO ESTADUAL"
Me("lblF" & cont).Visible = True
Case 6, 13
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 7, 14
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 1, 3, 5
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 2, 4
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtME" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
Case 10, 11, 12, 15
Me("lblF" & cont).Caption = "RECESSO ESCOLAR"
Me("lblF" & cont).Visible = True
End Select
Next
End Select
End Select
Case "Agosto"
Select Case Form_Funcionários.cmbCARGO.Value
Case "Professora Responsável"
For cont = 1 To 15
Select Case cont
Case 3, 10
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 4, 11
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 5, 7, 9, 12, 14
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 1, 6, 8, 13, 15
Me("txtME" & cont).Value = "08:15"
Me("txtMS" & cont).Value = "13:30"
Me("txtTE" & cont).Value = "14:30"
Me("txtTS" & cont).Value = "17:30"
End Select
Next
Case "Secretário de Escola", "Inspetor de Alunos"
For cont = 1 To 15
Select Case cont
Case 3, 10
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 4, 11
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 1, 2, 5, 6, 7, 8, 9, 12, 13, 14, 15
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
Case "PPI"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 1 To 15
Select Case cont
Case 3, 10
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 4, 11
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 1, 2, 5, 6, 7, 8, 9, 12, 13, 14, 15
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
Case "Tarde"
For cont = 1 To 15
Select Case cont
Case 3, 10
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 4, 11
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 1, 2, 5, 6, 7, 8, 9, 12, 13, 14, 15
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
End Select
Next
End Select
Case "PEB I"
Select Case Form_Funcionários.cmbPERIODO.Value
Case "Manhã"
For cont = 1 To 15
Select Case cont
Case 3, 10
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 4, 11
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 5, 7, 9, 12, 14
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 1, 6, 8, 13, 15
Me("txtME" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtTE" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
End Select
Next
Case "Tarde"
For cont = 1 To 15
Select Case cont
Case 3, 10
Me("lblF" & cont).Caption = "SÁBADO"
Me("lblF" & cont).Visible = True
Case 4, 11
Me("lblF" & cont).Caption = "DOMINGO"
Me("lblF" & cont).Visible = True
Case 2, 5, 7, 9, 12, 14
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Case 1, 6, 8, 13, 15
Me("txtTE" & cont).Value = Form_Funcionários.cmbEntrada.Value
Me("txtTS" & cont).Value = Form_Funcionários.cmbSAIDA.Value
Me("txtME" & cont).Value = Form_Funcionários.cmbENTRADA_HTP.Value
Me("txtMS" & cont).Value = Form_Funcionários.cmbSAIDA_HTP.Value
End Select
Next
End Select
End Select
End Select

End Sub

Fico no aguardo.
Abrasss.

Algum dos Mestres pode dar uma luz.
Ta osso! 

Por favor mestres. Está chegando o fim do mês e gostaria de usar essa parte do meu BD que ainda não comsegui resolver.
As dicas que me foram dadas eu usei mas não funfou.
Alguma dica nova por favor?
Grato!

O primeiro problema é ser em formato 2010

Segue o Bd.

Preenchi alguma falatas para o funcionário de registro 5000 para que possa visualizar o que quero.
As faltas que estão na ListBox do form Cartao_Ponto tem que estar impressas nos respectivos dias do cartão, por exemplo:
no dia 12 - falta abonada, então imprimi na lblF12 (label respectiva do dia 12) e os horários desse dia ficam em branco (txtME12, txtMS12, txtTE12, txtTS12, txtEE12, txtES12)
no dia 16 - falta TRE, então imprimi na lblF16 (label respectiva do dia 16) e os horários desse dia ficam em branco (txtME16, txtMS16, txtTE16, txtTS16, txtEE16, txtES16)
E assim por diante.

Deu pra entender mais ou menos? O Exemplo na imagem abaixo mostra melhor:

https://2img.net/r/ihimg/photo/my-images/839/7jcb.jpg

Abrasss!!!

Boa tarde,
Não consegui chegar onde precisa. Explica como se chega ao relatório pretendido

No Menu clique em "Professores e Funcionários".
Digite o registro (5000) no text box ao lado do label REG.
Clique no botão "Cartão de Ponto". Vai abrir o form Cartao_Ponto.
Nesse form eu insiro as faltas do mês em questão do funcionário e elas aparecem na ListBox.
Clique em imprimir. Nessa hora o cartão deve ser impresso com os horários das presenças e nos dia de falta, as faltas respectivas. Essa parte é que não sei como fazer.
Já deixei algumas faltas cadastradas como exemplo.

Abrasss!!!

O código no detalhe do relatório para que serve?

Ele preenche os dias trabalhados pelo funcionário.
Joga os horários de:

Entrada
Saída
Entrada_Almoço
Saida_Almoço

Para as labels:

txtME1(Manhã - entrada do dia 1)
txtSE1(Manhã - Entrada do Almoço dia 1)
txtMT1(Manhã - Saída do Almoço do dia 1)
txtMT1(Manhã - Saída do dia 1)

E assim por diante.

O lançamento depende do cargo?

Sim. Só fiz uma parte do código então tem que mudar o cargo do funcionário para "Inspetor de Alunos"
Aí preenche o cartão.
Tinha esquecido essa parte
Desculpe.

AbrassS!!!

mas o preenchimento não é igual para todos? em que difere?

No preenchimento das labels com os horários:

Exemplo:
Secretário e Inspetores - horário administrativo (Entrada, Entrada_Almoco, Saida_Almoco, Saida)
Professora Responsável pela Escola - horário diferenciado (segundas, quartas e sextas um horário e terças e quintas outros)
Das professoras tem período da tarde e da manhã.

Essa parte eu consegui resolver e estou montando aqui, o que me não consegui é a inserção das faltas.
Se quiser, assim que eu terminar, insiro o código com todos os horário, mas acho que vai complicar mais.

Abrasss!!!

Então, aqui vai sem diferenciação de horários. Podia ficar um pouco mais enxuto mas adaptei do que forneceu

            

Mestre, sem palavras!!!!!!

Essa duvida já durava 2 meses e ninguém havia me ajudado...
Sensacional.

Serás meu ídolo à partir de hj...rs

Muito obrigado mesmo.

Coloquei aqui no código e com os filtros de cargo e tudo mais ta que é uma beleza...
Facilitou a minha vida.

AbrassS!!!

Bom dia Mestre.
Aconteceu algo que não tinha pensado, mas ta dando erro.
Tem funcionário que não tem falta no mês e ta dando erro.
Tentei usar isso:

If RsFaltas.Recordcount <> 0 Then

Mas fica tudo em branco, qual filtro devo usar?

Abrasss!!!

Resolvi Mestre.
Usei a linha 'If RsFaltas.RecordCount <> 0 Then RsFaltas.MoveFirst'
E deu certo.


Abrasss!!!