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

Desculpe a falta de retorno Mestre.
Estava viajando e vou testar amanhã, pois aqui em casa tenho um 64 bits e não funfa alguns controles Active X (PDF) e tenho que testar no trabalho.
Mas, agradeço mesmo assim pela atenção.

Abrass!!!

Fala Mestre.
Desculpe a demora para a resposta, mas estava viajando e entretido com outras tarefas, mas agora testei.
Tive que fazer alguns ajustes, mas funfou sim.
Obrigado mesmo, vc é o cara! rs

Ficou assim seu código com minhas modificações.

Código:

'By JPaulo MaximoAccess
Dim RsFaltas1 As DAO.Recordset
Dim yColuna As Integer
Dim db1 As DAO.Database
Dim I As Integer

Set db1 = CurrentDb

'Preenche os campos relacionados as faltas do tipo TRE
Set RsFaltas1 = db1.OpenRecordset("Select [DATA_FALTA], [MOTIVO_FALTA] From tb_Faltas_Cartao where REG= " & Me.txtREG & " And [MOTIVO_FALTA]= 'TRE'")
 
RsFaltas1.MoveLast
RsFaltas1.MoveFirst
    For yColuna = 1 To RsFaltas1.RecordCount
        For I = 1 To 15 'referente a 15 caixas de texto
            On Error Resume Next
            Me.Controls("txtOutros" & I).Value = RsFaltas1!DATA_FALTA
            RsFaltas1.MoveNext
        Next
    Next
        RsFaltas1.Close
Set RsFaltas1 = Nothing
       
'Preenche os campos relacionados as faltas do tipo FALTA HTP
Set RsFaltas1 = db1.OpenRecordset("Select [DATA_FALTA], [MOTIVO_FALTA] From tb_Faltas_Cartao where REG= " & Me.txtREG & " And [MOTIVO_FALTA]= 'FALTA HTP'")
 
RsFaltas1.MoveLast
RsFaltas1.MoveFirst
    For yColuna = 1 To RsFaltas1.RecordCount
        For I = 1 To 9 'referente a 9 caixas de texto
            On Error Resume Next
            Me.Controls("txtHTPDataFalta" & I).Value = RsFaltas1!DATA_FALTA
            If rs("CARGO") = "PPI" Then
                Me.Controls("txtHTPHoraFalta" & I).Value = ConverteHoraTexto("1")
            Else
                Me.Controls("txtHTPHoraFalta" & I).Value = ConverteHoraTexto("2,50")
            End If

            RsFaltas1.MoveNext
        Next
    Next
        RsFaltas1.Close

Set RsFaltas1 = Nothing

Do jeito que me passou, não separava as faltas pelos tipos. Mas a ideia foi a que me salvou.
Mais uma vez, grato.

Abrasss!!!