Pessoal, bom dia
Eu estou querendo fazer uma consulta por período conforme o código abaixo e ta dando o seguintwe erro na linha CR1.ACTION
"O ERRO É ESSE
RUNTIME ERROR 20515
Error in file C:vendasconsulta.rpt
Error in formula<Record Selection>
"{CLIENTE.codigo} > =" & TextInicial.Text & " and {CLIENTE.codigo} < = " & TextFinal & " "
e number, currency amount, bollean, date, time, date time or string is expected here"
O CODIGO QUE ESTOU USANDO E ESSE
Option Explicit
Dim bco As Database
Dim TABCLI As Recordset
Private Sub Command1_Click()
CR1.ReportFileName = "C:VendasCONSULTA.rpt"
CR1.CopiesToPrinter = 1
CR1.Destination = crptToWindow
CR1.SelectionFormula = "{CLIENTE.codigo} > =" & TextInicial.Text & " and {CLIENTE.codigo} < = " & TextFinal & " "
CR1.Action = 1
End Sub
Private Sub Form_Load()
Set bco = OpenDatabase(App.Path & "VENDA.mdb")
Set TABCLI = bco.OpenRecordset("CLIENTE", dbOpenTable)
TABCLI.Index = "INDCODIGO"
End Sub
USO VB 6
BANCO DE DADOS ACCESS 2003
DAO 3.6
CRYSTAL REPORT 8.5
ALGUEM PODE ME AJUDAR