ERROR 381
Publicado por Adriana (15 intervenciones) el 21/08/2006 16:08:54
Hola que tal, saben tengo un problema con mi combo, los resultados arrojados de una busqueda tienen que ser agregados al combo, para ello utilizo un do while para que busque y si encuentra agrega, sin embargo a la hora de intentar agregar me genera el
Error 381 en tiempo de ejecucion:
El indice de la matriz de propiedades no es valido
Acudí a esta pagina :
http://msdn2.microsoft.com/es-es/library/ysbytaax.aspx
pero no me saco de dudas, alguien podria ayudarme... plis!!!!
Cabe mencionar que ya he usado el combo de la misma forma y nunca habia generado error.
Aquí les pongo el codigo:
Private Sub BuscarImgnFolio()
Dim BuscarFolioImg As String
Dim h As Integer
Dim FolioE As String
h = 1
Adodc2.Recordset.MoveFirst
FolioE = Text7(1).Text
BuscarFolioImg = "Folio like '*" & FolioE & "*'"
Do Until Adodc2.Recordset.EOF
Adodc2.Recordset.Find BuscarFolioImg
If Adodc2.Recordset.EOF = True Then Exit Sub
ListaFotos.list(h) = Adodc2.Recordset("Imagen")
h = h + 1
Adodc2.Recordset.MoveNext
Loop
Adodc2.Recordset.MoveFirst
End Sub
Error 381 en tiempo de ejecucion:
El indice de la matriz de propiedades no es valido
Acudí a esta pagina :
http://msdn2.microsoft.com/es-es/library/ysbytaax.aspx
pero no me saco de dudas, alguien podria ayudarme... plis!!!!
Cabe mencionar que ya he usado el combo de la misma forma y nunca habia generado error.
Aquí les pongo el codigo:
Private Sub BuscarImgnFolio()
Dim BuscarFolioImg As String
Dim h As Integer
Dim FolioE As String
h = 1
Adodc2.Recordset.MoveFirst
FolioE = Text7(1).Text
BuscarFolioImg = "Folio like '*" & FolioE & "*'"
Do Until Adodc2.Recordset.EOF
Adodc2.Recordset.Find BuscarFolioImg
If Adodc2.Recordset.EOF = True Then Exit Sub
ListaFotos.list(h) = Adodc2.Recordset("Imagen")
h = h + 1
Adodc2.Recordset.MoveNext
Loop
Adodc2.Recordset.MoveFirst
End Sub
Valora esta pregunta


0