Error 401
Publicado por Antonio Belando (93 intervenciones) el 09/02/2009 07:18:00
He terminado la aplicación que estaba realizando, último ejercicio del libro VISUAL BASIC 6 A FONDO.
Antes de crear el exe y hacer el empaquetado, he ejecutado la aplicación, incluso con CONTROL+F5, y no me ha dado ningún error.
Sin embargo al ejecutar el exe generado, tengo el error:
Error ‘401’ en tiempo de ejecución :
No se puede mostrar un formulario no modal cuando se muestra un formulario modal
Este error sigue apareciendo al ejecutar Agenda.exe nada más ejecutar, por lo que no puedo entrar en el programa.
El motivo se debe a que en el formulario inicial se controla si esta o no dado de alta el usuario del equipo y si no está aparece un MsgBox:
Private Sub MDIForm_Load()
Dim NombreUsuario As String * 20
Dim res
Dim ErrorUsu As String
……
……
ErrorUsu = GetUserName(NombreUsuario, 15)
TUsu.Find "Usuario = '" & ErrorUsu & "'"
If TUsu.EOF() Then
res = MsgBox("¿Desea darse de alta en la agenda?", vbQuestion + vbYesNo)
If res = vbNo Then
Menú.WindowState = 1
Tiempo.Enabled = False
Else
Menú.WindowState = 2
Tiempo.Enabled = False
End If
End If
End Sub
¿Cómo podría solucionar estos errores?
Saludos cordiales,
Antonio
Antes de crear el exe y hacer el empaquetado, he ejecutado la aplicación, incluso con CONTROL+F5, y no me ha dado ningún error.
Sin embargo al ejecutar el exe generado, tengo el error:
Error ‘401’ en tiempo de ejecución :
No se puede mostrar un formulario no modal cuando se muestra un formulario modal
Este error sigue apareciendo al ejecutar Agenda.exe nada más ejecutar, por lo que no puedo entrar en el programa.
El motivo se debe a que en el formulario inicial se controla si esta o no dado de alta el usuario del equipo y si no está aparece un MsgBox:
Private Sub MDIForm_Load()
Dim NombreUsuario As String * 20
Dim res
Dim ErrorUsu As String
……
……
ErrorUsu = GetUserName(NombreUsuario, 15)
TUsu.Find "Usuario = '" & ErrorUsu & "'"
If TUsu.EOF() Then
res = MsgBox("¿Desea darse de alta en la agenda?", vbQuestion + vbYesNo)
If res = vbNo Then
Menú.WindowState = 1
Tiempo.Enabled = False
Else
Menú.WindowState = 2
Tiempo.Enabled = False
End If
End If
End Sub
¿Cómo podría solucionar estos errores?
Saludos cordiales,
Antonio
Valora esta pregunta


0