Logo Hardware.com.br
BrunoEvans
BrunoEvans Novo Membro Registrado
40 Mensagens 2 Curtidas

[Resolvido] Excel VBA - Como filtrar consulta no Access

#1 Por BrunoEvans 24/11/2015 - 10:05
E ai pessoal! Como vão?
Bem, estou com um pequeno dilema. Tenho um arquivo (micro sistema) em VBA e, preciso fazer uma consulta conde 3 campos são combinados de alguma forma para que o resultado em especifico apareça. Por exemplo, na imagem abaixo, tenho o form "atualizar", nele aplico um filtro onde escolho um determinado valor em um DropBox. Ate ai tudo bem, o problema é que eu quero combinar outro dois campos com "datas". A logica seria: no primeiro campo, selecionar "João" e nos campos de data, selecionar um período, "01/11/2015" e "10/11/2015", então a consulta retornaria todos os dados que se aplica-se este critério. Abaixo tenho um print de como é o form e, logo mais o codigo de consulta (este codigo refere-se a "operação").

Anexo do post

Application.ScreenUpdating = False
Dim nConectar As New ClasseConexao
Dim banco As ADODB.Recordset
Dim sql As String
Set banco = New ADODB.Recordset
'DEFININDO INSTRUÇÃO A VARIÁVEL
sql = " SELECT * FROM Cons_Turmas "
sql = sql & " WHERE dOperacao LIKE '" & Me.tOperacao.Text & "%' "
Sheets("ACOES&quot.Select
Call UnlockSheet
Range("TAB_TURMAS&quot.Select
Selection.ClearContents
Call DeletLine

'CONECTAR AO BANCO DE DADOS
nConectar.Conectar

'EXECUTAR A SQL

banco.Open sql, nConectar.Conn

'DECLARANDO VARIÁVEL PARA LOCAL QUE RECEBERÁ OS DADOS NA PLANILHA
Dim xls1 As Excel.Worksheet
Set xls1 = Sheets("ACOES&quot
xls1.Range("B6&quot.CopyFromRecordset banco

'DESCONECTAR PARA LIBERAR MEMÓRIA
nConectar.Desconectar
Call AJUSTAR_COLUNAS
Call LockSheet

Anexos

Marcelo G Prudencio
Marcelo G Pr... Geek Registrado
1K Mensagens 227 Curtidas
#2 Por Marcelo G Pr...
24/11/2015 - 11:20
Faltou o principal

O que vc quer fazer ??

Em qual ferramenta?

Sua base de dados esta em que ferramenta?

Enfim ... no aguardo.

E um modelo dos arquivos tb ajudam
Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho." - Autor Desconhecido
Simplifica que simples fica. - Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado" - Jorge Paulo Lemann.
Basole
Basole Geek Registrado
945 Mensagens 596 Curtidas
#3 Por Basole
24/11/2015 - 13:07
Olá Bruno tente desta forma, para filtrar pelo nome e pelo periodo de data:
[code=sql]
Sql = "SELECT * FROM Cons_Turmas "
Sql = Sql & " WHERE dOperacao LIKE '" & Me.tOperacao.Text & "%' "
Sql = Sql & " AND [Seu Campo Data] between #" & Seu_Textbox_Data_1.Text & "# AND #" & Seu_Textbox_Data_2.Text & "#"
[/code]
ou
[code=sql]
Sql = "SELECT * FROM Cons_Turmas "
Sql = Sql & " WHERE dOperacao LIKE '" & Me.tOperacao.Text & "%' "
Sql = Sql & " AND [Seu Campo Data] between '" & Seu_Textbox_Data_1.Text & "'" And "'" & Seu_Textbox_Data_2.Text & "'"
[/code]
Isso é so uma sugestao, o ideal seria como o Marcelo falou, vc inserir seu arquivo ou um modelo
Click em Curtir se a resposta foi útil. boa.gif Dê retorno por favor. Se resolveu, atencao_regras.gif Altere o Titulo como [ Resolvido ] comemorando.gif
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal