tengo un form que al inciar debe rellenar ciertos ComboBox, tengo problemas con unos en especial, los cuales se rellenan a partir de una función que invoca datos desde SQL SERVER. El asunto está en que cuando pongo la instrucción Call llenarInstrumentos(cmbCVinstr)
en el evento Initialize
y hago el Load
del form, me marca el error siguiente:
Se ha producido el error -2147352571(800200005) en tiempo de ejecución:
No se puede configurar la propiedad List. Los tipos no coinciden
Vale decir que cmbCVinstr
es un ejemplo de los combobox que utilizan esta rutina. La conexión al servidor se hace por aparte y es independiente de este form, por lo que el problema es este último. Dicha conexión se utliza para otros forms y rutinas similares alimentan correctamente esos forms, la diferencia primordial está en que esos forms que sí funcionan son una sola columna pero no sé si eso tenga algo que ver con que no reconozca el combobox.
Por último, haciendo pruebas con ese evento (borrando y agregando el comando) me di cuenta de que el problema es esa rutina específicamente porque fuera de ella todo corre con normalidad.
El código de la función es:
Sub llenarInstrumentos(ByVal cb As ComboBox)
instrumentos = "SELECT * FROM [pruebaEDGE].[dbo].[InstrumentosPiP] ORDER BY [TdValor] ASC"
Set rs = CreateObject("ADODB.recordset")
rs.Open instrumentos, cn
If Not rs.EOF Then
i = 0
cb.ColumnCount = 3
cb.ColumnWidths = "210 pt;0 pt;0 pt"
Do Until rs.EOF
With cb
.AddItem rs.Fields("Descrip") & " (" & rs.Fields("TdValor") & ")", i
.List(i, 1) = rs.Fields("Tipo")
.List(i, 2) = rs.Fields("Id")
End With
i = i + 1
rs.movenext
Loop
End If
rs.Close
Set rs = Nothing
End Sub
columncount
en modo diseño y aún me bota que no encuentra la propiedad.list
(ni.column
)