En un formulario basado en una consulta desmarcar todos los campos sí/no de esa consulta

Lo que pretendo es hacer una consulta desde un formulario, y en ese formulario tener un botón que al pulsarlo me convierta los campos que estén en sí a no. Los campos son dos uno se llama: [para testante] y el otro [para mi]. Tengo un código de otro formulario que traté de adaptarlo pero que lógicamente no me funciona (en el otro formulario me servía para modificar varios valores de un campo). Seguro que puse barbaridades por no variar ;)

Private Sub Comando17_Click()
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
Application.Echo False
Do Until rst.EOF
  rst.Edit
  rst("para testante") = rst("Para testante") = False
    rst("para mi") = rst("Para mi") = False
  rst.Update
  rst.MoveNext
Loop
Me.Requery
Application.Echo True
Me.Form.Requery
End Sub

1 respuesta

Respuesta
2

I quieres desmarcar los que están marcados, tienes que ponerlo así (habría más formas, pero por seguir tu código):

Do Until rst.EOF
  rst.Edit
  If rst("para testante")=true Then rst("Para testante") = False
  If rst("para mi") = True Then rst("Para mi") = False
  rst.Update
  rst.MoveNext
Loop

Si lo que quieres es cambiar el sentido de todos los cuadros (de verdadero a Falso y viceversa):

Do Until rst.EOF
  rst.Edit
  rst("para testante") = not rst("Para testante") 
  rst("para mi") = not rst("Para mi") 
  rst.Update
  rst.MoveNext
Loop

¡Gracias! La primera posición funciona correctamente, la 2ª no me los marca todos. Debe ser porque el formulario está basado en una consulta en la que tengo que meterle valores para filtrar.

¡Gracias! 

Ya, pero la segunda opción es para invertir las casillas, no marcarlas todas...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas