Problema con CheckBox
Tengo un problema,quiero que cuando pinche en un checkbox me salga un mensaje(me sale),y si en el mensaje le dices que no,se quede en el estado que estaba al principio el checkbox.Tengo este c贸digo y no me sale:
Private Sub chkAnulado_Click()
Dim respuesta As Integer
If chkAnulado.Value = 0 Then
respuesta = MsgBox("¿Seguro que el pedido no est谩 anulado?", vbYesNo, "Desanular pedido")
If respuesta = 7 Then
chkAnulado.Value = 0
End If
Else
respuesta = MsgBox("¿Seguro que quiere anular el pedido?", vbYesNo, "Anular pedido")
If respuesta = 7 Then
chkAnulado.Value = 1
End If
End If
End Sub
Private Sub chkAnulado_Click()
Dim respuesta As Integer
If chkAnulado.Value = 0 Then
respuesta = MsgBox("¿Seguro que el pedido no est谩 anulado?", vbYesNo, "Desanular pedido")
If respuesta = 7 Then
chkAnulado.Value = 0
End If
Else
respuesta = MsgBox("¿Seguro que quiere anular el pedido?", vbYesNo, "Anular pedido")
If respuesta = 7 Then
chkAnulado.Value = 1
End If
End If
End Sub
Ya me di cuenta de que los values estaban al rev茅s,pero ahora tengo otro problema.como nada mas pinchar en el checkbox se marca,si luego a trav茅s de c贸digo lo pones como estaba anteriormente es como si le hicieses otro click y entonces me sale el otro mensaje¿C贸mo lo puedo arreglar?