Visual Basic - Error 401

Life is soft - evento anual de software empresarial
 
Vista:

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
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