[Resolvido]Correr registros da tabela em loop

Olá aos caros senhores e amigos.

Cá estou eu com uma situação aparentemente simples, mas está me tomando o sono.

Tenho um form baseado numa tabela, nele tenho um botão que ao ser clicado move um arquivo baseado no registro selecionado, na tabela tenho o nome do arquivo; o caminho de origem; o caminho de destino e uma caixa seleção.
Isso funciona bem, mas...

Sempre temos um mas...

Quando são vários registros isso leva um certo tempo para ser feito...

Gostaria de ao clicar no botão, o código corresse a tabela e todo registro cuja caixa seleção estivesse marcada, fosse movendo o respectivo arquivo da origem para o destino... e os não marcados fossem ignorados.

Seria Possível tal façanha?

Grato a todos que puderem me dar um norte.

Estou usando Windows 10 e Office 2013 32 bits

Bom día Waltair

Envia as partes envolvidas do seu form

Saludos

Olá Franklin, Valeu por responder tão rápido...

Hoje mesmo consegui fazer funcionar adaptando um código postado aqui que originalmente excluía os arquivos do diretório...

A partir daí foi fácil adaptar o danado... Segue abaixo o código alterado para mais algum colega com o mesmo problema..

Código:

Private Sub Cmd_001_Click() ' Desliga ABA do Sistema
 On Error Resume Next
  Dim fso1
  Dim folder As String
  folder = Me.CaminhoDir ' Caminho da pasta
  Set fso1 = CreateObject("Scripting.FileSystemObject")
  
  If fso1.FolderExists(folder) Then
   Dim rs As Recordset
    Set rs = Me.Form.Recordset
    rs.MoveFirst
    Do While Not rs.EOF
    With rs
    .Edit
    If Me.Tick = "SIM" Then ' Caso esteja marcado como "SIM" a ABA ? Desligada
     Dim FSO
     Dim file As String, sfol As String, dfol As String
     file = Me.arquivos & ".group" ' Nome da ABA a ser desligada
     sfol = Me.CaminhoOrigem ' Caminho de Origem
     dfol = Me.CaminhoDestino ' Caminho de Destino
     Set FSO = CreateObject("Scripting.FileSystemObject")
     Me.Filtro.Value = "Desligada"

     If Not FSO.FileExists(sfol & file) Then ' Caso o arquivo ja exista no destico
      MsgBox "A Aba '" & Me.arquivos & "' J? Foi Desligada Antes!", vbExclamation, "Precesso Cancelado!"
      Me.Filtro.Value = "Desligada" ' Muda o valor do filtro para "Desliga"
     ElseIf Not FSO.FileExists(dfol & file) Then
      FSO.MoveFile (sfol & file), dfol
     Else
      MsgBox "Desligada!", vbExclamation, "Sucesso"
     End If
    End If
      
   .MoveNext
   End With
   Loop
   rs.Close
   Set rs = Nothing
   Me.Form.Refresh
   Me.Requery
  
   MsgBox "Rotina Concluida!", vbInformation, "Processo Finalizado!"
   DoCmd.Close ' Fecha o form ap?s a conclus?o das altera??es
  Else
   MsgBox "Primeiro Click Em '" & Me.Cmd002.Caption & "' Para Criar o diret?rio!", vbCritical, "A??o Cancelada!"
  End If
End Sub

Abraço e muito obrigado pelo retorno Franklin

Estou usando Windows 10 e Access2013 32 bits

Boa noite,

Faltou o "Resolvido"

Ops! Valeu Alexandre... falha técnica

Abraço...

Obrigado Pela contribuição meus amigos...