Visual Basic para Aplicaciones - programar Msgbox

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 177
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

programar Msgbox

Publicado por Albert (204 intervenciones) el 09/01/2009 17:27:33
Buenas tardes foreros, se puede programar el boton de aceptar en un MsgBox?
(no puedo poner mas que un boton y solo se programar cuando tienes opciones)
tengo este codigo en un formulario de pagina multiple

If Usf_Gastos.TextBox87 = "" Then
MsgBox "Falta la Fecha"
Usf_Gastos.TextBox87.BackColor = RGB(30, 244, 45)
Usf_Gastos.TextBox87.SetFocus
Exit Sub
End If

La cosa es que el boton que lanza la rutina esta en la hoja 2 y el textbox en la 1 al emplear el setfocus me da un error al no estar la pagina 1 activa, he pensado en poner en el boton "Aceptar" del msgbox la siguiente instrucción.

MultiPage1.Value = 0

Que me volveria a la pagina 1 y asi el set focus funcionaria bien.

Igual hay otra solución mas facil, seguro jejejeje,

Gracias de antemano por vuestro tiempo y saber
Albert
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:programar Msgbox

Publicado por JuanC (565 intervenciones) el 09/01/2009 17:56:37
por qué no pones

MsgBox "Falta la Fecha"
Usf_Gastos.TextBox87.BackColor = RGB(30, 244, 45)
MultiPage1.Value = 0
Usf_Gastos.TextBox87.SetFocus

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 177
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

RE:programar Msgbox

Publicado por albert (204 intervenciones) el 09/01/2009 18:26:41
Gracias por tu pronta respuesta
Es lo primero que intente y me da el error 424 en tiempo de ejecución
también he probado con:

If Usf_Gastos.ComboBox87 = "" Then
respuesta = MsgBox("Falta fecha")
If respuesta = 1 Then
'MultiPage1.Value = 0

Usf_Gastos.ComboBox87.BackStyle = fmBackStyleOpaque
etc....

pero tampoco me funciona, me da el mismo error

Gracias de nuevo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:programar Msgbox

Publicado por JuanC (565 intervenciones) el 09/01/2009 19:40:31
te recomiendo que depures el código paso a paso poniendo un punto de interrupción y veas cuál es la línea que genera el error
también deberías leer en la ayuda respecto al error 424
(busca en la ayuda "errores interceptables")

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar