Pregunta: | 65473 - ERROR 3265 CUANDO CARGO UN COMBO CON INFO DE BD |
Autor: | martin raimundo |
Hola, quiero cargar una info de una tabla a un combo y me tira el error 3265, no se encontro el elemento en esta coleccion. iql = "select cargo from especial" Set Rs = base.OpenRecordset(iql, dbOpenDynaset) If Rs.RecordCount > 0 Then Call CargoCombo(CMBCARGO) Hasta aca va bien, despues el proceso de cargocombo del modulo que es este de abajo, me tira error: Public Sub CargoCombo(Cont As Control) ' Cont.Clear If Rs.RecordCount <> 0 Then Do While Not Rs.EOF Cont.AddItem Trim(Rs(Cont.DataField)) /// Aca me marca el error If Cont.Tag <> "" Then Cont.ItemData(Cont.ListCount - 1) = IIf(VarType(Rs(Cont.Tag)) = 8, Asc(Rs(Cont.Tag)), Rs(Cont.Tag)) Rs.MoveNext Loop Rs.MoveFirst End If End Sub Ya busque en la red los posibles errores y nada lo pudo solucionar. |