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.

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;

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

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;

Qual a versão do Access que usam?

O pulo do gato

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