Problema con InputBox, URGENTE
A ver si alguien me puede decir como se controla en un input box, cuando se pincha en el boton \'Aceptar\', y cuando en el de \'Cancelar\', independientemente de que hayas escrito algo o no en el inputbox, sin tener que utilizar la propiedad default del input box, porque quiero que dandole a aceptar, entre a otro formulario, y al darle a cancelar, vuelva al menu principal.
Gracias.
Gracias.
Bien...
Tal vez no entendi bien el problema pero ¿porque no utilizas mejosnla funcion MsgBox? Mira el siguiente ejemplo... Pega un CommanButton en un Form y pega las siguientes lineas en (General) (Declaraciones)
Private Sub Command1_Click()
Dim Respuesta As Integer
Respuesta = MsgBox("Mensaje aqui", vbOKCancel + vbQuestion, "Titulo aqui")
If Respuesta = vbOK Then
'Aqui va codigo cuando se pulsa Aceptar
MsgBox "Has precionado: Aceptar"
ElseIf Respuesta = vbCancel Then
'Aqui va codigo cuando se pulsa Cancelar
MsgBox "Has precionado: Cancelar"
End If
End Sub
Aqui se distingue que presionon el usuario: Aceptar, Camcelar o cualquier otro que tu le indiques...
Espero que te sea util
Tal vez no entendi bien el problema pero ¿porque no utilizas mejosnla funcion MsgBox? Mira el siguiente ejemplo... Pega un CommanButton en un Form y pega las siguientes lineas en (General) (Declaraciones)
Private Sub Command1_Click()
Dim Respuesta As Integer
Respuesta = MsgBox("Mensaje aqui", vbOKCancel + vbQuestion, "Titulo aqui")
If Respuesta = vbOK Then
'Aqui va codigo cuando se pulsa Aceptar
MsgBox "Has precionado: Aceptar"
ElseIf Respuesta = vbCancel Then
'Aqui va codigo cuando se pulsa Cancelar
MsgBox "Has precionado: Cancelar"
End If
End Sub
Aqui se distingue que presionon el usuario: Aceptar, Camcelar o cualquier otro que tu le indiques...
Espero que te sea util
Intenta no usar un inputbox nunca ... solo para uso de pruebas... no es una buena salida...
prueba colocando un salto de error...
On error go to a:
rutina
exit sub
a:
msgbox "error al abrir archivo"
frm_x.show
end sub
okis????
si te sirve esto pos la lo tienes... sino.. te acosejaria mirases la ayuda... o probaras de idear otra cosa..
prueba colocando un salto de error...
On error go to a:
rutina
exit sub
a:
msgbox "error al abrir archivo"
frm_x.show
end sub
okis????
si te sirve esto pos la lo tienes... sino.. te acosejaria mirases la ayuda... o probaras de idear otra cosa..
