... Pague apenas R$47,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


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: