[Resolvido]Confere se textbox está preenchida e passa para a próxima.

Bom dia feras.
Pintou mais uma dúvida.

Tenho um relatório que pega dados de uma 2 tabelas (tb_Func (funcionários) e tb_Faltas_Cartão (Faltas mensais dos funcionários)).
Neste relatório tenho 15 TextBox que são nomeadas assim:

txtOutros1, txtOutros2 ... txtOutros15.

Como tenho vários itens diferentes e a quantidade delas não é padrão, gostaria que, conforme fossem aparecendo as faltas, Se o txtOutros1 estivesse vazio, preenchia ele mesmo; se tivesse preenchido o txtOutros1, pulasse para o 2, e assim sucessivamente.

Tentei assim, mas não ta dando certo:

Código:


For num = 1 To 12
    Select Case num
        Case 1
            Mes = "Jan"
            Mes1 = "janeiro"
            DataFim = "31"
        Case 2
            If ANO Mod 400 = 0 Or (ANO Mod 4 = 0 And ANO Mod 100 <> 0) Then
            Mes = "Fev"
            Mes1 = "fevereiro"
            DataFim = "29"
            Else
            Mes = "Fev"
            Mes1 = "fevereiro"
            DataFim = "28"
        End If
        Case 3
            Mes = "Mar"
            Mes1 = "março"
            DataFim = "31"
        Case 4
            Mes = "Abr"
            Mes1 = "Abril"
            DataFim = "30"
        Case 5
            Mes = "Mai"
            Mes1 = "maio"
            DataFim = "31"
        Case 6
            Mes = "Jun"
            Mes1 = "junho"
            DataFim = "30"
        Case 7
            Mes = "Jul"
            Mes1 = "julho"
            DataFim = "31"
        Case 8
            Mes = "Ago"
            Mes1 = "agosto"
            DataFim = "31"
        Case 9
            Mes = "Set"
            Mes1 = "setembro"
            DataFim = "30"
        Case 10
            ANO = ANO - 1
            Mes = "Out"
            Mes1 = "outubro"
            DataFim = "31"
        Case 11
            Mes = "Nov"
            Mes1 = "novembro"
            DataFim = "30"
        Case 12
            Mes = "Dez"
            Mes1 = "dezembro"
            DataFim = "31"
    End Select
   
For cont1 = 1 To DataFim

‘Seta e determina onde são achadas as faltas na tb_Faltas_Cartao
Set RsFaltas = db.OpenRecordset("Select * From tb_Faltas_Cartao Where [REG]=" & _
Form_Funcionários.txtREG_FUNC.Value & " And [MES_FALTA]= '" & Mes1 & "'")

‘Confere se tem faltas na tb_Faltas_Cartao
    If RsFaltas.RecordCount <> 0 Then RsFaltas.MoveFirst
    RsFaltas.FindFirst "DIA_FALTA=" & cont1
    If RsFaltas.NoMatch Then
        ‘Se não há faltas neste dia, preenche como dia de trabalho concluído
        Dia = Weekday(cont1 & "/" & num & "/" & ANO)
        If Dia = 1 Then
            Me("txt" & Mes & cont1).Value = "D"
            Me("txt" & Mes & cont1).ForeColor = 25600
            Me("txt" & Mes & cont1).BackColor = 12713921
            Me("txt" & Mes & cont1).FontBold = True
        End If
        If Dia = 2 Or Dia = 3 Or Dia = 4 Or Dia = 5 Or Dia = 6 Then
            Me("txt" & Mes & cont1).Value = "C"
            Me("txt" & Mes & cont1).ForeColor = 16711680
        End If
        If Dia = 7 Then
            Me("txt" & Mes & cont1).Value = "S"
            Me("txt" & Mes & cont1).ForeColor = 25600
            Me("txt" & Mes & cont1).BackColor = 12713921
            Me("txt" & Mes & cont1).FontBold = True
        End If
        If (num = 1 And cont1 = 1) Or (num = 4 And cont1 = 21) Or (num = 5 And cont1 = 1) Or (num = 6 And cont1 = 21) _
        Or (num = 9 And cont1 = 7) Or (num = 10 And cont1 = 12) _
        Or (num = 11 And (cont1 = 2 Or cont1 = 15)) Or (num = 12 And cont1 = 25) Then
            Me("txt" & Mes & cont1).Value = "FN"
            Me("txt" & Mes & cont1).ForeColor = vbRed
        End If
        If ((num = 1 And cont1 = 1) Or (num = 4 And cont1 = 21) Or (num = 5 And cont1 = 1) Or (num = 6 And cont1 = 21) _
        Or (num = 9 And cont1 = 7) Or (num = 10 And cont1 = 12) _
        Or (num = 11 And (cont1 = 2 Or cont1 = 15)) Or (num = 12 And cont1 = 25)) And Dia = 1 Then
            Me("txt" & Mes & cont1).Value = "FN/D"
            Me("txt" & Mes & cont1).ForeColor = vbRed
            Me("txt" & Mes & cont1).BackColor = 12713921
            Me("txt" & Mes & cont1).FontSize = 8
        End If
        If ((num = 1 And cont1 = 1) Or (num = 4 And cont1 = 21) Or (num = 5 And cont1 = 1) Or (num = 6 And cont1 = 21) _
        Or (num = 9 And cont1 = 7) Or (num = 10 And cont1 = 12) _
        Or (num = 11 And (cont1 = 2 Or cont1 = 15)) Or (num = 12 And cont1 = 25)) And Dia = 7 Then
            Me("txt" & Mes & cont1).Value = "FN/S"
            Me("txt" & Mes & cont1).ForeColor = vbRed
            Me("txt" & Mes & cont1).BackColor = 12713921
            Me("txt" & Mes & cont1).FontSize = 8
        End If
        If (num = 2 And (cont1 = 11 Or cont1 = 12 Or cont1 = 13)) Or (num = 3 And cont1 = 29) _
        Or (num = 5 And (cont1 = 30 Or cont1 = 31)) Or (num = 7 And cont1 = 8) _
        Or (num = 11 And cont1 = 16) Or (num = 12 And (cont1 = 24 Or cont1 = 31)) Then
            Me("txt" & Mes & cont1).Value = "PF"
            Me("txt" & Mes & cont1).ForeColor = vbRed
        End If
        If (num = 5 And cont1 = 19) Or (num = 6 And cont1 = 24) Or (num = 10 And cont1 = 28) Then
            Me("txt" & Mes & cont1).Value = "FM"
            Me("txt" & Mes & cont1).ForeColor = vbRed
        End If
        If ((num = 5 And cont1 = 19) Or (num = 6 And cont1 = 24) Or (num = 10 And cont1 = 28)) And Dia = 1 Then
            Me("txt" & Mes & cont1).Value = "FM/D"
            Me("txt" & Mes & cont1).ForeColor = vbRed
            Me("txt" & Mes & cont1).BackColor = 12713921
            Me("txt" & Mes & cont1).FontSize = 8
        End If
        If ((num = 5 And cont1 = 19) Or (num = 6 And cont1 = 24) Or (num = 10 And cont1 = 28)) And Dia = 7 Then
            Me("txt" & Mes & cont1).Value = "FM/S"
            Me("txt" & Mes & cont1).ForeColor = vbRed
            Me("txt" & Mes & cont1).BackColor = 12713921
            Me("txt" & Mes & cont1).FontSize = 8
        End If
        If (num = 7 And cont1 = 9) Then
            Me("txt" & Mes & cont1).Value = "FE"
            Me("txt" & Mes & cont1).ForeColor = vbRed
        End If
        If ((num = 7 And cont1 = 9)) And Dia = 1 Then
            Me("txt" & Mes & cont1).Value = "FE/D"
            Me("txt" & Mes & cont1).ForeColor = vbRed
            Me("txt" & Mes & cont1).FontSize = 8
        End If
        If ((num = 7 And cont1 = 9)) And Dia = 7 Then
            Me("txt" & Mes & cont1).Value = "FE/S"
            Me("txt" & Mes & cont1).ForeColor = vbRed
            Me("txt" & Mes & cont1).FontSize = 8
        End If
        If (num = 10 And cont1 = 15) Then
            Me("txt" & Mes & cont1).Value = "FES"
            Me("txt" & Mes & cont1).ForeColor = vbRed
        End If
        If ((num = 10 And cont1 = 15)) And Dia = 1 Then
            Me("txt" & Mes & cont1).Value = "D"
            Me("txt" & Mes & cont1).ForeColor = 25600
            Me("txt" & Mes & cont1).BackColor = 12713921
            Me("txt" & Mes & cont1).FontBold = True
        End If
        If ((num = 10 And cont1 = 15)) And Dia = 7 Then
            Me("txt" & Mes & cont1).Value = "S"
            Me("txt" & Mes & cont1).ForeColor = 25600
            Me("txt" & Mes & cont1).BackColor = 12713921
            Me("txt" & Mes & cont1).FontBold = True
        End If
        If ((num = 7 And (cont1 > 9 And cont1 <= 20))) Then
            Me("txt" & Mes & cont1).Value = "RE"
            Me("txt" & Mes & cont1).ForeColor = 25600
            Me("txt" & Mes & cont1).BackColor = 65535
            Me("txt" & Mes & cont1).FontBold = True
        End If
        If ((num = 12 And (cont1 > 25 And cont1 <= 28))) Then
            Me("txt" & Mes & cont1).Value = "RE"
            Me("txt" & Mes & cont1).ForeColor = 25600
            Me("txt" & Mes & cont1).BackColor = 65535
            Me("txt" & Mes & cont1).FontBold = True
        End If
        If ((num = 7 And (cont1 > 9 And cont1 <= 20))) And Dia = 1 Then
            Me("txt" & Mes & cont1).Value = "D"
            Me("txt" & Mes & cont1).ForeColor = 25600
            Me("txt" & Mes & cont1).BackColor = 12713921
            Me("txt" & Mes & cont1).FontBold = True
        End If
        If ((num = 7 And (cont1 > 9 And cont1 <= 20))) And Dia = 7 Then
            Me("txt" & Mes & cont1).Value = "S"
            Me("txt" & Mes & cont1).ForeColor = 25600
            Me("txt" & Mes & cont1).BackColor = 12713921
            Me("txt" & Mes & cont1).FontBold = True
        End If
    ‘Se há faltas, seleciona o motive e insere a sigla do mesmo no dia referido, no relatório 
    Else
        Select Case RsFaltas("MOTIVO_FALTA")
            Case "ABONADA"
                Me("txt" & Mes & cont1).Value = "FA"
                Me("txt" & Mes & cont1).ForeColor = 14822282
                Me("txt" & Mes & cont1).FontBold = True
            Case "LICENÇA MÉDICA"
                Me("txt" & Mes & cont1).Value = "LM"
            Case "LICENÇA GESTANTE"
                Me("txt" & Mes & cont1).Value = "LG"
            Case "LICENÇA GALA"
                Me("txt" & Mes & cont1).Value = "LC"
            Case "LICENÇA PRÉ_NATAL"
                Me("txt" & Mes & cont1).Value = "LPN"
            Case "LICENÇA PRÊMIO"
                Me("txt" & Mes & cont1).Value = "LP"
            Case "LICENÇA NOJO"
                Me("txt" & Mes & cont1).Value = "LN"
            ‘Aqui que quero que preencha de acordo com a sequência
            Case "TRE"
                Me("txt" & Mes & cont1).Value = "TRE"
                If IsNull(Me("txtOutros" & RsFaltas.RecordCount).Value) Then
                    Me("txtOutros" & RsFaltas.RecordCount).Value = "TRE - " & RsFaltas("DATA_FALTA")
                    Me("txtOutros" & RsFaltas.RecordCount).FontSize = 8
                End If
            Case "DOAÇÃO DE SANGUE"
                Me("txt" & Mes & cont1).Value = "DS"
                If Me("txtJust" & RsFaltas.RecordCount).Value <> "" Then
                    RsFaltas.MoveNext
                    Me("txtJust" & RsFaltas.RecordCount).Value = "Doação de Sangue - " & RsFaltas("DATA_FALTA")
                    Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
                Else
                    Me("txtJust" & RsFaltas.RecordCount).Value = "Doação de Sangue - " & RsFaltas("DATA_FALTA")
                    Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
                End If
            Case "FALTA INJUSTIFICADA"
                Me("txt" & Mes & cont1).Value = "FI"
                Me("txtInjust" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
            Case "FALTA JUSTIFICADA"
                Me("txt" & Mes & cont1).Value = "FJ"
                Me("txtJust" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
            Case "ATESTADO MÉDICO"
                Me("txt" & Mes & cont1).Value = "FJ"
                If Me("txtJust" & RsFaltas.RecordCount).Value <> "" Then
                    RsFaltas.MoveNext
                    Me("txtJust" & RsFaltas.RecordCount).Value = "Atestado Médico - " & RsFaltas("DATA_FALTA")
                    Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
                Else
                    Me("txtJust" & RsFaltas.RecordCount).Value = "Atestado Médico - " & RsFaltas("DATA_FALTA")
                    Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
                End If
            Case "FALTA HTP"
                Me("txtHTPDataFalta" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
                Me.txtHTPTotalFaltas.Value = RsFaltas.RecordCount
                If rs("CARGO") = "PPI" Then
                    Me("txtHTPHoraFalta" & RsFaltas.RecordCount).Value = ConverteHoraTexto("1")
                Else
                    Me("txtHTPHoraFalta" & RsFaltas.RecordCount).Value = ConverteHoraTexto("2,50")
                End If
        End Select
       
Next cont1

Next num


Alguma ajuda?

Abrasss!!!

Olá Luiz,

Posta aí o bd que ficará mais fácil realizar os testes.

Fala Bom Garoto, blz?

Então, pra chegar no relatório que eu quero vai abrir o BD, MENU, Funcionários, Procura "João" no nome e clica em pesquisar Nome, Impressão de relatórios, Ficha Cem.

Devem acontecer alguns erros bestas pq tive que modificar rapido e pegar só as partes que interessam e mudar para o 2000.

Veja no que pode me auxiliar.

Abrasss!!!

Olá Luiz,

Ao depurar o código pede pela função ConverteHoraTexto. Onde está ela? não a encontrei em seu projeto.

Fala man, esqueci de colar no projeto.
Segue.

abrasss!!!

Olá Luiz,

De qual relatório você está falando?

Ficha CEM. na segunda página, tenho 15 textbox de nome Outros (txtOutros1, txtOutros 2 ... txtOutros 15).
ali serão inseridas as faltas de TRE e gostaria que preenchesse automático. Se todas as text estiverem vazias, joga na txtOutros1, caso a 1 esteja preenchida, vai para a 2 e assim sucessivamente até acabarem as faltas, por exemplo:

Tem funcionário que tirou 6 faltas TRE, então, teria que preencher os txtOutros1, txtOutros2 até o txtOutros6, na ordem de data.

Tendeu?

Abrasss!!!

O que notei ontem no código é que a contagem RsFaltas.RecordCount já chega nas faltas TRE em outra numeração, pois, pega as outras faltas anteriores de motivos diferentes.
Creio que tenho que montar um loop individual para cada tipo de falta, mas não consegui fazê-lo.
Alguma luz?

Olá Luiz,

Está muito complicado entender o teu código. Tudo indica que pode funcionar baseado em sua linha de raciocínio com boa aplicação de métodos, propriedades e funções, mas fica devendo em clareza, isto é, explicações sobre o que faz cada etapa do código. Para testar um campo vazio ou não, nunca é demais testar com If Not IsNull(txtOutros1) Then. Reveja cada etapa, tente suprimir o código que não é necessário.

Faça também o seguinte: Separe o código que não está funcionando e, em um formulário à parte só com os campos necessários, teste o seu looping. Creio que você poderá visualizar melhor onde está o erro e encontrar um solução.

Um abs.

No código que coloquei aqui no tópico explico o que cada parte faz.
Minha única dúvida é nessa parte do preenchimento da 2ª página da FichaCem.
Tentei usar o If, e ele acha sim a que está null, porém fica muito grande.
O que quero é encurtar esse loop.

Abrasss!!!

Olá Luiz,

Quando os meus códigos ficam muito grandes eu os separo em pequenas sub-rotinas. Divida o seu código onde você está tendo dificuldade e teste cada sub-rotina.

Ainda não consegui nada, alguma ajuda por favor?

Abrasss!!!

Olá Luiz,

Verifique esses erros:

(1) Coloque Option Explicit no ambiente de código para aceitar as declarações de variáveis.

(2) ANO = Nz(Form_FichaCem.txtAnoCem.Value, 0)
     
Você erradamente referencia ao campo txtAnoCem

CERTO:  Nz(Forms!FichaCem!txtAnoCem)      'Neste caso o formulário FichaCem precisa estar carregado antes de gerar o relatório.

Todo este código está errado baseado na correção acima:

Private Sub Report_Load()

Dim cont, cont2, intTRE, num, Dia As Integer
Dim Mes, Mes1, ANO As String
Dim db As DAO.Database
Dim RsFaltas, rs As DAO.Recordset
Dim nCount, nCount2, nCount3, nCount4, nRemovida As Integer

Set db = CurrentDb
Set rs = db.OpenRecordset("Select [CARGO], [2013] from tb_Func where [REG_FUNC] = " & Form_Funcionários.txtREG_FUNC & "")

ANO = Nz(Form_FichaCem.txtAnoCem.Value, 0)

Me!txtAno.Value = ANO
Me!txtANO1.Value = ANO - 1

If IsNull(Form_FichaCem.txtFerias1) Then
   Me.txtFerias1.Value = ""
Else
   Me.txtFerias1.Value = " Férias - " & Form_FichaCem.txtFerias1 & " à " & Form_FichaCem.txtFerias2.Value
End If
If IsNull(Form_FichaCem.txtRecesso1) Then
   Me.txtFerias2.Value = ""
Else
   Me.txtFerias2.Value = " Recesso Escolar - " & Form_FichaCem.txtRecesso1 & " à " & Form_FichaCem.txtRecesso2.Value
End If
If IsNull(Form_FichaCem.txtRecesso3) Then
   Me.txtFerias3.Value = ""
Else
   Me.txtFerias3.Value = " Recesso Escolar - " & Form_FichaCem.txtRecesso3 & " à " & Form_FichaCem.txtRecesso4.Value
End If

Me.txtObs1.Value = Form_FichaCem.txtObs1.Value
Me.txtObs2.Value = Form_FichaCem.txtObs2.Value
Me.txtObs3.Value = Form_FichaCem.txtObs3.Value


(3) Não vejo lógica na seguinte linha de código (Já está errado pelas razões acima):

If IsNull(Form_FichaCem.txtFerias1) Then     'Se estiver nulo o campo txtFerias1 deixá-lo nulo ou vazio (?)
  Me.txtFerias1.Value = ""
Else
  Me.txtFerias1.Value = " Férias - " & Form_FichaCem.txtFerias1 & " à " & Form_FichaCem.txtFerias2.Value
End If
If IsNull(Form_FichaCem.txtRecesso1) Then
  Me.txtFerias2.Value = ""
Else
  Me.txtFerias2.Value = " Recesso Escolar - " & Form_FichaCem.txtRecesso1 & " à " & Form_FichaCem.txtRecesso2.Value
End If
If IsNull(Form_FichaCem.txtRecesso3) Then
  Me.txtFerias3.Value = ""
Else
  Me.txtFerias3.Value = " Recesso Escolar - " & Form_FichaCem.txtRecesso3 & " à " & Form_FichaCem.txtRecesso4.Value
End If


(4) Seguindo mais adiante no seu código também está errado pelas mesmas razões do item 2:

For cont1 = 1 To DataFim

Set RsFaltas = db.OpenRecordset("Select * From tb_Faltas_Cartao Where [REG]=" & _
Form_Funcionários.txtREG_FUNC.Value & " And [MES_FALTA]= '" & Mes1 & "'")

Grato pelas dicas Mestre.

Não entendo o pq está errado se está funcionando toda esta parte que me mostrou. Creio que deve ter muita coisa que dá pra melhorar para evitar erros, assim como me mostrou, mas funfa normal.

No (3) o que acontece é o seguinte:

Tenho o campo txtFerias1 no Form_FichaCem e o txtFerias1 no Relatório rel_FichaCem.
Se o do form for nulo (ou vazio), como está acoplado o campo do relatório ao do form, estava dando erro e coloquei este código para pará-lo.

A única coisa que não consegui ainda foi o preenchimento dos textbox conforme forem encontrando as faltas na tabela tb_Faltas_Cartao.
Tentei usar os ifs, Do while, for dentro de for e não deu certo ainda.

Ta osso e a cabeça ta doendo já...hehehe

Depois que conseguir isso vou fazer as melhorias no código, que sei que precisa urgente. rs

Por isso gosto deste fórum, pois, aprendo um pouco com cada mestre e vou melhorando com esses estudos.

Grato pelas dicas, vou usá-las na melhoria do código, mas ainda não resolveu minha duvida.

Help! rs

Abrasss!!!!

Olá Luiz,

Você disse que estava ocorrendo erro no código, certo?

Tenho o campo txtFerias1 no Form_FichaCem e o txtFerias1 no Relatório rel_FichaCem.
Se o do form for nulo (ou vazio), como está acoplado o campo do relatório ao do form, estava dando erro e coloquei este código para pará-lo.


ERRADO:

If IsNull(Form_FichaCem.txtFerias1) Then
  Me.txtFerias1.Value = ""
Else
  Me.txtFerias1.Value = " Férias - " & Form_FichaCem.txtFerias1 & " à " & Form_FichaCem.txtFerias2.Value
End If


CERTO:
Dim sFerias As String
Dim sFerias2 As String

sFerias = Forms!FichaCem!txtFerias1
sFerias2 = Forms!FichaCem!txtFerias2

If Not IsNull(Forms![Form_FichaCem]!txtFerias1) Then
  Me.txtFerias1 = " Férias - '" & sFerias & "' à '" & sFerias2 & "'"
Else
  Exit Sub
End If


.........

Vamos rever o looping:

For cont1 = 1 To DataFim

Set RsFaltas = db.OpenRecordset("Select * From tb_Faltas_Cartao Where [REG]=" & _
Form_Funcionários.txtREG_FUNC.Value & " And [MES_FALTA]= '" & Mes1 & "'")


Tente assim:
Dim sRegFunc As String
sRegFunc = Forms!Funcionários!txtREG

Set RsFaltas = db.OpenRecordset("Select * From tb_Faltas_Cartao Where REG = '" & sRegFunc & "' And [MES_FALTA]= '" & Mes1 & "'")
'Mes1 é uma variável ?

Vou testar Mestre.

Mes1 é uma variável que muda conforme o looping vai acontecendo:

para num = 1 -> Mes1 = janeiro
para num = 2 -> Mes1 = fevereiro

E assim por diante...

Ah, deixa eu perguntar, faz diferença colocar variáveis no lugar da nomenclatura, exemplo que me passou acima?

tipo: sFerias no lugar de Forms!FichaCem!txtFerias

É uma coisa que uso pouco e se melhorar meu código vou passar a usar certeza.

Abrasss!!!

Sem problema. É essa a ideia que eu tentando passar para você, trabalhar com variáveis o máximo possível.

Tentei usar esse modelo:

CERTO:
Dim sFerias As String
Dim sFerias2 As String

sFerias = Forms!FichaCem!txtFerias1
sFerias2 = Forms!FichaCem!txtFerias2

If Not IsNull(Forms![Form_FichaCem]!txtFerias1) Then
 Me.txtFerias1 = " Férias - '" & sFerias & "' à '" & sFerias2 & "'"
Else
 Exit Sub
End If

E deu uso de null inválido.
pq?

Desculpa aí Luiz, me esqueci de incluir a função Nz.

Dim sFerias As String
Dim sFerias2 As String

sFerias = Nz(Forms!FichaCem!txtFerias1)
sFerias2 = Nz(Forms!FichaCem!txtFerias2)

If Not IsNull(Forms![Form_FichaCem]!txtFerias1) Then
Me.txtFerias1 = " Férias - '" & sFerias & "' à '" & sFerias2 & "'"
Else
Exit Sub
End If

Boa Mestre, essa parte funfou.

Código:

strFerias1 = Nz(Forms!FichaCem!txtFerias1)
strFerias2 = Nz(Forms!FichaCem!txtFerias2)
strRec1 = Nz(Forms!FichaCem!txtRecesso1)
strRec2 = Nz(Forms!FichaCem!txtRecesso2)
strRec3 = Nz(Forms!FichaCem!txtRecesso3)
strRec4 = Nz(Forms!FichaCem!txtRecesso4)

If Not IsNull(Forms!FichaCem!txtFerias1) Then
   Me.txtFerias1 = " Férias - " & strFerias1 & " à " & strFerias2 & ""
Else
   Me.txtFerias1 = ""
End If
If Not IsNull(Forms!FichaCem!txtRecesso1) Then
   Me.txtFerias2.Value = " Recesso Escolar - " & strRec1 & " à " & strRec2 & ""
Else
   Me.txtFerias2.Value = ""
End If
If Not IsNull(Forms!FichaCem!txtRecesso3) Then
   Me.txtFerias3.Value = " Recesso Escolar - " & strRec3 & " à " & strRec4 & ""
Else
   Me.txtFerias3.Value = ""
End If

Essa linha depois do Else é para o textBox ficar vazio mesmo.
Inseri variáveis e deu uma melhorada realmente. Vou fazer isso no resto do BD.

Agora me ajuda com o loop das faltas TRE que não ta rolando...hehehe

Abrasss!!!

O problema ta aqui:

Código:

Select Case RsFaltas("MOTIVO_FALTA")
           Case "ABONADA"
               Me("txt" & Mes & cont1).Value = "FA"
               Me("txt" & Mes & cont1).ForeColor = 14822282
               Me("txt" & Mes & cont1).FontBold = True
           Case "LICENÇA MÉDICA"
               Me("txt" & Mes & cont1).Value = "LM"
           Case "LICENÇA GESTANTE"
               Me("txt" & Mes & cont1).Value = "LG"
           Case "LICENÇA GALA"
               Me("txt" & Mes & cont1).Value = "LC"
           Case "LICENÇA PRÉ_NATAL"
               Me("txt" & Mes & cont1).Value = "LPN"
           Case "LICENÇA PRÊMIO"
               Me("txt" & Mes & cont1).Value = "LP"
           Case "LICENÇA NOJO"
               Me("txt" & Mes & cont1).Value = "LN"
           Case "TRE"
               Me("txt" & Mes & cont1).Value = "TRE"
               If IsNull(Me("txtOutros" & RsFaltas.RecordCount).Value) Then
                   If RsFaltas.RecordCount <> 0 Then RsFaltas.MoveNext
                   Me("txtOutros" & RsFaltas.RecordCount).Value = "TRE - " & RsFaltas("DATA_FALTA")
                   Me("txtOutros" & RsFaltas.RecordCount).FontSize = 8
               Else
                   Me("txtOutros" & RsFaltas.RecordCount).Value = "TRE - " & RsFaltas("DATA_FALTA")
                   Me("txtOutros" & RsFaltas.RecordCount).FontSize = 8
               End If
           Case "DOAÇÃO DE SANGUE"
               Me("txt" & Mes & cont1).Value = "DS"
               If Me("txtJust" & RsFaltas.RecordCount).Value <> "" Then
                   RsFaltas.MoveNext
                   Me("txtJust" & RsFaltas.RecordCount).Value = "Doação de Sangue - " & RsFaltas("DATA_FALTA")
                   Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
               Else
                   Me("txtJust" & RsFaltas.RecordCount).Value = "Doação de Sangue - " & RsFaltas("DATA_FALTA")
                   Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
               End If
           Case "FALTA INJUSTIFICADA"
               Me("txt" & Mes & cont1).Value = "FI"
               Me("txtInjust" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
           Case "FALTA JUSTIFICADA"
               Me("txt" & Mes & cont1).Value = "FJ"
               Me("txtJust" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
           Case "ATESTADO MÉDICO"
               Me("txt" & Mes & cont1).Value = "FJ"
               If Me("txtJust" & RsFaltas.RecordCount).Value <> "" Then
                   RsFaltas.MoveNext
                   Me("txtJust" & RsFaltas.RecordCount).Value = "Atestado Médico - " & RsFaltas("DATA_FALTA")
                   Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
               Else
                   Me("txtJust" & RsFaltas.RecordCount).Value = "Atestado Médico - " & RsFaltas("DATA_FALTA")
                   Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
               End If
           Case "FALTA HTP"
               Me("txtHTPDataFalta" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
               Me.txtHTPTotalFaltas.Value = RsFaltas.RecordCount
               If rs("CARGO") = "PPI" Then
                   Me("txtHTPHoraFalta" & RsFaltas.RecordCount).Value = ConverteHoraTexto("1")
               Else
                   Me("txtHTPHoraFalta" & RsFaltas.RecordCount).Value = ConverteHoraTexto("2,50")
               End If
       End Select

Essa parte do código esta dentro de 2 loops. A cada passagem, que equivale a 1 dia de cada mês, ele confere na tabela tb_Faltas_Cartao e procura se naquele dia (cont1), daquele mês (num), existe alguma falta. Se existir, ele pega o motivo e insere  no relatório.
Como são vários motivos, eu tenho certeza que o erro está em usar o RecordCount para nomear as textbox que quero que a falta apareça.
No exemplo Case "TRE" (que é o que que quero), uso o RecordCount para completar o nome da textbox:
assim:

Me("txtOutros" & RsFaltas.RecordCount).Value = "TRE - " & RsFaltas("DATA_FALTA")

Só que como ele confere todos os outros motivos antes, certeza que essa contagem já somou e por isso ele está pulando.
Queria uma solução para isso, pois tenho 15 txtOutros e não tenho um número certo de faltas, por isso queria que passasse pelas text para ver qual está vazia e colocasse as faltas ali.
Exemplificando:


Tenho 4 faltas TRE - 21/10/2013 - 25/11/2103 - 26/11/2013 - 12/12/2013
e 1 Doação de Sangue - 22/10/2013

O certo seria:

txtJust1.value = Doação de Sangue - 22/10/2013

txtOutros1.value = TRE - 21/10/2013
txtOutros2.value = TRE - 25/11/2103
txtOutros3.value = TRE - 26/11/2013
txtOutros4.value = TRE - 12/12/2013

E está acontecendo isso:

txtJust1.value = Doação de Sangue - 22/10/2013

txtOutros3.value = 25/11/2103

E as outras nada.

Deu pra entender a minha bomba? hehehe

Complicado, mas acho que exemplifiquei melhor agora.

Cheque este código no botão Imprimir Relatório do formulário Funcionários:

Private Sub cmdRelatorios_Click()

DoCmd.OpenForm "Relatorios_Func" (Este formulário não existe)

End Sub

Segue arrumado.

Use o funcionário João de REG 5000 para testes.

Cheque aqui neste código onde está em negrito:

For cont1 = 1 To DataFim

Set RsFaltas = db.OpenRecordset("Select * From tb_Faltas_Cartao Where [REG]=" & _
Form_Funcionários.txtREG_FUNC.Value & " And [MES_FALTA]= '" & Mes1 & "'")


   If RsFaltas.RecordCount <> 0 Then RsFaltas.MoveFirst
   RsFaltas.FindFirst "DIA_FALTA=" & cont1
   If RsFaltas.NoMatch Then
       Dia = Weekday(cont1 & "/" & num & "/" & ANO)



......................................................................................................
         Select Case RsFaltas("MOTIVO_FALTA")
           Case "ABONADA"
               Me("txt" & Mes & cont1).Value = "FA"
               Me("txt" & Mes & cont1).ForeColor = 14822282
               Me("txt" & Mes & cont1).FontBold = True
           Case "LICENÇA MÉDICA"
               Me("txt" & Mes & cont1).Value = "LM"
           Case "LICENÇA GESTANTE"
               Me("txt" & Mes & cont1).Value = "LG"
           Case "LICENÇA GALA"
               Me("txt" & Mes & cont1).Value = "LC"
           Case "LICENÇA PRÉ_NATAL"
               Me("txt" & Mes & cont1).Value = "LPN"
           Case "LICENÇA PRÊMIO"
               Me("txt" & Mes & cont1).Value = "LP"
           Case "LICENÇA NOJO"
               Me("txt" & Mes & cont1).Value = "LN"
           Case "TRE"
               Me("txt" & Mes & cont1).Value = "TRE"
               If IsNull(Me("txtOutros" & RsFaltas.RecordCount).Value) Then
                   Me("txtOutros" & RsFaltas.RecordCount).Value = "TRE - " & RsFaltas("DATA_FALTA")
                   Me("txtOutros" & RsFaltas.RecordCount).FontSize = 8
               End If
           Case "DOAÇÃO DE SANGUE"
               Me("txt" & Mes & cont1).Value = "DS"
               If Me("txtJust" & RsFaltas.RecordCount).Value <> "" Then
                   RsFaltas.MoveNext
                   Me("txtJust" & RsFaltas.RecordCount).Value = "Doação de Sangue - " & RsFaltas("DATA_FALTA")
                   Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
               Else
                   Me("txtJust" & RsFaltas.RecordCount).Value = "Doação de Sangue - " & RsFaltas("DATA_FALTA")
                   Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
               End If
           Case "FALTA INJUSTIFICADA"
               Me("txt" & Mes & cont1).Value = "FI"
               Me("txtInjust" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
           Case "FALTA JUSTIFICADA"
               Me("txt" & Mes & cont1).Value = "FJ"
               Me("txtJust" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
           Case "ATESTADO MÉDICO"
               Me("txt" & Mes & cont1).Value = "FJ"
               If Me("txtJust" & RsFaltas.RecordCount).Value <> "" Then
                   RsFaltas.MoveNext
                   Me("txtJust" & RsFaltas.RecordCount).Value = "Atestado Médico - " & RsFaltas("DATA_FALTA")
                   Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
               Else
                   Me("txtJust" & RsFaltas.RecordCount).Value = "Atestado Médico - " & RsFaltas("DATA_FALTA")
                   Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
               End If
           Case "FALTA HTP"
               Me("txtHTPDataFalta" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
               Me.txtHTPTotalFaltas.Value = RsFaltas.RecordCount
               If rs("CARGO") = "PPI" Then
                   Me("txtHTPHoraFalta" & RsFaltas.RecordCount).Value = ConverteHoraTexto("1")
               Else
                   Me("txtHTPHoraFalta" & RsFaltas.RecordCount).Value = ConverteHoraTexto("2,50")
               End If
       End Select


==>Next cont1     'Está faltando o fim do looping com Next cont1


       For cont2 = 1 To 12
           Select Case Form_FichaCem("cmbLic" & cont2).Value
               Case "Licença Médica"
                   Me("txtLic" & cont2).Value = "LM: " & Form_FichaCem("txtLic" & cont2).Value & _
                   " à " & Form_FichaCem("txtLic" & cont2 + 12).Value
               Case "Licença Gestante"
                   Me("txtLic" & cont2).Value = "LG: " & Form_FichaCem("txtLic" & cont2).Value & _
                   " à " & Form_FichaCem("txtLic" & cont2 + 12).Value
               Case "Licença sem Vencimentos"
                   Me("txtLic" & cont2).Value = "LV: " & Form_FichaCem("txtLic" & cont2).Value & _
                   " à " & Form_FichaCem("txtLic" & cont2 + 12).Value
               Case "Licença Gala"
                   Me("txtLic" & cont2).Value = "LC: " & Form_FichaCem("txtLic" & cont2).Value & _
                   " à " & Form_FichaCem("txtLic" & cont2 + 12).Value
               Case "Licença Nojo"
                   Me("txtLic" & cont2).Value = "LN: " & Form_FichaCem("txtLic" & cont2).Value & _
                   " à " & Form_FichaCem("txtLic" & cont2 + 12).Value
           End Select
       Next cont2
       
   End If

Ta mais pra baixo no código.

Luiz,

Um looping dentro de outro looping? Ok. Mas o aninhamento precisa ocorrer de acordo com este modelo abaixo. Talvez seja aí o problema.


Public Sub sumRows(ByVal a(,) As Double, ByRef r() As Double)
Dim i, j As Integer
For i = 0 To UBound(a, 1)
r(i) = 0
For j = 0 To UBound(a, 2)
If a(i, j) > 0 Then
r(i) = r(i) + a(i, j)
End If
Next j
Next i
End Sub

O loop

For num = 1 to 12

é para passar pelos meses

O

for cont1 = 1 to DataFim

Percorre os dias dentro dos meses, por isso não posso separá-los.

OK. Revisei o meu post. O aninhamento de looping pode existir mas conforme o modelo acima.

Como funciona para que eu possa adaptar.
Não sei mexer direito com arrays.

Luiz,

Este é apenas um exemplo com arrays, mas no seu caso não tem nada a ver com arrays. Estude o código e tente fazer as devidas alterações. Para quem não conhece o programa direito, como deve funcionar, só posso dar dicas para quem programou e sabe o que o código faz ou deveria fazer, modificá-lo para que funcione a contento dentro de técnicas padronizadas em programação. Este teu programa quase que deu um nó na minha cabeça.


Tente assim:



For cont1 = 1 To DataFim

Set RsFaltas = db.OpenRecordset("Select * From tb_Faltas_Cartao Where [REG]=" & _
Form_Funcionários.txtREG_FUNC.Value & " And [MES_FALTA]= '" & Mes1 & "'")


If RsFaltas.RecordCount <> 0 Then RsFaltas.MoveFirst
RsFaltas.FindFirst "DIA_FALTA=" & cont1
If RsFaltas.NoMatch Then
Dia = Weekday(cont1 & "/" & num & "/" & ANO)



......................................................................................................
Select Case RsFaltas("MOTIVO_FALTA")
Case "ABONADA"
Me("txt" & Mes & cont1).Value = "FA"
Me("txt" & Mes & cont1).ForeColor = 14822282
Me("txt" & Mes & cont1).FontBold = True
Case "LICENÇA MÉDICA"
Me("txt" & Mes & cont1).Value = "LM"
Case "LICENÇA GESTANTE"
Me("txt" & Mes & cont1).Value = "LG"
Case "LICENÇA GALA"
Me("txt" & Mes & cont1).Value = "LC"
Case "LICENÇA PRÉ_NATAL"
Me("txt" & Mes & cont1).Value = "LPN"
Case "LICENÇA PRÊMIO"
Me("txt" & Mes & cont1).Value = "LP"
Case "LICENÇA NOJO"
Me("txt" & Mes & cont1).Value = "LN"
Case "TRE"
Me("txt" & Mes & cont1).Value = "TRE"
If IsNull(Me("txtOutros" & RsFaltas.RecordCount).Value) Then
Me("txtOutros" & RsFaltas.RecordCount).Value = "TRE - " & RsFaltas("DATA_FALTA")
Me("txtOutros" & RsFaltas.RecordCount).FontSize = 8
End If
Case "DOAÇÃO DE SANGUE"
Me("txt" & Mes & cont1).Value = "DS"
If Me("txtJust" & RsFaltas.RecordCount).Value <> "" Then
RsFaltas.MoveNext
Me("txtJust" & RsFaltas.RecordCount).Value = "Doação de Sangue - " & RsFaltas("DATA_FALTA")
Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
Else
Me("txtJust" & RsFaltas.RecordCount).Value = "Doação de Sangue - " & RsFaltas("DATA_FALTA")
Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
End If
Case "FALTA INJUSTIFICADA"
Me("txt" & Mes & cont1).Value = "FI"
Me("txtInjust" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
Case "FALTA JUSTIFICADA"
Me("txt" & Mes & cont1).Value = "FJ"
Me("txtJust" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
Case "ATESTADO MÉDICO"
Me("txt" & Mes & cont1).Value = "FJ"
If Me("txtJust" & RsFaltas.RecordCount).Value <> "" Then
RsFaltas.MoveNext
Me("txtJust" & RsFaltas.RecordCount).Value = "Atestado Médico - " & RsFaltas("DATA_FALTA")
Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
Else
Me("txtJust" & RsFaltas.RecordCount).Value = "Atestado Médico - " & RsFaltas("DATA_FALTA")
Me("txtJust" & RsFaltas.RecordCount).FontSize = 8
End If
Case "FALTA HTP"
Me("txtHTPDataFalta" & RsFaltas.RecordCount).Value = RsFaltas("DATA_FALTA")
Me.txtHTPTotalFaltas.Value = RsFaltas.RecordCount
If rs("CARGO") = "PPI" Then
Me("txtHTPHoraFalta" & RsFaltas.RecordCount).Value = ConverteHoraTexto("1")
Else
Me("txtHTPHoraFalta" & RsFaltas.RecordCount).Value = ConverteHoraTexto("2,50")
End If
End Select

For cont2 = 1 To 12
Select Case Form_FichaCem("cmbLic" & cont2).Value
Case "Licença Médica"
Me("txtLic" & cont2).Value = "LM: " & Form_FichaCem("txtLic" & cont2).Value & _
" à " & Form_FichaCem("txtLic" & cont2 + 12).Value
Case "Licença Gestante"
Me("txtLic" & cont2).Value = "LG: " & Form_FichaCem("txtLic" & cont2).Value & _
" à " & Form_FichaCem("txtLic" & cont2 + 12).Value
Case "Licença sem Vencimentos"
Me("txtLic" & cont2).Value = "LV: " & Form_FichaCem("txtLic" & cont2).Value & _
" à " & Form_FichaCem("txtLic" & cont2 + 12).Value
Case "Licença Gala"
Me("txtLic" & cont2).Value = "LC: " & Form_FichaCem("txtLic" & cont2).Value & _
" à " & Form_FichaCem("txtLic" & cont2 + 12).Value
Case "Licença Nojo"
Me("txtLic" & cont2).Value = "LN: " & Form_FichaCem("txtLic" & cont2).Value & _
" à " & Form_FichaCem("txtLic" & cont2 + 12).Value
End Select
Next cont1
Next cont2

End If
.

HAHAHAHA.

Imagina na minha que to aprendendo.

Veja a minha dica acima,


Tire um Next num logo abaixo e veja se os IF's logo acima são realmente necessários e inclua-os dentro do looping correto.

Bom dia e boa semana Mestre.

Então, os If´s são necessários sim para o caso da professora ter sido removida para outra escola. Neste caso só são preenchidos os meses de outubro, novembro e dezembro.
O Next num também é necessário, pois é o loop dos meses.
Se eu fizer como exemplificou acima, meus ifs depois do Next cont1 não funcionarão.

Como disse anteriormente, tudo funciona perfeitamente.
A única coisa que não funfa é na hora do preenchimento das textbox da página 2 (verso da Ficha Cem) onde tenho que incluir as datas das faltas como exemplificado nos comentários anteriores.

Sei que o código é confuso e vou melhorá-lo futuramente, mas onde está funcionando não vou mexer no momento até resolver essa pendenga que está me deixando louco (e a você tb creio)! hehehe

Será que chegaremos lá?!

Abrasss!!!

Alguma luz Mestres deste fórum iluminado?

Alguém, por favor?

Nada gente?
Nenhuma dica?
Por favor!

Olá Luiz,

Realmente não estou tendo tempo para analisar melhor o seu código, mas entendo que se você não fizer testes não irá chegar a lugar nenhum. Crie um formulário com somente os campos necessários e com somente o código que está dando erro. Tente explicar dentro do código o que cada parte faz ou o que deveria fazer para facilitar o entendimento dos colegas.

Agradeço muito mesmo sua ajuda.
Você é realmente um Bom Rapaz. rs
Já coloquei o que cada parte faz em comentários acima e o erro que está dando.
Mas, mesmo assim, vou dar um print screen no relatório e vou criar um exemplo com setas e textos para facilitar a visualização.
Ah, testar eu testo todo dia várias opções, mas o erro persiste. (Ta osso!)
Já já coloco esse exemplo.

Abrasss!!!

Bom dia, segue um exemplo que montei no word para visualização do que quero.

Espero que ajude agora.

Grato.

Abrasss!!!

Nenhuma dica depois do exemplo?

Ainda no aguardo...Não consegui nada ainda, ta osso...

Abrasss!!!

Olá feras, blz?

Ainda tenho essa dúvida e não consegui nada, alguém pode, por favor, me ajudar.
Grato!

Boa tarde feras.
Existe algum jeito ou não, de fazer isso que quero.
Apenas me digam se não, que assim desisto.

Grato!

Nem um "Não existe", por favor?

Nada Mestres e amigos???
Pelo menos um "desiste que não dá"...
Por favor!!!!!

Olá Luiz,

Pena que meu tempo é muito escasso que tentaria te ajudar. Os tópicos que procuro responder o faço quando dá para trabalhar nele em pouco tempo. Mas, no seu caso requer mais tempo e este eu não tenho. Se os colegas não responderam é porque devem ter o mesmo problema. Como disse antes, mas agora com mais detalhes. Monte seu aplicativo do zero, refaça os códigos e teste por etapas. Pelo que percebi, você já domina o assunto. Com certeza você vai conseguir chegar lá.

Um grande abs.

Valeu Mestre.
Você deu atenção até demais pro tópico e agradeço muito mesmo por isso.
Já fiz, refiz e não tá dando certo.
Por isso meu desespero...hehehe...
Minha cabeça está explodindo!!! 

Obrigadão!

Abrasss!

Faça o teste só assim e veja se como preenche na boa;

Código:

Private Sub Report_Load()
'By JPaulo © MaximoAccess
Dim db As DAO.Database
Dim RsFaltas As DAO.Recordset

Set db = CurrentDb
Set RsFaltas = db.OpenRecordset("Select DATA_FALTA From tb_Faltas_Cartao where REG= " & Me.txtREG)
      
  Dim yColuna As Integer
    
    RsFaltas.MoveLast
    RsFaltas.MoveFirst
    
    
   For yColuna = 1 To RsFaltas.RecordCount
    For i = 1 To 15 'referente a 15 caixas de texto
    On Error Resume Next
        Me.Controls("txtOutros" & i).Value = RsFaltas!DATA_FALTA
        RsFaltas.MoveNext
    Next
   Next
End Sub


Tive de comentar alguns codigos para poder fazer testes;

E ae, funfou ?

Sem retorno, Resolvido.