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

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)