Buenos dias foreros, de antemano muchas gracias por sus respuestas.
Tengo un formulario con un CRViewer en el que muestro un archivo rpt con el siguiente codigo:

Dim oApp As CRAXDRT.Application
Dim oReport As CRAXDRT.Report
Dim rs As ADODB.Recordset
Dim StrSql As String

    StrSql = "SELECT SKU, Descripción, Venta, Id FROM Productos WHERE ID>30"
   
  Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & DirectorioBase & "\" & Db_A_Name & ";Persist Security Info=False;jet oledb:database password= " & StrPass & ";\"
        .CursorType = adOpenStatic
        .CursorLocation = adUseClient
        .Open StrSql
         End With

       
    Set oApp = New CRAXDRT.Application
        Set oReport = oApp.OpenReport(App.Path & "\reporte1.rpt", 1)
           oReport.Database.SetDataSource rs, 2, 1
       
    CRViewer1.ReportSource = oReport
    CRViewer1.ViewReport

El problema es que sin importar que modifique, el reporte me sale con la totalidad de los registros, es decir, no me filtra segun los parametros que le indico en el SQL. Ya he desmarcado la opcion de guardar datos con el informe en crystal pero nada, no se me ocurre que otra cosa puedo hacer, asi que apelo a vuestro conocimiento para que me puedan orientar.

Buenas tardes foreros, de ante manos gracias por sus respuestas!

Tengo una matriz de controles y que necesito hacer es que cuando se haga click en cualquiera cambie el color de fondo, eh intentado con lo siguiente pero solo me colorea el index 1:

Private Sub C_Click(Index As Integer)
Dim B As Integer

 B = Me.C(Index).Index
   
    Me.C.Item(B).BackColor = vbRed

End Sub

Desde ya nuevamente gracias y aguardo sus respuestas, buen finde!

Hola, la verdad no se me ha ocurrido pero segun tengo entendido no es tan FLEXible este control a la hora de editar manualmente los valores, es decir segun entiendo ese control es se usa mas para editar registros desde una db, corregime si no es asi, desde ya muchas gracias por tu respuesta!

Ante todo buenas tardes a todos!

Bueno, mi problema es el siguiente, trabajo en un sistema en el cual mediante multiples textbox ingreso datos a una tabla, estos datos pueden variar de cantidad por lo cual necesito algo muy flexible a la hora de ingresar los datos, es por eso que encontre un codigo con el cual puedo crear una matriz de controles en tiempo de ejecucion que me permita crear tantos textbox como yo necesito, el problema que se me presento es que solo consigo que me cree o de izquierda a derecha o de arriba para abajo dicha cantidad ejemplo:

Text1 Text2 Text3 Text4 Text5 Text6 Text7 etc, etc...

y lo que yo necesito es poder agregar multiples filas como demuestro debajo:

Text1 Text2 Text3 Text4 Text5 Text6 Text7
Text8 Text9 Text10 Text11 Text12 Text13 Text14
etc
etc
etc

En conclusion y para hacerlo mas grafica a la explicacion, necesito una suerte de hoja de calculo pero con otro fin, espero ser claro y de antemano agradezco vuestra atencion.

PD: pego lo que encontre en la web y que con mi modificacion me genera tantos como quiero pero solo una fila...

Dim i as Long
 
LoaRst = Db.OpenRecordset(strSQL)
 
    Rst.MoveLast
         Rst.MoveFirst
 
            Command3(0).Caption = UCase(Rst!descripcion)
                 Text5(0).Text = "00:00:00"
   For a = 1 To Rst.RecordCount
 
   Rst.MoveNext
      Let i = 1
        Do Until Rst.EOF
 
    Load Command3(i)
    With Command3(i)
 
        .Left = Command3(i - 1).Left + 1000
        .Visible = True
        .Caption = UCase(Rst!descripcion)
        .FontBold = True
 
    End With
 
   Load Text5(i)
    With Text5(i)
 
        .Left = Text5(i - 1).Left + 1000
        .Visible = True
        .Text = "00:00:00"
        .FontBold = True
 
    End With
 
    Rst.MoveNext
        i = i + 1
            Loop
 
   Next a
 
Hay_err_exit:
 
 Rst.Close
 Db.Close
 
 Set Rst = Nothing
 Set Db = Nothing
 
Hay_err_err:
 
 Select Case Err.Number
 
 Case 3024
 
            MsgBox "Es imposible encontrar la base de datos. " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la ruta:" & App.Path & "\bases" & "  e intente nuevamente", vbInformation + vbOKOnly, "Aviso!"
            Resume Hay_err_exit:
 
 Case 3078
            MsgBox "Es imposible encontrar la tabla: " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la base de datos" & "Base_Actual.mdb" & "e intente nuevamente", vbInformation + vbOKOnly, "Aviso!"
            Resume Hay_err_exit:
 
 
 End Select
 
End Sub