... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Interceptar cancelamento do InputBox

Com a função StrPtr() é possível interceptar se a caixa de entrada InputBox foi cancelada ou fechada pelo usuário. 

Usando Access - InputBox

Nos dois casos, a função StrPtr() retorna o valor zero(0) :

Dim x as Variant
x = InputBox("Clique em cancelar ou fechar", "Testando Cancelar")
If StrPtr(x) = 0 Then
   MsgBox "Você cancelou!"
Else
  'Trabalhe aqui o valor informado.
End If

Agora, se desejar também, detectar se o usuário clicou no botão OK sem ter entrado com a informação na caixa de texto, basta verificar se a variável x, que é do tipo Variant,  continua com o seu valor padrão Empty (vazio).

Dim x as Variant
x = InputBox("Clique em cancelar ou fechar", "Testando Cancelar")
If x = empty Then
   MsgBox "Você cancelou ou clicou no botão OK sem entrar com o valor...!"
Else
  'Trabalhe aqui o valor x informado.
End If

Bom estudo!


 

 


Não há comentário

Envie seu comentário: