Sólo para entendidos
Publicado por Javier (18 intervenciones) el 13/07/2001 22:22:52
Hice esta pequeña rutina para poder ir cargando los forms seleccionándolo de un combobox (CmbForm).
Compile el programa y lo instalé en varias máquinas. En algunas me funcionó perfectamente, pero en otras cuando ejecuta “Set xForm = Forms.Add(CmbForm.Text)” sale el mensaje que está abajo.
Lo curioso es que en la máquina que lo ejecuté, si lo corro desde el VisualBasic el programa corre perfectamente, pero si corro el ejecutable me aparece el mensaje y se cierra el programa.
Mi pregunta es : A qué se debe el problema y cómo puedo solucionarlo?
---------------------------------------------------------------------------------------------------
Dim xForm As Form
lblExiste = False
For Each xForm In Forms
If xForm.Name = LsvTran.SelectedItem.Key Then
xForm.Show
lblExiste = True
Exit For
End If
Next xForm
If Not lblExiste Then
Set xForm = Forms.Add(CmbForm.Text)
xForm.Caption = LblDescripcion.Caption
xForm.Show
End If
---------------------------------------------------------------------------------------------------
El mensaje que aparece es el siguiente:
Error '-2147417848(80010108)
Error de Automatización
Compile el programa y lo instalé en varias máquinas. En algunas me funcionó perfectamente, pero en otras cuando ejecuta “Set xForm = Forms.Add(CmbForm.Text)” sale el mensaje que está abajo.
Lo curioso es que en la máquina que lo ejecuté, si lo corro desde el VisualBasic el programa corre perfectamente, pero si corro el ejecutable me aparece el mensaje y se cierra el programa.
Mi pregunta es : A qué se debe el problema y cómo puedo solucionarlo?
---------------------------------------------------------------------------------------------------
Dim xForm As Form
lblExiste = False
For Each xForm In Forms
If xForm.Name = LsvTran.SelectedItem.Key Then
xForm.Show
lblExiste = True
Exit For
End If
Next xForm
If Not lblExiste Then
Set xForm = Forms.Add(CmbForm.Text)
xForm.Caption = LblDescripcion.Caption
xForm.Show
End If
---------------------------------------------------------------------------------------------------
El mensaje que aparece es el siguiente:
Error '-2147417848(80010108)
Error de Automatización
Valora esta pregunta
0