Data Reporter

[rodrigotnoma]

Estou tentando fazer um botao onde ao ser clicado o usuario visualizara um relatorio feito no data reporter, mas estou tendo dificuldades:

-já criei o Data Environment

-Arrastei os campos desejados para o Page Header e Detail

-Criei o botao e coloquei:

Private Sub Command1_Click()

With rptbusca

.Show

End With

End Sub

A minha duvida é:

Não quero todos os registros do BD no relatório e sim os dados de uma busca que o usuario ira realizar.

Ex: Busca por usuario

Gostaria que o relatorio mostrasse somente os usuarios que iniciam com a letra "T".

Onde e como configuro a conexão com meu BD e como fazer a relação no Data Reporter?

Obrigado

Rodrigo

[rodrigotnoma]

Bom, consegui fazer alguma coisa, mas tenho algumas duvidas ainda:

Tenho 2 combo no meu form(Combo1 possui a opçao usuario e equipamento, o Combo2 é dinamico ou seja conforme o que escolher no combo1 é preenchido de forma diferente)

Meu BD Access, esta assim:

-----------------------------------------------

usuario | equipamento

Luis | mouse

Andre | teclado

Jorge | monitor

-----------------------------------------------

Criei um DataEnvironment e no SQL Statement coloquei isso:

select * from tb_troca where usuario=combo2.text

Coloquei o nome dos parametros e OK.

Criei um DataReport e configurei o DataSource e o DataMember para esse DataEnvironment que criei acima, arrastei os campos que quero que saia no meu relatório.

Tenho um botão onde configurei para abrir o relatório.

Private Sub Command1_Click()

Set cn = New ADODB.Connection

connstring = "provider=microsoft.jet.oledb.4.0;data source=\\192.168.0.120\equipamentos\cad_troca.mdb;"

cn.Open connstring

DataEnvironment2.Command1 Combo2.text

DataReport1.Show

End Sub

O relatório abriu sem problemas.

Agora se tentar fazer o que eu quero assim:

SQL Statement

select * from tb_troca where combo1.text=combo2.text

e rodar o fonte da esse erro na hora de gerar o relatorio:

"Argument not optional" e marca essa parte do codigo:

DataEnvironment2.Command1 Combo2.text

Preciso de ajuda...

Orbigado