Ver Mensaje Individual
  #8 (permalink)  
Antiguo 09/01/2012, 18:35
Avatar de gasuton
gasuton
 
Fecha de Ingreso: octubre-2010
Ubicación: Abandonware
Mensajes: 132
Antigüedad: 13 años, 6 meses
Puntos: 2
Sonrisa Respuesta: Como programar Msgbox aceptar y cancelar

Cita:
Iniciado por juancarlosto Ver Mensaje
Correcto eso es lo que necesito
ok entonces lo que tienes que usar es mas o menos lo siguiente:

Código:
Private Sub CommandButton2_Click()

Dim mensaje As String

mensaje = MsgBox ("DESEA INGRESAR UNA NUEVA RUTA?", vbOKCancel, "CONFIRMACION")

if mensaje = vbOK then

ComboBox1.Enabled = True
ComboBox2.Enabled = True
ComboBox3.Enabled = True
ComboBox4.Enabled = True
ComboBox5.Enabled = True
TextBox32.Enabled = True
TextBox33.Enabled = True
TextBox34.Enabled = True
TextBox35.Enabled = True
TextBox36.Enabled = True
TextBox37.Enabled = True
TextBox38.Enabled = True
TextBox39.Enabled = True
OptionButton1.Enabled = True
OptionButton2.Enabled = True

ComboBox1.Text = vbNullString
ComboBox2.Text = vbNullString
ComboBox3.Text = vbNullString
ComboBox4.Text = vbNullString
ComboBox5.Text = vbNullString
TextBox32.Text = vbNullString
TextBox33.Text = vbNullString
TextBox34.Text = vbNullString
TextBox35.Text = vbNullString
TextBox36.Text = vbNullString
TextBox37.Text = vbNullString
TextBox38.Text = vbNullString
TextBox39.Text = vbNullString

else

TextBox32.SetFocus

end if

end sub
checa esto y cuentanos como te fue.

Saludos
__________________
Ley numero 1: Si tu sistema falla seguro es una problema con la inteface entre el teclado y la silla.
Ley numero 2: El programador jamas tiene la culpa.
Ley numero 3: no me acuerdo