Access - dos acciones con un mismo boton. Como?

Debo hacer que una accion desactive una casilla de verificacion y active otra el codigo seria el siguiente:

DoCmd.RunSQL "UPDATE Planes SET Activo = False " & _
"WHERE ((([IDPersona])=" & lstActivo & ") AND ((Activo)=true))"
lstActivo.Requery
lstObs.Requery

eso desactiva el campo "Activo" y debo tambien activar un campo que se llama "Observados" al mismo tiempo que sucede lo anterior.

Aca te pongo el codigo en Basic que creo que necesitas para lo tuyo.

Private Sub Comando3_Click()

Dim base As Database
Dim tabla As Recordset

Set base = OpenDatabase("c:\rodolfo\programacion.mdb")
Set tabla = base.OpenRecordset("tabla1", dbOpenTable)

If tabla.Fields("Id") = "2" Then
Me.Ctl1.Value = False
Me.Ctl2.Value = True
Me.Ctl3.Value = True
Else
MsgBox ("no es igual")
End If

End Sub

Esto es en una base llamada programacion que tiene una tabla denominada "tabla1" dentro del directorio rodolfo en el disco c:
La tabla tiene el campo id y los campos si/no 1, 2 y 3 para las casillas de verificacion del formulario.
Lo que te dice el codigo del boton que agregue al formulario, es que si encuentra el 2 en el campo id, el campo 1 tome el valor falso y los campos 2 y 3 tomen el valor verdadero.
Si la accion que vos queres no depende de ninguna condicion el codigo del boton se acorta a esto

Private Sub Comando3_Click()
Me.Ctl1.Value = False
Me.Ctl2.Value = True
Me.Ctl3.Value = True

End Sub

Espero que te sirva de algo
Saludos