SELECTIONFORMULA

USUARIO.EXCLUIDOS 09/11/2004 17:09:53
#49637
Pesoal preciso da ajuda de vcs. Etopu utilizando a seguinte consulta em no VB:

FrmEnquadramento.CR_RELATORIO.SelectionFormula = "SELECT * FROM OFICIAL WHERE DT_DEM like '*" & MaskDT_HIST_ADM_DEM & "*' AND COD_DEM ='10'" _
& " or DT_DEM like '*" & MaskDT_HIST_ADM_DEM & "*' AND COD_DEM = '12'" _
& " or DT_DEM like '*" & MaskDT_HIST_ADM_DEM & "*' AND COD_DEM = '13'" _
& " or DT_DEM like '*" & MaskDT_HIST_ADM_DEM & "*' AND COD_DEM = '17'" _
& " or DT_DEM like '*" & MaskDT_HIST_ADM_DEM & "*' AND COD_DEM = '22'" _
& " or DT_DEM like '*" & MaskDT_HIST_ADM_DEM & "*' AND COD_DEM = '23'" _
& " or DT_DEM like '*" & MaskDT_HIST_ADM_DEM & "*' AND COD_DEM = '33' order by CRESP, MATRICULA, COD_CARGO"

Screen.MousePointer = vbHourglass
FrmEnquadramento.CR_RELATORIO.Destination = crptToWindow
FrmEnquadramento.CR_RELATORIO.WindowTitle = "RELATÓ“RIO DE DEMISSÃO MENSAL - HORISTAS"
FrmEnquadramento.CR_RELATORIO.ReportFileName = (CAMINHO + "DEMISSAO.rpt")
FrmEnquadramento.CR_RELATORIO.Action = 1
Screen.MousePointer = vbDefault

Mas ao chegar em "FrmEnquadramento.CR_RELATORIO.Action = 1" dá o seguinte erro: 'Error in formula'

o q será q pode ser?

Desde já Agradeço.

Alexandro
ARLINDO 09/11/2004 21:49:30
#49664 Resposta escolhida
Caro colega, quer um conselho de amigo? Crie uma tabela temporária com os parametros q quer exibir e simplesmente, carregue seu relatório, isso torna + fácil e rápido para carregar o relatório, pois imagine q vc tenha zilhões de dados no seu banco, ficará muito lento pra fazer seu filtro ok ? espero ter ajudado.
Tópico encerrado , respostas não são mais permitidas
Voltar