Error al recorrer una colección
Publicado por Martin (3 intervenciones) el 24/08/2017 15:29:13
Hola, que tal.
Estoy intentando recorrer una colección a través de un bucle dentro de una función y me tira object variable or with block variable not set cuando comienza a recorrer el for:
Les dejo el código:
Saludos!
Estoy intentando recorrer una colección a través de un bucle dentro de una función y me tira object variable or with block variable not set cuando comienza a recorrer el for:
Les dejo el código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function CargaGrillaComers(pr As Collection)
Dim rs As New ADODB.RecordsetSet rs = New ADODB.Recordset
Dim sSql As String
sSql = ""
sSql = sSql & "Select * from Comers "
sSql = sSql & "and Prestamo" & ArmaCadena(pr)
If Conectar() Then
rs.CursorLocation = adUseClient
rs.Open sSql, CN
Set Comers.grGrilla.DataSource = rs
End If
End Function
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function ArmaCadena(COL As Collection)
i = 1sSql = "" & "in ("
For i = i To COL.Count --------------------> Aquí me tira el errorsSql = sSql & COL.Item(i) & ","
Next
sSql = Left(sSql, Len(sSql) - 1)
sSql = sSql & ")"
End Function
Saludos!
Valora esta pregunta
0