Gerando Relatório A Partir Do Formulário

[Guest Lauro Cesar]

Olá amigos ... :D

Tenho um formulário onde criei um filtro através de comandos do SQL, onde ao selecionar um nome, por exemplo, aparecem somente registros deste nome em uma caixa de listagem. Gostaria que me ajudassem a fazer com que o conteúdo desta caixa de listagem fosse colocado também numa caixa de listagem do relatório ... :blink:

Segue abaixo o script:

Private Sub Comb_nome_AfterUpdate()

Dim sql As String

Me.DataInicial = ""

Me.DataFinal = ""

Me.Comb_serv = ""

Me.chk_todos = False

sql = "SELECT clientes.Nome, clientes.empresa, clientes.email,"

sql = sql & " servicos.servicos, pedidos.data, pedidos.detalhes "

sql = sql & "from clientes, pedidos, servicos where "

sql = sql & "clientes.email=pedidos.email and clientes.nome='" & Comb_nome.SelText & "'"

sql = sql & " and pedidos.servicos=servicos.Código"

sql = sql & " ORDER BY pedidos.data DESC"

Me.ListPedidos.RowSource = sql

End Sub

Desde já agradeço pela ajuda e que DEUS os abençoem !!! B)

[LARA++]

Pessoal este tópico teve um desfecho clique AQUI e saiba mais.

Falow.