Bom dia
Estou com o seguiinte problema :
- Tenho um cadastro de clientes em um form e um botão chamado Imprimir Registro . Ao clicar nesse botão ele imprime o registro atual (o que está aparecendo na tela)utilizando o índice Código_cliente da tabela clientes.
- Abaixo o código do botão Imprimir Registro
Declaração
Dim RptApp As CRAXDRT.Application
Dim RptObj As CRAXDRT.Report
Private Sub Imprimir_Registro_Click()
Set RptApp = New CRAXDRT.Application
Set RptObj = RptApp.OpenReport(App.Path & "egistro.rpt")
CR1.ReportSource = RptObj
CR1.SearchByFormula "{clientes.codigo_cliente}=" & frm_clientes.txt_codigo.Text
CR1.ViewReport
End Sub
- O erro é este :
Ao clicar no botão Imprimir Registro aparece a mensagem
"Run-time error -2147418113
Method 'SearchByFormula' of object 'ICrystalReportViewer10' failed
- Estou usando DAO e CR 10.0
Se algúem puder ajudar , agradeço
