Cancelar o fechamento do formulário

Olá Pessoal!

Estou com o seguinte problema:

Eu quero que ao fechar um formulário, apareça as opções para salvar, não salvar ou cancelar o fechamento, para isso coloquei o seguinte código:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
Dim msg
strMsg = "Deseja salvar as alterações na cidade?"
x = MsgBox(strMsg, vbQuestion + vbYesNoCancel, "Salvar cidade?")

Select Case x
   Case vbYes
   msg = MsgBox("Cidade cadastrada com sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "AVISO")

   Case vbNo
   DoCmd.RunCommand acCmdUndo
   
   Case vbCancel
   DoCmd.CancelEvent
   
End Select
End Sub

Quando clico em salvar ou não salvar, funciona perfeitamente, mas quando clico em cancelar aparece a mensagem, conforme imagem anexa.

Como faço para corrigir esse erro, sendo que o formulário não salve o registro e nem feche o formulário?

Desde já agradeço.

Amigo se não estiver enganado, vc deve definir o valor da variável x como boolean.

Abraços,

Obrigado pela ajuda amigo!

A mensagem de erro realmente deixou de aparecer, porém quando eu clico em "Cancelar" o formulário salva o registro e fecha, eu quero justamento o contrário, que o formulário não salve o registro e nem feche o formulário.

Pode me ajudar?

Amigo tente assim:

Código:



Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim strMsg As String
Dim x as Integer
 
strMsg = "Deseja salvar as alterações na cidade?"


x = MsgBox(strMsg, vbQuestion + vbYesNoCancel, "Salvar cidade?")

  Select Case x

      Case 6 'vbYes

        MsgBox("Cidade cadastrada com sucesso!", vbExclamation, "AVISO")
          Exit sub
 
      Case 7 'vbNo
 
          DoCmd.RunCommand acCmdUndo
 
      Case 2 'vbCancel
 
          Exit sub
 
    End Select

End Sub