Consigo fazer o seletion formula

[Leandro_Pirozzi]

Dim crAppl As CRAXDRT.Application, crRep As CRAXDRT.Report

Set crAppl = New CRAXDRT.Application

Set crRep = crAppl.OpenReport(App.Path & "\RProposta.rpt")

crRep.RecordSelectionFormula = "{CONTATOS_PROPOSTA.DATAPRO}= Date'" & datapro.Value & "'" & _

" and CONTATOS_PROPOSTA.EMPRESA}= rsprop!EMPRESA"

frmrprop.Show

frmrprop.CRViewer1.ReportSource = crRep

frmrprop.CRViewer1.ViewReport

e desse jeito que eu chamei a data ele exibe a msg.

The remaining text does not appear to be part of the formula.

Ai clico em DEBUG e fica marcado em amarelo

crRep.RecordSelectionFormula = "{CONTATOS_PROPOSTA.DATAPRO}= Date'" & datapro.Value & "'" & _

" and {CONTATOS_PROPOSTA.EMPRESA}= rsprop!EMPRESA"

posicionando o mouse em cima de datapro.value exibe o valor do dtpicker correto, porem o rsprop!EMPRESA não exibe nada.

obrigado.

[kuroi]

é so concatenar assim:

crRep.RecordSelectionFormula = "{CONTATOS_PROPOSTA.DATAPRO}= Date'" & datapro.Value & "'" & _
" and {CONTATOS_PROPOSTA.EMPRESA}= " & rsprop!EMPRESA[/code]