[Resolvido]Botão Cancelar

Pessoal, inseri o código abaixo no meu programa para que uma Caixa de mensagem apareça com as opções Sim, Não e Cancelar. Tanto a opção Sim quanto a Não, funcionam perfeitamente. Agora, como faço para que a função Cancelar funcione de modo a apenas a fechar a Caixa de Mensagem sem realizar nenhuma alteração? Tentei inseri-la de várias formas, mas em todas elas, a função Cancelar funciona igual a função Sim, ou seja, ela Salva as alterações.

Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Deseja salvar as alterações no Inquérito " & Format(Me!Inquerito, "000/00") & "?", vbExclamation + vbYesNo, "Confirmação") = vbNo Then
Me.Undo
If Me.Inquerito.Enabled = True Then
Me.Inquerito.Enabled = False
Else
Me.Inquerito.Enabled = False
End If
If Me.DataDeVencimento.Enabled = True Then
Me.DataDeVencimento.Enabled = False
Else
Me.DataDeVencimento.Enabled = False
End If
If Me.Flagrante.Enabled = True Then
Me.Flagrante.Enabled = False
Else
Me.Flagrante.Enabled = False
End If
If Me.Cota.Enabled = True Then
Me.Cota.Enabled = False
Else
Me.Cota.Enabled = False
End If
If Me.Natureza.Enabled = True Then
Me.Natureza.Enabled = False
Else
Me.Natureza.Enabled = False
End If
If Me.Vítima.Enabled = True Then
Me.Vítima.Enabled = False
Else
Me.Vítima.Enabled = False
End If
If Me.Indiciado.Enabled = True Then
Me.Indiciado.Enabled = False
Else
Me.Indiciado.Enabled = False
End If
If Me.Situação.Enabled = True Then
Me.Situação.Enabled = False
Else
Me.Situação.Enabled = False
End If
If Me.Processo.Enabled = True Then
Me.Processo.Enabled = False
Else
Me.Processo.Enabled = False
End If
If Me.Vara.Enabled = True Then
Me.Vara.Enabled = False
Else
Me.Vara.Enabled = False
End If
MsgBox "As alterações não foram salvas.", vbInformation, "Aviso"
Exit Sub
End If
If Me.Inquerito.Enabled = True Then
Me.Inquerito.Enabled = False
Else
Me.Inquerito.Enabled = False
End If
If Me.DataDeVencimento.Enabled = True Then
Me.DataDeVencimento.Enabled = False
Else
Me.DataDeVencimento.Enabled = False
End If
If Me.Flagrante.Enabled = True Then
Me.Flagrante.Enabled = False
Else
Me.Flagrante.Enabled = False
End If
If Me.Cota.Enabled = True Then
Me.Cota.Enabled = False
Else
Me.Cota.Enabled = False
End If
If Me.Natureza.Enabled = True Then
Me.Natureza.Enabled = False
Else
Me.Natureza.Enabled = False
End If
If Me.Vítima.Enabled = True Then
Me.Vítima.Enabled = False
Else
Me.Vítima.Enabled = False
End If
If Me.Indiciado.Enabled = True Then
Me.Indiciado.Enabled = False
Else
Me.Indiciado.Enabled = False
End If
If Me.Situação.Enabled = True Then
Me.Situação.Enabled = False
Else
Me.Situação.Enabled = False
End If
If Me.Processo.Enabled = True Then
Me.Processo.Enabled = False
Else
Me.Processo.Enabled = False
End If
If Me.Vara.Enabled = True Then
Me.Vara.Enabled = False
Else
Me.Vara.Enabled = False
End If
Me.sfrmHistoricos.Requery
MsgBox "As alterações foram salvas com sucesso.", vbInformation, "Aviso"
End Sub

Você está a referir-se ao =vbNo ?????

Outra coisa que não entendo nesse extenso pergaminho é:

If Verdadeiro Then
Falso
Else
Falso
End If

O Else em todas as instruçoes serve para ??????????????

Veja se o simples funfa:



Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Deseja salvar as alterações no Inquérito " & Format(Me!Inquerito, "000/00") & "?", vbExclamation + vbYesNo, "Confirmação") = vbNo Then
Me.Undo
MsgBox "As alterações não foram salvas.", vbInformation, "Aviso"
Exit Sub
ElseIf Me.Inquerito.Enabled = True Then
Me.Inquerito.Enabled = False
ElseIf Me.DataDeVencimento.Enabled = True Then
Me.DataDeVencimento.Enabled = False
ElseIf Me.Flagrante.Enabled = True Then
Me.Flagrante.Enabled = False
ElseIf Me.Cota.Enabled = True Then
Me.Cota.Enabled = False
ElseIf Me.Natureza.Enabled = True Then
Me.Natureza.Enabled = False
ElseIf Me.Vítima.Enabled = True Then
Me.Vítima.Enabled = False
ElseIf Me.Indiciado.Enabled = True Then
Me.Indiciado.Enabled = False
ElseIf Me.Situação.Enabled = True Then
Me.Situação.Enabled = False
ElseIf Me.Processo.Enabled = True Then
Me.Processo.Enabled = False
ElseIf Me.Vara.Enabled = True Then
Me.Vara.Enabled = False
ElseIf Me.Inquerito.Enabled = True Then
Me.Inquerito.Enabled = False
ElseIf Me.DataDeVencimento.Enabled = True Then
Me.DataDeVencimento.Enabled = False
ElseIf Me.Flagrante.Enabled = True Then
Me.Flagrante.Enabled = False
ElseIf Me.Cota.Enabled = True Then
Me.Cota.Enabled = False
ElseIf Me.Natureza.Enabled = True Then
Me.Natureza.Enabled = False
ElseIf Me.Vítima.Enabled = True Then
Me.Vítima.Enabled = False
ElseIf Me.Indiciado.Enabled = True Then
Me.Indiciado.Enabled = False
ElseIf Me.Situação.Enabled = True Then
Me.Situação.Enabled = False
ElseIf Me.Processo.Enabled = True Then
Me.Processo.Enabled = False
ElseIf Me.Vara.Enabled = True Then
Me.Vara.Enabled = False
End If
Me.sfrmHistoricos.Requery
MsgBox "As alterações foram salvas com sucesso.", vbInformation, "Aviso"
End Sub

É que existe um segundo botão "Atualizar" e para qualquer alteração, deve-se clicar nele para ativar as caixas de textos.
Caso as caixas estejam ativadas e se clica em Sim para salvar, ele salva e desativas as caixas de textos. Se estiverem desativadas, elas continuam desativadas.
Vai que alguém realize uma alteração e clique em Atualizar antes de Salvar, ao clicar em Sim ou Não, como está desativado, ele iria ativá-lo. Não sei se fui claro.

Do modo que eu inseri aqui. Se clicar em Não, o código vai desfazer todas as alterações, desativar as caixas de texto e exibir uma mensagem de que não foram salvas. Caso clique em Sim, ele salva e desativa as caixas de texto.

Agora, eu queria inserir a opção Cancelar na caixa de mensagem para cancelá-la e voltar ao formulário.

Gostaria de que fosse a MsgBox("Deseja salvar as alterações no Inquérito " & Format(Me!Inquerito, "000/00") & "?", vbExclamation + vbYesNoCancel.....

com a opção Cancelar. Mas não conseigo configurá-la para que funcione.

Isso quer dizer, como você tem acima está perfeito e funcional, é isso ?

Utilize o Select Case



Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim x As String
x = MsgBox("Deseja salvar as alterações no Inquérito " & Format(Me!Inquerito, "000/00") & "?", vbExclamation + vbYesNoCancel, "Confirmação")
Select Case x

Case vbNo
Me.Undo
'Bla bla bla bla
Case vbYes
'Bla bla bla bla
Case vbCancel
DoCmd.CancelEvent
Exit Sub
End Select
End Sub

Ai, Caramba!!!
Perfeito! Simples e direto. Pensei de muitas maneiras, mas pelo Select Case nem havia passado pela minha cabeça!
Obrigado, JPaulo.

Valew o forum agradece o seu retorno.