data environment

[Alex Mauricio]

Boa noite.

Tenho um data environment com o nome de conectaTbFonte e criei um command e escolho a opção SQL Statement.

Até ai tranquilo... poderia criar um select * from TbFonte order by codigoFonte asc.... OK?

Ai vem o problema...

Gostaria de criar um select * from TbFonte where = "CAPITURO UM TEXTO DE UM TEXT BOX OU VARIÁVEL" order by codigoFonte asc

como faço para capturar o valor de um text box ou variável...

Obrigado

[cristiano.evangelista]

você pode filtrar depois..

dataenvironment.rsCommand1.Filter = "campo='" & Trim(text1.Text) & " '"

[Alex Mauricio]

onde vou colocar este código ( no botão que vai chamar o relatorio, no relatório, no command, etc)?

outra dúvida... criei um botão para abrir um relatório ( que já está pronto e funcionando )... com o seguinte código...

Private Sub cmdImprimir_Click()

datareport.show

End Sub

porém quando vou executar o botão dá o seguinte erro.

Run time error '401':

Can't show non-modal form when modal form is displayed

o que significa este erro

[cristiano.evangelista]

no botão de chamar o relatorio, verifique se as propriedades do relatorio Datasource e Datamenber estão configuradas..

[Alex Mauricio]

FIZ O CÓDIGONO BOTÃO CONFORME ABAIXO:

Set Table_Fonte = BancoDeDados.OpenRecordset("select * from TbFonte where codigoFonte = " & Val(txtPesquisar.Text))

Set rptFontesPorCodigo.DataSource = conectaTbFonte

rptFontesPorCodigo.Show vbModal

PORÉM, AO INVÉS DE MOSTRAR UM ÚNICO REGISTRO, O RELATÓRIO CONTINUA MOSTRANDO TODOS OS REGISTROS....

O QUE TEM DE ERRADO?