Lentidão Consulta

Pessoal, bom dia.

Criei uma consulta com ajuda do pessoal aqui do fórum. Apesar de ter obtido o resultado desejado com a consulta ela ficou bastante "lenta". Inicialmente achei que pela quantidade de registros, porém, mesmo com uma quantidade limitada de registros no BD (exemplo anexo), há a lentidão. Isso é normal?

Pretendo usar a consulta para alimentar um formulário + subformulários com os dados organizados para melhor visualização, mas com a lentidão fica mais difícil. Pensei então, a partir da consulta criar uma tabela temporária para alimentar os formulários, mas o sistema fica "em loop" e não cria a tabela.

Alguém tem uma sugestão?
Quando criei o formulário vinculado a consulta ele ficou muito lento, dificultando a utilização.



Abs.

Caro Amigo,

Criar a tabela temporária, cria, demora mais cria. O que realmente você quer fazer com o Select no campo Stock. Não teria uma outra forma de fazer isso sem o Select. Quando tira ele fica muito rápido. Explique melhor esse campo Stock para vermos outra forma de fazer para ficar mais rápido.

Abraços

Olá!

O objetivo do campo Stock é retornar as quantidades de estoque de cada item (EstruturaProdutos.CodItem), a partir da tabela "Estoques", com a condição de ser de um ou mais locais específicos (critério "MONT" no IIF). A tabela "Estoques" não possui dados de todos os itens, por isso o NZ para retornar o valor 0, nestes casos.

Abs.

Boa tarde
O problema é usar nulos que, depois, têm de ser convertidos em zero
utilize a função

Código:

Function fStock(CodComponente As Long) As Long
    '--------------------------------------------------------------'
    '   código criado por Alexandre Neves, do Fórum MaximoAccess   '
    '     utilize o código livremente mas mantenha os créditos     '
    '--------------------------------------------------------------'
    Dim Rst As DAO.Recordset
    Set Rst = CurrentDb.OpenRecordset("SELECT Sum(QtdEstoque) FROM Estoques WHERE LocalEstoque='MONT' and Cod_Item=" & CodComponente)
    If IsNull(Rst(0)) Then fStock = 0 Else fStock = Rst(0)
End Function

Na consulta
SELECT CodItem, DescAcabado, Nível, CodComponente, DescComponente, fStock(CodComponente) AS Stock INTO Faltas FROM EstruturaProdutos ORDER BY Identificação;

Grande Alexandre,

Fiz conforme sua sugestão, no entanto ainda está bastante lento. Levando em consideração os tamanhos das tabelas, seria isso mesmo?

Abraços

Está muito mais rápida que a consulta fornecida e não vejo forma de a melhorar

Ótimo Alexandre, muito grato pelo esclarecimento. Estou só no aprendizado. O DiegoK que decida. É o dono da bola.

Abraços

Ou
SELECT CodItem, DescAcabado, Nível, CodComponente, DescComponente, NZ((SELECT Sum(QtdEstoque) FROM Estoques WHERE LocalEstoque='MONT' and Cod_Item=EstruturaProdutos.CodComponente),0) AS Stock INTO Faltas FROM EstruturaProdutos ORDER BY EstruturaProdutos.Identificação;

Desse modo está aparentemente mais lento.

Qual a versão do Access que usam?

Eu uso 2010.

O pulo do gato

Grande Mestre,

Fiz a alteração sugerida e ficou super rápido. Mestre, qual o motivo que isso tanto interfere no processo? Curiosidades de um aprendiz. Isso não é o pulo do gato, é um Golpe de Mestre.

Grande abraço

Boa Damasceno,

Um tempo atrás eu tinha uma consulta que como esta, estava demorando muito para executar, e eu pensei que era por que tinha colocado uma função para que na minha caixa de Listagem, trouxesse um determinado valor com 3 casas decimais, até que desisti, pelo fato de demorar muito, mas agora, vou seguir a sua dica, certamente vai me ajudar.

Dicas de estudo
usandoaccess.com.br/dicas/gerar-milhoes-registros-teste-access.asp?id=1
mendipdatasystems.co.uk/speed-comparison-tests-7/4594524997
mendipdatasystems.co.uk/speed-comparison-tests/4594424200

Damasceno,

Muito grato pelas dicas de estudo.

Abraços