Hola Ayuda en botón Usuario activado desactivado

Hola, utilice este código en el evento "antes de actualizar" y me sirvió el problema es que me deshabilita todos los registros siguientes al estar desactivado el botón de casilla de verificacion

Private Sub Activo_BeforeUpdate(Cancel As Integer)
If Me![Activo].Value = -1 Then
Me![No DE FOLIO].Enabled = True
Me![NOMBRES].Enabled = True
Me![APELLIDOS].Enabled = True
Else
Me![No DE FOLIO].Enabled = False
Me![NOMBRES].Enabled = False
Me![APELLIDOS].Enabled = False
End If
End Sub

Agradezco su ayuda