[Resolvido]Compactação de código.

Beleza feras?
Segue e saga de aprendizado e com ela a encheção de saco para vcs.
No BD que estou construindo, existe uma parte para preenchimento de cartões de ponto dos funcionários. Criei um reltatório (rel_CartaoPonto) que é preenchido através de um form (Cartao_Ponto). O jeito que arrumei de fazer ficou enorme e minha dúvida é se da pra compactar esse código usando algum tipo de loop. Segue o código:

Option Compare Database

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

Me!txtMes.Value = Form_Cartao_Ponto.cmbMes.Value & " - " & Form_Cartao_Ponto.cmbAno.Value

Select Case Form_Cartao_Ponto.cmbMes
    Case "Janeiro"
        Me.lblFN1.Visible = True
        Me.lblSAB5.Visible = True
        Me.lblSAB12.Visible = True
        Me.lblDOM6.Visible = True
        Me.lblDOM13.Visible = True
        Me!txtME2.Value = Form_Funcionários.cmbEntrada.Value
        Me!txtMS2.Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
        Me!txtTE2.Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
        Me!txtTS2.Value = Form_Funcionários.cmbSAIDA.Value
        Me!txtME3.Value = Form_Funcionários.cmbEntrada.Value
        Me!txtMS3.Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
        Me!txtTE3.Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
        Me!txtTS3.Value = Form_Funcionários.cmbSAIDA.Value
        Me!txtME4.Value = Form_Funcionários.cmbEntrada.Value
        Me!txtMS4.Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
        Me!txtTE4.Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
        Me!txtTS4.Value = Form_Funcionários.cmbSAIDA.Value
        Me!txtME7.Value = Form_Funcionários.cmbEntrada.Value
        Me!txtMS7.Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
        Me!txtTE7.Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
        Me!txtTS7.Value = Form_Funcionários.cmbSAIDA.Value
        Me!txtME8.Value = Form_Funcionários.cmbEntrada.Value
        Me!txtMS8.Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
        Me!txtTE8.Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
        Me!txtTS8.Value = Form_Funcionários.cmbSAIDA.Value
        Me!txtME9.Value = Form_Funcionários.cmbEntrada.Value
        Me!txtMS9.Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
        Me!txtTE9.Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
        Me!txtTS9.Value = Form_Funcionários.cmbSAIDA.Value
        Me!txtME10.Value = Form_Funcionários.cmbEntrada.Value
        Me!txtMS10.Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
        Me!txtTE10.Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
        Me!txtTS10.Value = Form_Funcionários.cmbSAIDA.Value
        Me!txtME11.Value = Form_Funcionários.cmbEntrada.Value
        Me!txtMS11.Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
        Me!txtTE11.Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
        Me!txtTS11.Value = Form_Funcionários.cmbSAIDA.Value
        Me!txtME14.Value = Form_Funcionários.cmbEntrada.Value
        Me!txtMS14.Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
        Me!txtTE14.Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
        Me!txtTS14.Value = Form_Funcionários.cmbSAIDA.Value
        Me!txtME15.Value = Form_Funcionários.cmbEntrada.Value
        Me!txtMS15.Value = Form_Funcionários.cmbENTRADA_ALMOCO.Value
        Me!txtTE15.Value = Form_Funcionários.cmbSAIDA_ALMOCO.Value
        Me!txtTS15.Value = Form_Funcionários.cmbSAIDA.Value
End Select

End Sub

Percebam que isso é só para um mês deste ano e preciso fazer para todos dos próximos anos de acordo com as datas específicas. 
Tenho uma outra dúvida tb que é ao abrir o form, o usuário tem que inserir as datas das faltas. Bom, gostaria que, de acordo com o tipo de falta e seu mês, aparecesse no relatório tb. É possível?
Aguardo os gênios.
Abraços!

PS: Segue anexo o BD.

Boa tarde,
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
dim  cont as integer
Me!txtMes.Value = Form_Cartao_Ponto.cmbMes.Value & " - " & Form_Cartao_Ponto.cmbAno.Value

Select Case Form_Cartao_Ponto.cmbMes
    Case "Janeiro"
        Me.lblFN1.Visible = True
        Me.lblSAB5.Visible = True
        Me.lblSAB12.Visible = True
        Me.lblDOM6.Visible = True
        Me.lblDOM13.Visible = True
        for cont=2 to 15
      Select Case cont
     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
End Select


sobre a outra dúvida, não entendi

Valeu Mestre Alexandre.
Tentarei explicar a outra dúvida.
Quando abre o form_Funcinários, tem um botão "Cartão de POnto". Clicando nele, abre outro form "Faltas". Nele, o usuário digita o dia da falta e o motivo dela. Ao inserir essa falta, ela preenche a List box do form e grava os dados na tabela "Faltas_Cartao". O que quero é o seguinte:
O usuário inseriu, por exemplo, ano "2013", mês "junho", dia "13", motivo da falta "Abonada". Gostaria que essa falta aparecesse na hora da impressão na linha 13, que é a relativa ao dia da falta.
Deu pra entender?
Desde já agradeço a ajuda.

Tem de ver onde essa falta fica gravada para saber onde a ir buscar para a impressão

Na tabela "tb_Faltas_Cartao

Alguém?
Ta chegando o fim de mês e queria testar fazendo os cartões aqui da escola...

Tópico resolvido.
Grato a todos.