Botón para borrar casilla verificación y campos de registros filtrados en un formulario continuo.

Si no utiliza fecha tendría preguntar si actualiza el recordset, observe este ejemplo

Hago clic en en el botón Preparar y hago clic en Sí y obtengo:

Si vuelvo hacer clic en el botón Preparar obtengo:

Utilizo una bandera para de tipo Boolean y la defino a nivel del formulario, sirve para controlar que no se repita la actualización mientras este activo el formulario, salvo que se cierre y se vuelva a abrir:

VARIABLE A NIVEL DE FORMULARIO

Option Compare Database
Option Explicit
Dim flag As Boolean

CÓDIGO DEL BOTÓN PREPARAR

Private Sub btnPreparar_Click()
 Dim miRS As Recordset
 If flag = True Then
   MsgBox "Ya actualizo el formulario", vbInformation, "Cuidado..."
   Exit Sub
 End If
 If MsgBox("¿Está seguro que actualiza el recordset?", vbQuestion + vbYesNo + vbDefaultButton2, "Le informo..") = vbNo Then
   Exit Sub
 End If
 Set miRS = Me.RecordsetClone
 miRS.MoveFirst
 With miRS
   Do Until .EOF()
      .Edit
        !pagadoinquilino = False
        !pagadoapropietario = False
        !luz = False
        !agua = False
        !gas = False
        !otros = False
        .Update
     .MoveNext
   Loop
 End With
 Me.Refresh
 Set miRS = Nothing
 flag = True
End Sub

Esta es una idea, pueda que otro salgo con otra alternativa.

Gracias a ambos por las respuestas.

Eduardo, sobre tu propuesta, y disculpa mi falta de conocimiento, dónde debería coloca la declaración?:

Option Compare Database
Option Explicit
Dim flag As Boolean

supongo que al principio del formulario, pero me da un error en la línea .Edit 

He utilizado el código solo que he cambiado el nombre del botón por "Restablecer".

Añadir que la cosa es algo más complicada, ya que el formulario donde están los campos a "vaciar" es un subformulario (AlquilerControlRentasSub) que está en vista Hoja de datos...

No importa, en este caso cambia un poco el código porque se debe hacer referencia a un subformulario:

Abro el formulario

Al hace clic en el botón Limpiar se hace lo mismo que en el anterior ejemplo.

Option Compare Database
Option Explicit
Dim flag As Boolean

Este código va en General del formulario principal,  observe la imagen

CODIGO DEL BOTON LIMPIAR

Private Sub btnLimpiar_Click()
 Dim miRS As Recordset
 If flag = True Then
   MsgBox "Ya actualizo el formulario", vbInformation, "Cuidado..."
   Exit Sub
 End If
 If MsgBox("¿Está seguro que actualiza el recordset?", vbQuestion + vbYesNo + vbDefaultButton2, "Le informo..") = vbNo Then
   Exit Sub
 End If
 Set miRS = Me.frmServicios.Form.RecordsetClone
 miRS.MoveFirst
 With miRS
   Do Until .EOF()
      .Edit
        !pagadoinquilino = False
        !pagadoapropietario = False
        !luz = False
        !agua = False
        !gas = False
        !otros = False
        .Update
     .MoveNext
   Loop
 End With
 Me.Refresh
 Set miRS = Nothing
 flag = True
End Sub

Observe que solo cambie esta línea

Set miRS = Me.frmServicios.Form.RecordsetClone

Porque, ahora el formulario servicios es un subformulario dentro el formulario frmPrincipal.

Y para el error revise estas referencias:

Si quiere envíeme la base de datos a [email protected] y miro que puedo hacer, favor en el asunto anotar la consulta.

Disculpad por el retraso, ando un poco liado con trabajo.

He sustituido en el código el nombre de subformulario pero me sigue dando un error. Hay algo que no estoy haciendo bien...

No se ve ningún campo fecha que permita determinar en que mes se está, por lo que sería muy conveniente que pusieras una imagen del formulario para ver, entre otras cosas, donde quieres poner el botón.

Así, a bote pronto podrías hacerlo, por ejemplo, en el evento Al activar el registro, con un código tipo

If me.newrec then

pagadoinquilino=0

pagadoapropietario=0

...

end if

O sea, si es un registro nuevo que ponga a "cero" las casillas.

también se podría usar algo como

For Each Control In Form.Controls
If Control.ControlType = acCheckBox Then
Control.Value = 0
End If
Next

Eso te pone a 0 todas las casillas del formulario

Por eso sería muy importante saber como es.

Gracias Julián. 

Realmente la fecha del mes no es un dato importante ya que se limpia todos los meses y partimos de cero. En el formulario tengo un botón que me genera un pdf con el título que le indico para quedar posteriormente archivado.

Gracias!