‘**********Codigo 1 *****************
Sub apo()


Set system = CreateObject("EXTRA.System")
    If (system Is Nothing) Then
       
        Set system = CreateObject("EXTRA.System")
    End If
    Set sessions = system.sessions

    If (sessions Is Nothing) Then
        Exit Sub
    End If
    Set Sess0 = system.ActiveSession
    If (Sess0 Is Nothing) Then
       
        Exit Sub
    End If
    If Not Sess0.Visible Then Sess0.Visible = True
    
    Sess0.Screen.waithostquiet (5)
    
  
    
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM [Tb_Horista]"
    DoCmd.SetWarnings True
    
    DoCmd.Close acForm, "F1"
   
        Set dbs = CurrentDb
    Set T = dbs.OpenRecordset("Pesquisa")
    Set s = dbs.OpenRecordset("Tb_Horista")
    Set m = dbs.OpenRecordset("TB_Del")
   

    
  
    
 
    
               Sess0.Screen.Row = 2
               Sess0.Screen.Col = 24
               Sess0.Screen.SendKeys ("<EraseEOF>")
               Sess0.Screen.SendKeys ("12")
               
               Sess0.Screen.Row = 2
               Sess0.Screen.Col = 34
               Sess0.Screen.SendKeys ("<EraseEOF>")
               Sess0.Screen.SendKeys ("02")
        
               Sess0.Screen.Row = 3
               Sess0.Screen.Col = 33
               Sess0.Screen.SendKeys ("<EraseEOF>")
               Mee = InputBox("Digite o Męs")
               Sess0.Screen.SendKeys (Mee)
              
               
               
               Sess0.Screen.Row = 3
               Sess0.Screen.Col = 44
               Sess0.Screen.SendKeys ("<EraseEOF>")
               aee = InputBox("Digite o Ano")
               Sess0.Screen.SendKeys (aee)
               
               
               
               
        Do Until T.EOF
        
               Sess0.Screen.Row = 2
               Sess0.Screen.Col = 49
               Sess0.Screen.SendKeys ("<EraseEOF>")
               Sess0.Screen.SendKeys (Trim(T!Reg))
  
               Sess0.Screen.SendKeys ("<Enter>")
               
               While (Sess0.Screen.Col <> 24)
               Wend
               
               
sobe:
               Sess0.Screen.waithostquiet (5)
    
               For x = 9 To 19
               
               If Trim(Sess0.Screen.GetString(x - 1, 3, 2)) = "31" Then
               'MsgBox "pare"
               GoTo DESCE
               End If
               
               
               
   
               a = Trim(Sess0.Screen.GetString(x, 6, 5))
               
               
               If Trim(Sess0.Screen.GetString(x, 3, 2)) = "--" Then
               GoTo sai
               End If
               
               
               If a = "" Then
               a = 0
               End If
      
              Sess0.Screen.waithostquiet (5)
              
               s.addnew
               s!Reg = T!Reg
               s!Nome = T!Nome
               s!Mes = Mee
               s!cod = Trim(Sess0.Screen.GetString(x, 24, 4))
               s!Dia = Trim(Sess0.Screen.GetString(x, 3, 2))
               
               
               If Trim(Sess0.Screen.GetString(x, 41, 5)) = "" Then
               s!Extra1 = 0
               Else: s!Extra1 = Trim(Sess0.Screen.GetString(x, 41, 5)) * 1
               End If
               
               If Trim(Sess0.Screen.GetString(x, 47, 5)) = "" Then
               s!Extra2 = 0
               Else: s!Extra2 = Trim(Sess0.Screen.GetString(x, 47, 5)) * 1
               End If
               
               If Trim(Sess0.Screen.GetString(x, 53, 5)) = "" Then
               s!Extra3 = 0
               Else: s!Extra3 = Trim(Sess0.Screen.GetString(x, 53, 5)) * 1
               End If
               
               If Trim(Sess0.Screen.GetString(x, 59, 5)) = "" Then
               s!Extra4 = 0
               Else: s!Extra4 = Trim(Sess0.Screen.GetString(x, 59, 5)) * 1
               End If
               
               If Trim(Sess0.Screen.GetString(x, 65, 5)) = "" Then
               s!Extra5 = 0
               Else: s!Extra5 = Trim(Sess0.Screen.GetString(x, 65, 5)) * 1
               End If
               
               If Trim(Sess0.Screen.GetString(x, 71, 5)) = "" Then
               s!Extra6 = 0
               Else: s!Extra6 = Trim(Sess0.Screen.GetString(x, 71, 5)) * 1
               End If
               
               
            m1 = a * 1
            If Right(m1, 2) >= 60 Then
            m1 = m1 + 40
            End If

               s!Horas = (m1)
               s.update
               
               

               Next


   tela = Trim(Sess0.Screen.GetString(19, 3, 2))
               
            If (tela = "10" Or tela = "11") Then




               Sess0.Screen.waithostquiet (5)
               Sess0.Screen.Col = 34
               
               Sess0.Screen.SendKeys ("<Pa1>")
               
               While (Sess0.Screen.Col <> 24)
               Wend
               
               Sess0.Screen.waithostquiet (5)
               
                GoTo sobe
               End If


sai:
DESCE:
           
            T.movenext
    
         Loop
         
         
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM [TB_Del]"
    DoCmd.OpenQuery "Salva_TB_Del"
    
  
    
    Set dbs = CurrentDb
    Set m = dbs.OpenRecordset("TB_Del")
    
    DoCmd.RunSQL "DELETE * FROM [TB_BKP] where [mes]='" & (m!Mes) & "' And [Ano] = '" & (m!ano) & "'"
    DoCmd.OpenQuery "Adiciona_TB_BKP"
    DoCmd.SetWarnings True
         
         
         
         DoCmd.OpenForm "F1", acNormal, "", "", , acNormal
         
         
  

MsgBox "Dados Carregados Com Sucesso !"

End Sub





‘**********     Codigo 2            *****************

Sub apo()


Set system = CreateObject("EXTRA.System")
    If (system Is Nothing) Then
       
        Set system = CreateObject("EXTRA.System")
    End If
    Set sessions = system.sessions

    If (sessions Is Nothing) Then
        Exit Sub
    End If
    Set Sess0 = system.ActiveSession
    If (Sess0 Is Nothing) Then
       
        Exit Sub
    End If
    If Not Sess0.Visible Then Sess0.Visible = True
    
    Sess0.Screen.waithostquiet (5)
    
  
    
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM [Tb_Horista]"
    DoCmd.SetWarnings True
    
    DoCmd.Close acForm, "F1"
   
        Set dbs = CurrentDb
    Set T = dbs.OpenRecordset("Pesquisa")
    Set s = dbs.OpenRecordset("Tb_Horista")
    Set m = dbs.OpenRecordset("TB_Del")
   

    
  
    
 
    
               Sess0.Screen.Row = 2
               Sess0.Screen.Col = 24
               Sess0.Screen.SendKeys ("<EraseEOF>")
               Sess0.Screen.SendKeys ("12")
               
               Sess0.Screen.Row = 2
               Sess0.Screen.Col = 34
               Sess0.Screen.SendKeys ("<EraseEOF>")
               Sess0.Screen.SendKeys ("02")
        
               Sess0.Screen.Row = 3
               Sess0.Screen.Col = 33
               Sess0.Screen.SendKeys ("<EraseEOF>")
               Mee = InputBox("Digite o Męs")
               Sess0.Screen.SendKeys (Mee)
              
               
               
               Sess0.Screen.Row = 3
               Sess0.Screen.Col = 44
               Sess0.Screen.SendKeys ("<EraseEOF>")
               aee = InputBox("Digite o Ano")
               Sess0.Screen.SendKeys (aee)
               
               
               
               
        Do Until T.EOF
        
               Sess0.Screen.Row = 2
               Sess0.Screen.Col = 49
               Sess0.Screen.SendKeys ("<EraseEOF>")
               Sess0.Screen.SendKeys (Trim(T!Reg))
  
               Sess0.Screen.SendKeys ("<Enter>")
               
               While (Sess0.Screen.Col <> 24)
               Wend
               
               
sobe:
               Sess0.Screen.waithostquiet (5)
    
               For x = 9 To 19
               
               If Trim(Sess0.Screen.GetString(x - 1, 3, 2)) = "31" Then
               'MsgBox "pare"
               GoTo DESCE
               End If
               
               
               
   
               a = Trim(Sess0.Screen.GetString(x, 6, 5))
               
               
               If Trim(Sess0.Screen.GetString(x, 3, 2)) = "--" Then
               GoTo sai
               End If
               
               
               If a = "" Then
               a = 0
               End If
      
              Sess0.Screen.waithostquiet (5)
              
               s.addnew
               s!Reg = T!Reg
               s!Nome = T!Nome
               s!Mes = Mee
               s!cod = Trim(Sess0.Screen.GetString(x, 24, 4))
               s!Dia = Trim(Sess0.Screen.GetString(x, 3, 2))
               
               
               If Trim(Sess0.Screen.GetString(x, 41, 5)) = "" Then
               s!Extra1 = 0
               Else: s!Extra1 = Trim(Sess0.Screen.GetString(x, 41, 5)) * 1
               End If
               
               If Trim(Sess0.Screen.GetString(x, 47, 5)) = "" Then
               s!Extra2 = 0
               Else: s!Extra2 = Trim(Sess0.Screen.GetString(x, 47, 5)) * 1
               End If
               
               If Trim(Sess0.Screen.GetString(x, 53, 5)) = "" Then
               s!Extra3 = 0
               Else: s!Extra3 = Trim(Sess0.Screen.GetString(x, 53, 5)) * 1
               End If
               
               If Trim(Sess0.Screen.GetString(x, 59, 5)) = "" Then
               s!Extra4 = 0
               Else: s!Extra4 = Trim(Sess0.Screen.GetString(x, 59, 5)) * 1
               End If
               
               If Trim(Sess0.Screen.GetString(x, 65, 5)) = "" Then
               s!Extra5 = 0
               Else: s!Extra5 = Trim(Sess0.Screen.GetString(x, 65, 5)) * 1
               End If
               
               If Trim(Sess0.Screen.GetString(x, 71, 5)) = "" Then
               s!Extra6 = 0
               Else: s!Extra6 = Trim(Sess0.Screen.GetString(x, 71, 5)) * 1
               End If
               
               
            m1 = a * 1
            If Right(m1, 2) >= 60 Then
            m1 = m1 + 40
            End If

               s!Horas = (m1)
               s.update
               
               

               Next


             tela = Trim(Sess0.Screen.GetString(9, 3, 2))
               
               If (tela <> "20" And tela <> "21" And tela <> "22" And tela <> "23" And tela <> "24") Then
               




               Sess0.Screen.waithostquiet (5)
               Sess0.Screen.Col = 34
               
               Sess0.Screen.SendKeys ("<Pa1>")
               
               While (Sess0.Screen.Col <> 24)
               Wend
               
               Sess0.Screen.waithostquiet (5)
               
                GoTo sobe
               End If


sai:
DESCE:
           
            T.movenext
    
         Loop
         
         
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM [TB_Del]"
    DoCmd.OpenQuery "Salva_TB_Del"
    
  
    
    Set dbs = CurrentDb
    Set m = dbs.OpenRecordset("TB_Del")
    
    DoCmd.RunSQL "DELETE * FROM [TB_BKP] where [mes]='" & (m!Mes) & "' And [Ano] = '" & (m!ano) & "'"
    DoCmd.OpenQuery "Adiciona_TB_BKP"
    DoCmd.SetWarnings True
         
         
         
         DoCmd.OpenForm "F1", acNormal, "", "", , acNormal
         
         
  

MsgBox "Dados Carregados Com Sucesso !"

End Sub