Dim Tabla As Recordset
Set Tabla = CurrentDb.OpenRecordset("Tabla o Consulta", dbOpenDynaset)
Tabla.MoveFirst
While Not Tabla.EOF
    Tabla.Edit
    Tabla!SiNo = True
    Tabla.Update
    Tabla.MoveNext
Wend