[Resolvido]Lentidão com o Dlookup Substituir por SQL ou algo assim

Bom dia Srs!

Preciso aprender um novo comando em Sql ou algo assim que substitua o Dlookup, tenho muitas tarefas que fazem esse tipo de consulta, mas a medida do tempo o Banco de Dados vai gerando muitos registros... tenho percebido que o tempo de resposta demora um pouco, então pensei em tentar mudar para outro comando.

por exemplo este abaixo funciona:

Me.txtdesc = Nz(DLookup("DESCRICAO_FP", "tbl_Cons_Receb_followup", "[DESENHO_FP] = txtdesenho"), "-")

oi, eu tentaria algo assim

Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim str As String
Dim variavel As String

Set db = CurrentDb

variavel = txtdesenho.value

str = "SELECT * FROM tbl_Cons_Receb_followup WHERE Desenho_FP='" & variavel "'"


Set rs = db.OpenRecordset(str)

vou testar e comparar e ja retorno, obrigado!

então como que eu pego a descrição_FP?

conforme o de baixo


Me.txtdesc = Nz(DLookup("DESCRICAO_FP", "tbl_Cons_Receb_followup", "[DESENHO_FP] = txtdesenho"), "-")


Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim str As String
Dim variavel As String
Set bd = CurrentDb
variavel = txtdesenho.value
str = "SELECT * FROM tbl_Cons_Receb_followup WHERE Desenho_FP=" & variavel & ""
Set rs = bd.OpenRecordset(str)

Me.txtdesc = ?

Um ótimo artigo com o caminha das pedras aqui (se precisar, cole o link no google tradutor para ver em português)
mendipdatasystems.co.uk/speed-comparison-tests-7/4594524997

E uma dica:
no aplicativo maestro do mestre Avelino existe um módulo chamado funções_D que seguem a dica da mensagem nº 2. Com comentários e tratamento de erros. Funções com o origem no tópico abaixo
https://www.maximoaccess.com/t7919-funcoes-dlookupdcountdmaxdmin-em-front-end-desvinculado

Pelo o que entendi sobre a sua dúvida é que você deseja pesquisar alguma descrição na sua tabela.

Então, o item Me.txtdesc é uma caixa de texto onde você insere o argumento para a pesquisa.
O código pode ser adicionado num botão ou no evento "após atualizar" da caixa de texto.
Esta variável "variavel" armazena o que foi digitado na caixa de texto "txtdesenho.value".

Acho que é isso.

_____________________________________________

então como que eu pego a descrição_FP?

conforme o de baixo


Me.txtdesc = Nz(DLookup("DESCRICAO_FP", "tbl_Cons_Receb_followup", "[DESENHO_FP] = txtdesenho"), "-")


Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim str As String
Dim variavel As String
Set bd = CurrentDb
variavel = txtdesenho.value
str = "SELECT * FROM tbl_Cons_Receb_followup WHERE Desenho_FP=" & variavel & ""
Set rs = bd.OpenRecordset(str)

Me.txtdesc = ?

Gostei IvanJr. muito bom, já senti diferença em algumas coisas.

obrigado a todos pela ajuda.

O fórum agradece o retorno. Sucesso.