Mensagem de Alerta pedindo confirmação[RESOLVIDO]

#1

Boa tarde, estou com um projeto, tenho um Xcontrol com um botão de “Abrir” uma válvula, mas a pedido do cliente preciso que ao clicar no “Abrir”, preciso que abra uma mensagem de alerta pedindo se o operador tem certeza que quer “Abrir”, se ele confirmar fecha a mensagem e abre a válvula e se ele clicar em “Não” apenas fecha a popup e nada acontece. Tem algum exemplo ou sugestão de como posso fazer isso?

#2 
Sub CommandButton4_Click()
	If MsgBox("Tem certeza que deseja ABRIR a válvula?", _
				vbYesNo, "Atenção") = vbYes Then
		' Caso sim
	Else
		' Caso nao
	End If
End Sub
1 Like
#3

Muito obrigado, funcionou! Eu estava usando este exemplo: https://kb.elipse.com.br/kb33779-comando-messagebox/; e apresentava erros de script.