Ayuda error 401 VB 6.0 Profesional
Publicado por Hector (1 intervención) el 19/07/2012 20:25:35
Buen día
Tengo un problema con una aplicación que diseñe en VB 6.0, la cual se estaba ejecutando sin ningún problema ni contratiempo, sin embargo de pronto comenzó a arrojar el error en tiempo de ejecución.
el error que me manda es el 401
Error '401' en tiempo de ejecucion:
No se puede mostrar un formulario no modal cuando se muestra un formulario modal.
como señale con anterioridad, la aplicación ya se estaba ejecutando correctamente y de pronto tuvo este comportamiento agradezco de antemano su atención y ayuda.
específicamente el error se me presenta cuando presiono un Command2_click .
el código es el siguiente.
Private Sub Command2 _Click
Form6.label13.caption=""
If text2.text="" then
Msgbox "escanee el codigo uno "
else
if text2.text<>label2.caption then
msgbox "verifique el codigo"
text2.text=""
end if
end if
if text1.text<>"" then
if text2.text=label2.caption then
msgbox "validado"
form4.visible=false
Form6.show
else
if text1.text=""
msgbox " Escanee el codigo correcto"
end if
end if
end if
End sub
*Por cierto ya probe con
Unload Form4
Unload Me
Form4 hide
Y sigue lo mismo. :(
Tengo un problema con una aplicación que diseñe en VB 6.0, la cual se estaba ejecutando sin ningún problema ni contratiempo, sin embargo de pronto comenzó a arrojar el error en tiempo de ejecución.
el error que me manda es el 401
Error '401' en tiempo de ejecucion:
No se puede mostrar un formulario no modal cuando se muestra un formulario modal.
como señale con anterioridad, la aplicación ya se estaba ejecutando correctamente y de pronto tuvo este comportamiento agradezco de antemano su atención y ayuda.
específicamente el error se me presenta cuando presiono un Command2_click .
el código es el siguiente.
Private Sub Command2 _Click
Form6.label13.caption=""
If text2.text="" then
Msgbox "escanee el codigo uno "
else
if text2.text<>label2.caption then
msgbox "verifique el codigo"
text2.text=""
end if
end if
if text1.text<>"" then
if text2.text=label2.caption then
msgbox "validado"
form4.visible=false
Form6.show
else
if text1.text=""
msgbox " Escanee el codigo correcto"
end if
end if
end if
End sub
*Por cierto ya probe con
Unload Form4
Unload Me
Form4 hide
Y sigue lo mismo. :(
Valora esta pregunta


0