[Resolvido]Melhorar desempenho consulta

Boa noite Amigos

1º - Na BD que anexo, como melhorar o desempenho ao carregar o formulário "Acessos".

2º Na parte superior do formulário tem uma caixa de combinação "Usuario", ao alterar essa caixa filtrar a caixa de listagem conforme o selecionado na caixa Usuario, mas via VBA.

Obrigado

up

Bom dia Amigo


Removi as formatações da Instrução SQL, e criando um Método para Preencher a lista:
Depois é só chamar o método onde precisar...


Private Sub Form_Load()
On Error Resume Next
Call Center(Me)
Call fncPermissões(Me)
Preencher_list_box 'Aqui chama o método
End Sub

Sub Preencher_list_box()
Dim query As String
Dim conexao As DAO.Database
Dim data_reader As DAO.Recordset

query = "SELECT DISTINCTROW QryTabAcessos.NAcesso, QryTabAcessos.Usuário, DataAcesso AS Data, HoraAcesso AS Hora, HoraSaida AS Saida, tempo AS Usado " & _
" FROM QryTabAcessos " & _
" GROUP BY QryTabAcessos.NAcesso, QryTabAcessos.Usuário, DataAcesso, HoraAcesso, HoraSaida, tempo " & _
" ORDER BY QryTabAcessos.NAcesso DESC;"

Set conexao = CurrentDb
Set data_reader = conexao.OpenRecordset(query)

Set Me.lst_1.Recordset = Nothing
Set Me.lst_1.Recordset = data_reader


Set record_set = Nothing
Set conexao = Nothing
End Sub


Att
José

Bom dia José

Obrigado, parece um Ferrari.

E o ponto 2 da minha msg, tem como ?

Amigo...

Segunda solução

Private Sub CaixaCombinação73_AfterUpdate()
Preencher_list_box
End Sub

Sub Preencher_list_box()
Dim query As String
Dim conexao As DAO.Database
Dim data_reader As DAO.Recordset

query = "SELECT DISTINCTROW QryTabAcessos.NAcesso, QryTabAcessos.Usuário, DataAcesso AS Data, HoraAcesso AS Hora, HoraSaida AS Saida, tempo AS Usado " & _
" FROM QryTabAcessos " & _
" WHERE QryTabAcessos.Usuário LIKE '*" & CaixaCombinação73 & "*' " & _
" GROUP BY QryTabAcessos.NAcesso, QryTabAcessos.Usuário, DataAcesso, HoraAcesso, HoraSaida, tempo " & _
" ORDER BY QryTabAcessos.NAcesso DESC;"

Set conexao = CurrentDb
Set data_reader = conexao.OpenRecordset(query)

Set Me.lst_1.Recordset = Nothing
Set Me.lst_1.Recordset = data_reader


Set record_set = Nothing
Set conexao = Nothing
End Sub




Att
José

Obrigado José

Bom Natal