Função =Dpesquisa ou =DLookup

[questão]

Algém teria algum arquivo de exemplo da Função =Dpesquisa ou =DLook

[Leandro Abbade]

Boa tarde amigo,

Dê uma olhada no meu site na área de dicas:

http://www.professorlar.com/access_dicas.php

[questão]

Pessoal,

Consegui utilizar a função em um formulário. No entanto, quando tento utilizar a mesma função no mesmo formulário, mas este como subformulário de outro, não consigo. Aparece o erro de que não consegue localizar o subformlário.

Já tentei de várias maneiras, incluir na função que o registro de busca estará em um subformúlário, mas até agora não consegui. Vocês poderiam me ajudar!

A função que incluí é a seguinte:

Private Sub Setor_Enter()

Setor = DLookup("[setor]", "[setor]", "[CódLocal] = '" & Forms!SubFormulárioCadastrodeColaborador!CódLocal & "'")

End Sub

O subformulário ficará dentro do formulário: FormulárioCadastrodeColaborador, segue arquivo para download. (http://questaotrabalhista.com/download/BancodeDados.accdb)

Desde já agradeço

[MrMALJ]

Se seu subform já é um objeto do formulário aberto atualmente você tem que trata-lo como tal, ou seja, simplesmente um objeto do form principal assim a expressão seria:

Setor = DLookup("[setor]", "[setor]", "[CódLocal] = '" & SubFormulárioCadastrodeColaborador!CódLocal & "'")

Espero que resolva, aguardo retorno!

[questão]

Bom dia, tudo be!

Agradeço pela resposta.

Fiz a alteração que você sugeriu, mas aparece o seguinte erro:

Erro em temp de execução '424'

O objeto é obrigatório.

O que será que está errdo?