MsgBox en cmdEditar
En Excel tengo un form de VBA. Tengo un cmdEditar con un msgBox para que al presionar el botón cmdEditar me pregunte si quiero o no seguir. Si le digo SI, todo procede perfecto, edita y limpia todos los TextBox y ComboBox, si le digo NO, no sigue, la edición se anula pero, no me limpia Los TextBox ni el ComboBox.
If MsgBox(" CUIDADO, va a EDITAR el contacto?" & vbCrLf & vbCrLf & ComboDoble.List(ComboDoble.ListIndex) _
& vbCrLf & vbCrLf & "No tiene vuelta atrás, Responda, EDITAR ¿SI o NO?", vbInformation + vbYesNo + vbDefaultButton2, "EDITAR CONTACTO") _
= vbNo Then Exit Sub
Para la limpieza uso el cmdLimpiarTodo_Click de un botón cmdLimpiarTodo que tengo en el formulario.
No sé si mejor subir el libro para mejor visión, entendimiento y ejecución para llegar a un buen término.
En un botón cmdEliminar, si funciona todo a perfección, tanto si le digo Si o No pero la rutina no compagina porque intente darle la misma al cmdEditar y no resulta.
Espero su ayuda con su reconocida experiencia
If MsgBox(" CUIDADO, va a EDITAR el contacto?" & vbCrLf & vbCrLf & ComboDoble.List(ComboDoble.ListIndex) _
& vbCrLf & vbCrLf & "No tiene vuelta atrás, Responda, EDITAR ¿SI o NO?", vbInformation + vbYesNo + vbDefaultButton2, "EDITAR CONTACTO") _
= vbNo Then Exit Sub
Para la limpieza uso el cmdLimpiarTodo_Click de un botón cmdLimpiarTodo que tengo en el formulario.
No sé si mejor subir el libro para mejor visión, entendimiento y ejecución para llegar a un buen término.
En un botón cmdEliminar, si funciona todo a perfección, tanto si le digo Si o No pero la rutina no compagina porque intente darle la misma al cmdEditar y no resulta.
Espero su ayuda con su reconocida experiencia
{"Lat":6.27656642730192,"Lng":-75.5794787406921}
1 respuesta
Respuesta de ayconcol
-1