|
|
Postada em 17/01/2005 14:41 hs
Boa tarde galera estou tentando abri um relatório com esse código so que ele me retorna o relatório em branco. Set banco = OpenDatabase(App.Path & "anco.mdb")
Set tabela = banco.OpenRecordset("Select * From VENDA")
Cr.SelectionFormula = "{venda.secao}= '" & CmbSecao.Text & "'"
Cr.Action = 1
alguem poderia me ajudar ?
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
|
|
|
|
Postada em 17/01/2005 16:40 hs
Levando em conta que vc., já definiu o REPORTFILENAME e o DATAFILES, tenta: Cr.SelectionFormula = "{venda.secao}= '" & trim CmbSecao.Text & "'"
|
|
|
|
|
|
Postada em 18/01/2005 08:16 hs
cajose não funcionou da um erro "end of estatement"
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
Rinaldo
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/01/2005 08:22 hs
Não sei se foi um erro quando vc colou o código, mas acho que o erro está na linha abaixo: Set banco = OpenDatabase(App.Path & "anco.mdb")
Coloque assim: Set banco = OpenDatabase(App.Path & "Banco.mdb")
T+ Rinaldo |
|
|
|
|
|
Postada em 18/01/2005 08:28 hs
Obrigado Rinaldo mas o erro não é ai na linha Cr.SelectionFormula = "{venda.secao}= '" & trim CmbSecao.Text & "'"
é por causa do uso do trim
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
|
|
Postada em 18/01/2005 08:55 hs
Tente assim, estava incompleta a dica anterior, Cr.SelectionFormula = "{venda.secao}= '" & trim(CmbSecao.Text) & "'"
José Carlos Vector
|
|
|
|
