SoloCodigo

Planteo una función, con bastantes bloques if, recorre dos colecciones y carga datos a la bd y a otra colección; no se, al ejecutar el programa y llamarla se cuelga visual, pero no me doy cuenta porq? No tira error, les pongo el cod. de la función, no sé si servirá de algo pero por lo menos quizas alguna idea de que puede ser,  , MUCHAS GRACIAS...

[/CODE]
Public Function RECIBOSXCATEGORIA(idcat As Integer, numeroinicial As Long, dia As Integer, mes As Integer, año As Integer) As Collection
Dim COLFAMILIAR As Collection
Dim COLTITULAR As Collection
Set COLFAMILIAR = clpAfiliado2.CargarTodos
Set COLTITULAR = clpAfiliado1.CargarTodos
Dim i, j, X As Long
For i = 1 To COLFAMILIAR.Count
    For j = 1 To COLTITULAR.Count
    If idcat = COLTITULAR.Item(j).IdCategoria And idcat = COLFAMILIAR.Item(i).IdCategoria Then
        X = 0
        If COLFAMILIAR.Item(i).ID = COLTITULAR.Item(j).ID Then
        Set clreciboCat1 = New cReciboCat1
            X = 1
            If X = 1 Then
                X = 2
                clreciboCat1.NombreFamiliar2 = COLFAMILIAR.Item(i).nombre
                End If
            ElseIf X = 2 Then
                X = 3
                clreciboCat1.NombreFamiliar2 = COLFAMILIAR.Item(i).nombre
                End If
            ElseIf X = 3 Then
                X = 4
                clreciboCat1.NombreFamiliar3 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 4 Then
                X = 5
                clreciboCat1.NombreFamiliar4 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 5 Then
                X = 6
                clreciboCat1.NombreFamiliar5 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 6 Then
                X = 7
                clreciboCat1.NombreFamiliar6 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 7 Then
                X = 8
                clreciboCat1.NombreFamiliar7 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 8 Then
                X = 9
                clreciboCat1.NombreFamiliar8 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 9 Then
                X = 10
                clreciboCat1.NombreFamiliar10 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 10 Then
                X = 11
                clreciboCat1.NombreFamiliar10 = COLFAMILIAR.Item(i).nombre
                End If
            If X = 11 Then
                X = 11
                clreciboCat1.NombreFamiliar11 = COLFAMILIAR.Item(i).nombre
        Set CLCAT = CLDCAT.Cargarxid(COLFAMILIAR.Item(i).IdCategoria)
        clreciboCat1.ID = CLDCAT.NuevoID
        clreciboCat1.numeroinicial = numeroinicial
        clreciboCat1.Numero = cldrecibocat.Nuevonumero
        clreciboCat1.nombre = COLTITULAR.Item(j).nombre
        clreciboCat1.Valor = CLCAT.Valor
        clreciboCat1.Iva = CLCAT.Iva
        clreciboCat1.Total = CLCAT.Iva + CLCAT.Valor
        clreciboCat1.Categoria = CLCAT.nombre
        clreciboCat1.Direccion = COLTITULAR.Item(j).Direccion
        clreciboCat1.Telefono = COLTITULAR.Item(j).Telefono
        clreciboCat1.mes = mes
        clreciboCat1.año = año
        clreciboCat1.dia = dia
        clreciboCat1.IdCategoria = CLCAT.ID
        RECIBOSXCATEGORIA.Add clreciboCat1
        cldrecibocat.Alta (clreciboCat1)
        End If
        Set clrecibocat = Nothing
     Next
Next
End Function
[CODE]

ok, si claro, pero cuando trabajo solo con formularios y no con bd siempre me ha funcionado el ejecutable... supongo porq no necesita los demás archivos..
ya me fijo en el tutorial
gracias.

Tengo una consulta, como manejo un tabstrip si tendría que tener 3 solapas y en cada una de ellas en realidad lo q debo mostrar son solo unas etiquetas y unos botones, si o si lo debo hacer con matriz??

Desde ya muchas gracias,

Lavi

Hola; ya busqué en los foros pero me he mareado con todo lo q he leido y no llegué a mi solución; mi pregunta es simple, manejando las coordenadas del
obj printer:

printer.currentx = x
printer.currenty = y
printer.print "cadena"

me imprime lo q puse en esas coordenadas... pero... tengo que ubicar como 15 valores en distintas coordenadas y luego mandar.....
como LOGRO SIMPLEMENTE PASAR DE UNA LINEA A OTRA.. ?? y luego de tener todo ubicado en las distintas posiciones recién hacer printer.print e IMPRIMIR...

Gracias...
 

hola...
Levanto de una bd en data report y tengo un recibo q la empresa me dio con un diseño ya establecido ?? que hago ? se puede poner como imagen de fondo y completar los campos arriba ?
gracias