[Resolvido]Atualização de dados como base em outra tabela.

Private Sub SeuBotao_Click()
'By JPaulo ® Maximo Access
On Error Resume Next
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
    Dim strUP As Integer
    Dim strDN As Integer
    Dim i As Integer
    
    'abre o recordset da tabela tbllista
    Set rst = CurrentDb.OpenRecordset("Select * from tbllista Where Registro=" & Me.RegistroF & "")
    'se não existirem registros, o código morre aqui
         If rst.RecordCount = 0 Then Exit Sub
    'extraí o dia inicial
    strUP = Day(Me.Data_Inicial)
    'extraí o dia final
    strDN = Day(Me.Data_Final)
    'vai para o primeiro registro da tabela
    rst.MoveFirst
    'monta o intervalo entre os dias
        For i = strUP To strDN
    'percorre todos os campos da tabela
        For Each fld In rst.Fields
    'se encontrar o campo com o nome igual ao intervalo de dias, faz o update
        If fld.Name = Trim(Str(i)) Then
           rst.Edit
    'update com a letra F
           rst(fld.Name).Value = "F"
           rst.Update
        End If
Next fld
Next
MsgBox "Marcação efetuada com sucesso...", vbInformation
rst.Close
Me.tbllista_subformulário1.Requery
End Sub