Error 20515 help!!!
Publicado por Saryon (1 intervención) el 04/10/2006 12:06:46
Hola, os escribo porque me reportaron un problema con un programa y el programador que lo hizo ya no está en la empresa y yo no tengo pajolera de VB :s (en ello estoy ahora)
El caso es que el visual basic engancha con Crystal Reports para sacar un listado de clientes. Si sacas todo el listado no hay problema. Pero si usas el filtro por número de cliente el programa falla y da un error 20515.
Me pasa en casi todos los reportes donde uso filtros.
El código de la llamada es este:
Dim i As Integer
If InStr(CLclave.Text, Chr$(34)) > 0 Then
MsgBox "No se permite el uso del delimitador "" como parte del código de representante.", vbExclamation, "Código de representante"
CLclave.SetFocus
CLclave.SelStart = 0
CLclave.SelLength = Len(CLclave.Text)
Else
For i = 0 To 100
frmMenuInicio.Informe.Formulas(i) = ""
Next i
frmMenuInicio.Informe.ReportFileName = App.Path + "\RPc.rpt"
If CLclave.Text <> "Todos" Then frmMenuInicio.Informe.SelectionFormula = "{CLrepresentante}=" + Chr$(34) + CLclave.Text + Chr$(34)
frmMenuInicio.Informe.Action = 1
End If
Alguna idea de lo que puede ser???
Gracias de antemano
El caso es que el visual basic engancha con Crystal Reports para sacar un listado de clientes. Si sacas todo el listado no hay problema. Pero si usas el filtro por número de cliente el programa falla y da un error 20515.
Me pasa en casi todos los reportes donde uso filtros.
El código de la llamada es este:
Dim i As Integer
If InStr(CLclave.Text, Chr$(34)) > 0 Then
MsgBox "No se permite el uso del delimitador "" como parte del código de representante.", vbExclamation, "Código de representante"
CLclave.SetFocus
CLclave.SelStart = 0
CLclave.SelLength = Len(CLclave.Text)
Else
For i = 0 To 100
frmMenuInicio.Informe.Formulas(i) = ""
Next i
frmMenuInicio.Informe.ReportFileName = App.Path + "\RPc.rpt"
If CLclave.Text <> "Todos" Then frmMenuInicio.Informe.SelectionFormula = "{CLrepresentante}=" + Chr$(34) + CLclave.Text + Chr$(34)
frmMenuInicio.Informe.Action = 1
End If
Alguna idea de lo que puede ser???
Gracias de antemano
Valora esta pregunta
0