Set Tabla = CurrentDb.OpenRecordset("DatosCliente", dbOpenDynaset)
Tabla.MoveLast
Tabla.MoveFirst
For k = 0 To Tabla.RecordCount - 1
Tabla.Edit
Tabla.Fields(2) = False
Tabla.Update
Tabla.MoveNext
Next

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

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