Dim MiRecordSet As DAO.Recordset
Dim MiTabla As DAO.Database
Dim MiFiltro As Variant
Dim MiSql As String
MiFiltro = Me!frmPagosFacturas.Form.Filter
MiSql = "SELECT Facturas_2020.* FROM Facturas_2020 WHERE "
Set MiRecordSet = CurrentDb.OpenRecordset(MiSql, 1)
MiRecordSet.MoveFirst
Do While Not MiRecordSet.EOF
MiRecordSet.Edit
MiRecordSet!NumAdok = "999"
MiRecordSet!FechaAdok = #12/12/2020#
MiRecordSet.Update
MiRecordSet.MoveNext
Loop