[Resolvido]sintaxe para fazer pequisa em VBA

Boa noite Srs.

Tenho uma consulta que é "montada" a partir de três tabelas.

Tabela "RECEBER"
Tabela "BOLETO"
Tabela "CLIENTE"

Na tabela recibo, tem um campo chamado "VENCIMENTO" que seria meu campo que restringiria os registros a serem pesquisados
Nela ainda, há o campo "CONTROLE" que é o que vincula a tabela "RECEBER" através do campo  "CODSEQRECEBER"

CONTROLE = CODSEQRECEBER

Na tabela "BOLETO" vou usar os campos "SACADO_NOME", "SACADO_NUMEROCPFCGC", "NUMERODOCUMENTO", "VALORDOCUMENTO", "LINHADIGITAVEL"

Da tabela "CLIENTE" preciso do campo "EMAIL"
CLIENTE esta vinculada à BOLETO pelos campos "CNPJ" e "SACADO_NUMEROCPFCGC" respectivamente.

Alem disso, preciso que a pesquisa seja feita a partir das seguintes condições:

"VENCIMENTO" deve estar entre "DataINI" e "DataFim", sendo que, estes dois últimos são campos data de um formulário que uso para visualizar estes campos.

NECESSIDADE:

Qual a sintaxe que devo usar para escrever isso tudo em VBA sendo que tenho as seguintes definições já.

DIM bco As DAO.Database
DIM tbl  As DAO.Recordset

Set bco = currentdb()
Set tbl  = bco.Openrecordset (???????????????????????????????????????????????????????????????????????????????????)


a sintaxe que define "tbl" é minha duvida.
Se alguém puder me ajudar....

>>>>>> É SEMPRE BOM TER AMIGOS <<<<<<<

Srs.

Consegui resolver. A sintaxe ficou assim:

Select * FROM CnsBase1 Where Vencimento >= #" & INI & "# AND Vencimento <= #" & FIN & "#" Order BY SACADO_NOME, Vencimento;"

Onde INI e FIN são as datas iniciais e finais do período pesquisado.

O único problema é que eu coloco INI = 01/06/2014 e FIN = 05/06/2014 e a consulta retorna dados desde 01/01/2014 até 31/05/2014.

Alguém saberia me dizer o por que disso? Qual o erro na sintaxe?

Obrigado

Resolvi.

O que acontece é que, para que funcione o filtro por datas, a grafia delas (em VBA) deve ser "AAAA/MM/DD"

Fiz o seguinte:

Dim Idia As String
Dim Imes As String
Dim Iano As String
Dim Fdia As String
Dim Fmes As String
Dim Fano As String

Idia = Day(Me.Datainício)
Imes = Month(Me.Datainício)
Iano = Year(Me.Datainício)

Fdia = Day(Me.DataFim)
Fmes = Month(Me.DataFim)
Fano = Year(Me.DataFim)

INI = Iano & "/" & Imes & "/" & Idia
FIN = Fano & "/" & Fmes & "/" & Fdia

ai funcionou...

Bom dia...

Algo parecido com isso..

Select * FROM CnsBase1 Where Vencimento between #" & INI & "# and #" & FIN & "#" Order BY SACADO_NOME, Vencimento;"

Qualquer duvida entre nesse link do Mestre Avelino Sampaio onde há um bom material sobre filtragens.

Bons estudos a ti.

Olá Silvio,

O link é perfeito, se o tivesse, nem tinha feito este post.
Obrigado pela força.



>>>>>> É SEMPRE BOM TER AMIGOS <<<<<<

De nada....

Abraços !