Error de Automatización -2147417848(80010108)
Publicado por Javier (18 intervenciones) el 13/07/2001 22:34:03
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?
Es un problema de alguna dll?
-------------------------------------------------------
Dim xForm As Form
Dim lblExiste as Boolean
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
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?
Es un problema de alguna dll?
-------------------------------------------------------
Dim xForm As Form
Dim lblExiste as Boolean
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