INFORMAR CRITÉRIO DE CONSULTA PELO VBA

ALANTYKHE 08/04/2014 10:17:09
#437018

Bom dia, pessoal!

Procurei na rede e não encontrei nada.

Tenho um código que abre e exporta os dados de um relatório para pdf. Só que na consulta que gera o relatório há um critério de nome do consultor. Queria que ao selecionar o nome no Form e ao clicar no botão, ele utilizasse esse mesmo nome como critério da consulta/relatório, mas não consigo. Alguém pode me ajudar?

Segue o código que estou montando:

Private Sub Comando6_Click()
Dim Relatorio, Consultor1 As Variant
Dim Nome, Ccusto, NomeArquivo, FileName, Formato As Variant

Relatorio = [Ô]Extrato_Novo[Ô]
Consultor1 = Combinação19

Dim rs As New ADODB.Recordset

If CurrentProject.IsConnected Then

Set rs = New ADODB.Recordset

rs.Open [Ô]0200_SELECT_CONSULTOR [ô][Ô] & Combinação19.Value & [Ô][ô][Ô], CurrentProject.Connection, adOpenStatic, adLockReadOnly

If Not rs.EOF Then
Ccusto = rs([Ô]Centro de Custo[Ô]).Value
Nome = rs([Ô]Consultor[Ô]).Value
End If
End If


NomeArquivo = Ccusto & [Ô] - [Ô] & Nome
FileName = [Ô]d:\Users\atedsilva\Desktop\Extrato\ [Ô] & NomeArquivo & [Ô].pdf[Ô]

DoCmd.OpenReport Relatorio, acViewPreview, , , acHidden
DoCmd.OutputTo acReport, Relatorio, [Ô]PDF Format(*.pdf)[Ô], FileName, False, [Ô][Ô]
DoCmd.Close acReport, Relatorio
End Sub