Error 20534 La DLL de Base de Datos ha detectado un error

Saludos Grupo, necesito de su ayuda para resolver el siguiente caso, tengo
un
desarrollo en Visual Basic 6, con reportes en Crystal Report 8, el caso es
que cuando intento filtrar registros a traves de un campo numerico me
arroja
el error: 20534 La Dll de base de datos ha detectado un error, y no logro
sacar el reporte, en el caso q la variable de filtro fuera string, si me
permite sacar el reporte.
muestro el codigo que utilizo:

Dim rptId As Double

Private Sub b_reporte_Click()
Dim cad1 As String
cad1 = dc_tipoMov.Text
If rptId > 0 Then
With frm_principal.Cr1
.Destination = 0
.WindowState = crptNormal
.Reset
.ReportFileName = App.Path & "pt_infmovimientos.rpt"
.SelectionFormula = "{v_ldomovimientos.idmovimientos}=" & rptId
.Formulas(0) = "title= '" & cad1 & "'"
iresultado = .PrintReport
If iresultado <> 0 Then
MsgBox .LastErrorString
End If
End With
End If
End Sub

Agradezco la ayuda q me puedan prestar

Hola,

Reemplazar

.SelectionFormula = "{v_ldomovimientos.idmovimientos}=" & rptId

Por

.SelectionFormula = "{v_ldomovimientos.idmovimientos}=" &
Str$(rptId)

Un Saludo, Víctor Koch



"Miguel" escribió en el mensaje
news:
> Saludos Grupo, necesito de su ayuda para resolver el siguiente caso, tengo
> un
> desarrollo en Visual Basic 6, con reportes en Crystal Report 8, el caso es
> que cuando intento filtrar registros a traves de un campo numerico me
> arroja
> el error: 20534 La Dll de base de datos ha detectado un error, y no logro
> sacar el reporte, en el caso q la variable de filtro fuera string, si me
> permite sacar el reporte.
> muestro el codigo que utilizo:
>
> Dim rptId As Double
>
> Private Sub b_reporte_Click()
> Dim cad1 As String
> cad1 = dc_tipoMov.Text
> If rptId > 0 Then
> With frm_principal.Cr1
> .Destination = 0
> .WindowState = crptNormal
> .Reset
> .ReportFileName = App.Path & "pt_infmovimientos.rpt"
> .SelectionFormula = "{v_ldomovimientos.idmovimientos}=" & rptId
> .Formulas(0) = "title= '" & cad1 & "'"
> iresultado = .PrintReport
> If iresultado <> 0 Then
> MsgBox .LastErrorString
> End If
> End With
> End If
> End Sub
>
> Agradezco la ayuda q me puedan prestar


.