Distinguir entre botón Aceptar y Cancelar de un InputBox

Mi Nombre

unread,

Apr 3, 2009, 4:28:16 AM4/3/09

to

Hola a todos. A ver si me podeis ayudar. Me gustaría poder distinguir
entre la pulsación del botón Cancelar en un InputBox y el botón
Aceptar sin haber escrito nada. En ambos casos se devuelve la cadena
vacia, pero me hace falta distinguir entre uno y otro, ya que en un
caso quiero efectivamente Cancelar la actualización de un dato y en
otro caso quiero Aceptar que un dato se actualice a vacio. Gracias y
un saludo.

Gaby_Arjona

unread,

Apr 4, 2009, 1:04:00 AM4/4/09

to

Hola,
cuando usas inputbox el resultado se guarda en un valor si el valor es
"" se asume que se presionó cancelar, ejemplo :
valor = inputbox("hola mundo","hola mundo")
if valor = "" then
msgbox "no se ingresó nada..."
else
msgbox "algo se ingresó.."
endif

*nota, aunque ingreses algo en la caja de texto al presionar cancelar
el valor ingresado será "".
Saludos,
Gaby.

correoparah...@gmail.com

unread,

Apr 7, 2009, 5:12:19 AM4/7/09

to

Eso no soluciona el problema. La cuestión es distinguir entre la
cadena vacia devuelta por la pulsación del botón de Cancelar y dejar
en blanco el contenido del InputBox y pulsar el botón de Aceptar.
Ejemplo: en un campo tengo una fecha y un botón. Al pulsar el botón
tengo la posibilidad de cambiar la fecha o borrarla. Si pulso el botón
me aparece el inputbox preguntándome por la nueva fecha. Si pulso
Cancelar lo que hago es eso, cancelar, sin hacer ningún cambio en el
campo. Sin embargo, no escribo nada en el inputbox y pulso Aceptar, lo
que quiero hacer es borrar la fecha del campo.

Leandro Gado

unread,

Apr 7, 2009, 5:38:39 AM4/7/09

to

Que yo sepa, no hay otra manera de distinguirlo que usando «StrPtr»:
http://groups.google.es/group/microsoft.public.es.vb/msg/3dea0b63ab74029d

__________ Information from ESET Smart Security, version of virus signature database 3991 (20090407) __________

The message was checked by ESET Smart Security.

http://www.eset.com

Gonzalez@discussions.microsoft.com Eudo Gonzalez

unread,

Jun 25, 2009, 12:11:01 PM6/25/09

to

En el caso de visual basic para excel, solucione el problema con esta rutina:

nombre = Application.InputBox(Prompt:="Nombre", Title:="Personal a incluir",
Type:=2)
If nombre = falso Then
Exit Sub
End If
If nombre = "" Then
MsgBox "Debes introducir el nombre del empleado", MsgBoxStyle.Critical
Exit Sub
End If
ListBox1.AddItem nombre

Cosimo

unread,

Jun 29, 2009, 10:53:08 AM6/29/09

to

Hola, mira esto:

Respuesta = MsgBox("Realizados 3 intentos erroneos", vbCritical, "Tanto por
Ciento")
El valor retornado (Respuesta) por la funci�n MsgBox indica qu� bot�n se ha
pulsado
(1=Aceptar, 2=Cancelar, 3=Anular, 4=Reintentar, 5=Ignorar, 6=S�, 7=No).

Saludos

--
"Eudo Gonzalez" <Eudo Gonz...@discussions.microsoft.com> escribi� en el
mensaje news:602FA6D2-B265-44CE...@microsoft.com...

Mario Reynoso

unread,

Jun 29, 2009, 2:19:07 PM6/29/09

to

Dim strTemp As String

strTemp = InputBox("Ingrese cualquier cosa", "Título")
If StrPtr(strTemp) = vbEmpty Then
MsgBox "Ha presionado cancelar", vbExclamation, "Aviso"
Else
'Ha presionado Aceptar
End If

--
Eudo Gonzalez escribió:

--
Mario Reynoso
KIPU Tec, S.A.

Correo electrónico / e-mail:
mreynoso arroba itelgua punto com

Blog
http://mario-reynoso.blogspot.com

Este mensaje se proporciona "TAL CUAL", sin garantías y no otorga ningún
derecho.