USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ME AJUDAEM POR FAVOR
hm1020
CASTELANDIA
GO - BRASIL
ENUNCIADA !
Postada em 05/02/2011 08:22 hs            

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

   
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 05/02/2011 18:01 hs            
Bem, se sua pesquisa é em um campo texto, está faltando aspas simples.
Se for numerico, transforme seu textBox em numeros, e retire as aspas do final.
Mas o que se escreve aqui as vezes engole, veja se sai correto.
Para campo texto:
CR1.SelectionFormula = "{CLIENTE.codigo} > ='" & TextInicial.Text & "'  and {CLIENTE.codigo} < = '" & TextFinal & "'"
Para campo numérico:
CR1.SelectionFormula = "{CLIENTE.codigo} > =" & Val(TextInicial.Text) & "  and {CLIENTE.codigo} < = " & Val(TextFinal.Text)
Espero que saia correto, como digitei.
 
vlu//
 
 

 
 
   
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 05/02/2011 18:02 hs            
Saiu correto, copie e cole.
 
vlu//
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página